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PnEFACE 

The  work  described  in  this  Phase  II  SBIR  Final  Technical  Report  is  the 
implementation  of  a  capability  which  Coleman  Research  Corporation  demon¬ 
strated  during  a  Phase  I  SBTR  (contract  number  DAAH01-90-C-0234).  Both 
contracts  were  performed  under  the  administrative  overview  of  the  USAMICOM 
DARPA  Project  Office  at  Redstone  Arsenal,  Alabama.  Technical  guidance  was 
given  by  DARPA  from  their  Arlington,  Virginia  headquarters. 


!  /V  -CC  -to  '  !  O' 


J  'A  .  c  :'.i 


Di,t  .."i 

•  t.O'. 

A 

Avaii 

v'  /'  or 

Dist 

Spy 

Cl?l 

A'l 

hi 


CHR/91-2750 


ACKNOWLEDGMENTS 

Coleman  Research  Corporation  wishes  to  acknowledge  several  people  who 
have  provided  significant  assistance  during  the  execution  of  the  work  described  in 
this  contract. 

Mr.  Lawrence  J.  Schilling,  NASA/Ames  Research  Center,  Dryden  Flight 

Research  Facility:  Mr.  Schilling  provided  us  with  a  “real-time”  version  of 
NASA’s  Global  Reference  Atmosphere  Model  (GRAM)  which  he  had 
developed  for  use  with  National  AeroSpace  Plane  (NASP)  trajectory 
simulations. 

Mr.  Dale  Johnson,  NASA/Marshall  Space  Plight  Center;  Mr.  Johnson,  as  the 
GRAM  sponsor,  provided  us  with  AIAA  articles  and  general  GRAM 
information. 

Mr.  Joseph  L.  Lindinger,  U.S.  Navy/Naval  Air  Development  Center:  Mr. 

Lin  dinger  arranged  for  us  to  have  access  to  the  Navy’s  atmospheric 
forecasting  capability  at  the  Fleet  Numerical  Oceanography  Center. 

Finally,  Mr.  Robert  L.  Hawkins,  the  Principal  Investigator  of  this  SBIR 
program,  would  like  to  acknowledge  those  individuals  at  CRC  who  contributed  to 
this  effort:  Mr.  Michael  C.  Bateman,  Mr.  David  H.  Wales,  Mr.  Norman  E. 
Mason.  Mr.  David  F.  Smith,  and  Mr.  A,  Scott  Cadenhead. 


IV 


CHRy91-2750 


TABLE  OF  CONTENTS 

SECTION  TITLE  PAGE 

1.0  Introduction . 1 

2.0  BDPS  Atmosphere  Model . 2 

2.1  Wind  Table  Option . 2 

2.2  Climate  Data  Option . 3 

3.0  BDPS  Trajectory  Model . 6 

4.0  BDPS  Macintosh  Installation . 12 

4.1  Transfer  Source  and  Data . 12 

4.2  Compile  and  Link  on  Macintosh . 12 

4.3  Duplicate  VAX  Results  on  Macintosh . 13 

4.4  Add  Graphical  User  Interface . 13 

5.0  BDPS  Macintosh  Display . 15 

6.0  BDPS  Documentation . 17 

7.0  Conclusions  and  Recommendations . 18 

8.0  References . 19 

10.0  BDPS  Analyst  Manual . 21 

10.1  BDPS  Generation  Scripts . 21 

10.1.1  BDPS  Compilation  Script . 21 

10.1.2  BDPS  Linking  Script . 22 

10.2  BDPS  Include  Files . 23 

10.3  BDPS  FORTRAN  Source  Code . 41 

10.4  BDPS  Rez  Source  Code . 280 

10.5  NODDS  Data  Retrieval  Code . 335 

10.5.1  NODDS  Batch  Files . 335 

10.5.2  NODDS  FORTRAN  Files . 336 

20.0  BDPS  User  Manual . 347 

20.1  BDPS  Concept  of  Operations . 347 

20.2  Required  Files  for  BDPS  Operation . 347 

20.2.1  Ascent  Profile . 347 

20.2.2  Climate-Related  Files . 347 

20.2.3  Wind  Table  Files . 347 

20.3  BDPS  Operation  Procedure . 349 


V 


CHR^91  -2750 


LIST  OF  FIGURES 

FIGURE  TITLE  PAGE 

Figure  2.2-1  BDPS  Climate  Model  Heritage . 4 

Figure  3.0-1  Wind  Profile  for  Wallops  Island  in  January . 7 

Figure  3.0-2  Wind  Profile  for  Wallops  Island  in  August . 7 

Figure  3.0-3  Wind  Profile  for  Vandenberg  AFB  in  January . .  .  .8 

Figure  3.0-4  Wind  Profile  for  Vandenberg  AFB  in  August . 8 

Figure  3.0-5  Ascent  Profile  for  Wallops  Island  in  January . 9 

Figure  3.0-6  Ascent  Profile  for  Wallops  Island  in  August . 9 

Figure  3.0-7  Ascent  Profile  for  Vandenberg  AFB  in  January . 10 

Figure  3.0-8  Ascent  Profile  for  Vandenberg  AFB  in  August . 10 

Figure  4.4-1  Sample  Dialog  Box  for  BDPS  Run  Configuration . 14 

Figure  5.0-1  Sample  Macintosh  Drift  Pattern  Display . 16 

Figore  20.2.1-1  Ascent  Profile  Format . 306 

Figure  20.2.3  Wind  Table  File  Format . 307 

Figure  20.3-1  Sample  BDPS  Run  Setup  Dialog . 308 

Figure  20.3-2  Drift  Pattern  Data  Generation  Progress  Dialog . 309 

Figure  20.3-3  Saving  the  BDPS  Mission  File . 310 

Figure  20.3-4  Setting  Up  the  Drift  Pattern  Display . 311 

Figure  20.3-5  Sample  Dnft  Pattern . 312 

Figure  20.3-6  Providing  New  Map  Parameters . 313 

Figure  20.3-7  Sample  Regional  Drift  Pattern . 314 


CHR'91-2750 


LIST  OF  TABLES 

FIGURE  TITLE  PAGE 

Table  20.2.2-1  Climate-Related  Files . 348 

Table  20.3-1  Run  Setup  Ranges  of  V'alues . 350 


CHR/91-2750 


THIS  PAGE  INTENTIONALLY  LEFT  BLANK 


CHR9l-2'5»0 


1  .0  INTRODUCTION 

Under  the  sponsorship  of  the  Defense  Advanced  Research  Projects  Apency 
'DARPA',  Coleman  Research  Corporation  (CRC)  has  developed  a  Balloon  Drift 
Pattern  Simulation  <BDPS).  CRC  developed  this  simulation  software  for  digital 
computers  as  a  product  of  a  Phase  II  Small  Business  Innovative  Research  (SBIR 
project.  This  report  presents  the  approach  which  CRC  took  to  develop  this 
product. 

DARPA  is  interested  in  exploiting  high-altitude,  expendable  balloon-borne 
communication  and  surveillance  capabilities  for  military  applications.  Balloon.'^ 
offer  several  unique  capabilities  w’hen  high-altitude  balloon  technologies  are 
integrated  with  payloads  emplo>dng  the  power-efficient,  light-weight  electronic 
technologies  available  today.  In  order  to  establish  communication  and 
surveillance  systems  design  requirements  and  deployment  schedules.  DARPA 
must  analyze  upper-atmosphere  drift  pattern  simulation  results  for  a  variety  of 
balloon  payload  concepts. 

The  Phase  II  development  of  BDPS  was  the  logical  actmty  to  follow  CRC  s 
Phase  I  SBIR  program  [1]  in  which  we  demonstrated  the  technical  feasibility  of 
predicting  high-altitude  balloon  drift  patterns  using  a  digital  computer 
simulation.  CRC  realized  the  Phase  I  goal  by  completing  each  of  four  contract 
objectives,  performing  a  literature  survey,  developing  and  integrating  atmosphere 
and  balloon  models  into  a  Balloon  Drift  Pattern  Simulation,  developing  drift 
pattern  output  formats,  and  exercising  the  BDPS  to  produce  and  analyze  balloon 
drift  patterns.  Drift  patterns  were  produced  for  two  balloon  configurations  which 
were  specified  by  DARPA.  The  first  mission  employed  a  zero-pressure  balloon 
which  floated  at  an  altitude  of  70.000  feet  over  24  hours.  The  second  mission  used 
a  super-pressure  balloon  which  floated  at  120,000  feet  for  a  one-year  period.  The 
models  were  executed  and  display  output  produced  on  VAX  computers 

The  project  objective  of  the  Phase  II  contract  was  to  develop  a  Macintosh- 
based  BDPS  for  DARPA.  The  accomplishment  of  this  overall  objective  depended 
upon  the  cc'mpletion  of  specific  technical  ohj^rf \vbich  ait*  discussed  m  th<' 
following  sections  of  this  report  ill  Dev«doj'  a  suitable  atmosphere  model;  '2 
i^treamline  and  modifv  the  trajectory-  moHol;  u'si  Install  BDPS  on  the  Maiintosb 
'4'  Develop  Macint^ish  graphics  output,  and  i-oi  I.te'elop  BDPS  documentation 
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2.0  BDPS  ATMOSPHERE  MODEL 

The  first  technical  objective  to  be  met  was  the  development  of  a  suitable 
atmosphere  model  for  use  within  BDPS.  Since  BDPS  was  intended  to  be  used  as  a 
deployment  tool,  the  atmosphere  model  was  of  critical  irrportance  because  the 
wind  would  have  the  most  significant  impact  on  balloon  motion. 

CRC  decided  to  design  the  BDPS  tool  to  be  able  to  use  either  of  two 
atmosphere  me  » Is  options.  The  first  option  uses  wind  tables  which  the  user 
must  provide.  The  second  option  makes  use  of  an  empirical  climate  model  for 
which  we  have  included  climate  data  files  with  the  delivered  software. 

2.1  WIND  TABLE  OPTION 

This  option  was  provided  to  give  the  BDPS  user  a  mechanism  by  which 
wind  data  from  a  variety  of  sources  may  be  incorporated  to  support  drift  pattern 
prediction.  The  option  requires  the  user  to  supply  two  files  in  a  format  which  is 
specified  in  the  User  Manual  appendix.  These  two  files  contain,  respectively,  east 
wind  velocity  and  north  wind  velocity.  The  velocity  parameters  in  each  file  are 
organized  as  functions  of  latitude,  longitude,  and  altitude. 

This  option  has  been  specifically  designed  to  support  retrieval  of  forecast 
data  generated  by  the  Navy’s  NOGAPS  capability  at  the  Fleet  Numerical 
Oceanography  Center  in  Monterey,  California.  The  NOGAPS  data  is  made 
available  through  distribution  software  called  NODDS  which  operates  on  an  IBM- 
PC-compatible  computer.  CRC  wrote  and  tested  PC-based  routines  to  arrange 
downloaded  NOGAPS  data  into  the  east  and  north  wind  tables  previously 
described.  We  then  transferred  the  tables  to  the  Macintosh  using  Apple  File 
Exchange,  a  conversion  utility  which  is  routinely  supplied  with  Macintosh  system 
software.  The  source  code  for  the  PC-based  routines  has  been  included  with  the 
BDPS  source  code  in  the  Analyst  Manual  appendix. 

Though  the  wind  table  option  was  designed  for  use  with  NOGAPS  data,  any 
other  data  which  is  similarly  formatted  may  be  incorporated  by  using  this 
atmosphere  model  option.  For  example,  if  a  user  had  access  to  forecast  wind  data 
from  another  source  or  to  archived  wind  data,  the  user  could  arrange  the  data 
into  the  two  wind  files  and  then  use  that  data  with  BDPS.  Furthermore,  a  user 
with  access  to  a  climate  model  could  format  tho  model’s  output  appropriatelv  to 
use  that  climate  model  data  with  BDPS. 
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2.2  CLIMATE  DATA  OPTION 

This  atmosphere  model  option  was  provided  to  give  the  BDPS  user  access  to 
an  empirical  climate  model.  The  model  is  based  on  NASA’s  Global  Reference 
Atmosphere  Model  (GRAM),  which  is  an  empirical  FORTRAN  computer 
simulation  of  the  earth’s  atmosphere.  It  was  developed  by  the  Georgia  Institute  of 
Technology  under  contract  to  NASA’s  Marshall  Space  Flight  Center.  Justus  [2] 
summarizes  the  capabilities  and  operations  of  GRAM.  The  latest  version  of 
GRAM  which  was  available  during  our  development  was  the  1988  version 
(GRAM-88)  [3]. 

The  GRAM  feature  which  is  most  significant  to  BDPS  is  that  GRAM 
provides  a  worldwide.  12-month  database  of  atmospheric  properties  including 
wind  speed  and  wind  azimuth.  The  wind  data  which  GRAM  provides  may 
therefore  be  considered  to  be  4-dimensional  because  it  is  a  function  of  latitude, 
longitude,  altitude,  and  time  of  year.  The  empirical  data  is  segmented  into  twelve 
files  (one  for  each  month)  and  is  stored  in  a  binary  form  for  fastest  access  during 
execution  of  the  model.  The  size  of  each  of  these  files  is  approximately  3 
megabytes. 

CRC  had  to  modify  GRAM  to  make  it  suitable  for  use  as  an  atmospheric 
model  in  BDPS.  The  baseline  version  of  GRAM  available  from  NASA  operates  in 
“batch”  mode,  whereby  position  input  is  supplied  and  GRAM  then  produces  an 
output  file  containing  an  atmospheric  profile  for  that  position.  CRC  learned  that 
Mr.  Larry  Schilling,  working  on  the  National  AeroSpace  Plane  (NASP)  program 
at  NASA/Ames-Dryden,  had  modified  GRAM-88  to  work  in  an  “interactive”  mode 
with  a  NASP  trajectory  simulation  program.  Mr.  Schilling  was  able  to  obtain 
improved  performance  by  replacing  the  worldwide,  empirical,  monthly  data  files 
with  smaller  empirical  data  sets  which  only  contained  data  for  the  contiguous 
United  States  (CONUS).  Though  GRAM-88  was  designed  to  access  the  large 
f‘mpirical  files  from  disk,  Mr.  Schilling  loaded  his  CONUS  files  into  memory, 
thereby  optimizing  atmosphere  data  access  during  the  execution  of  his  NASP 
simulation.  Mr  Schilling  modified  the  ORAM-d.‘^  strucfin-e  and  integiated  it 
within  his  simulation  to  provide  an  interactive  capability  in  which  GRAM-88  was 
called  at  each  integration  step  to  provide  new  atmosphere  data  to  be  included  in 
the  equations  of  motion  for  the  NASP.  Because  of  the  performance  improvements 
and  the  throughput  of  the  NASP  simulation  host  computer.  Mr.  Schilling  named 
his  version  “RTGRAM,”  which  is  an  abbreviation  for  “Real-Time  GRAM.” 
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As  shown  in  Figure  2.2-1,  the  climate  model  which  CRC  developed  for 
BDPS  used  significant  portions  from  both  of  the  versions  of  GRAM  which  we 
obtained  from  NASA.  From  the  perspective  of  BDPS  requirements,  each  version 
had  advantages  and  disadvantages.  GRAM-88  had  the  advantage  of  worldwide 
data  and  the  disadvantage  of  the  batch  mode  of  operation.  RTGRAM  had  the 
advantage  of  interactive  operation  with  a  flight  simulation  and  the  disadvantage 
of  empirical  data  limited  to  CONUS.  Therefore,  CRC’s  climate  model  for  BDPS 
was  built  around  the  interactive  structure  of  RTGRAM  while  using  the  worldwide 
empirical  data  files  from  GRAM-88.  Though  the  CONUS  data  access  techniques 
of  RTGRAM  would  have  provided  a  faster-running  climate  model,  CRC  could  not 
reasonably  expect  to  be  able  to  load  the  entire  worldwide  file  into  memory  on  an 
average  Macintosh  computer.  The  worldwide  file  was  required  (and  the  CONUS 
file  was  inadequate)  because  DARPA  personnel  had  advised  us  that,  for  political 
considerations,  the  balloon  systems  for  which  BDPS  was  intended  would  likely  be 
tested  in  the  southern  hemisphere. 


GRAM88 

RTGRAM 

•  WORLD-WIDE 

•  BATCH 

•  CONUS 

•  INTERACTIVE 

(NASA  /  MSFC)  (NASA  /AMES) 


BDPS 

CLIMATE  MODEI 


•  WORLD-WIDE 

•  INTERACTIVE 


Figure  2,2-1.  BDPS  Climate  Model  Heritage 

The  merging  of  the  two  versior).<?  of  GRAM  was  a  difficult  task  because  of 
the  poor  quality  of  the  GRAM  source  code.  The  resulting  source  code  is  included 
in  the  Analyst  Manual  appendix.  CRC  had  hoped  to  acquire  GRAM-90,  but  its 
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release  was  delayed  by  NASA  until  one  month  from  the  end  of  our  Phase  II 
contract.  GRAM-90  offers  improvements  in  its  source  code  quality  and  in  its 
southern  hemisphere  data.  The  features  of  GRAM-90  are  described  in 
publications  by  Justus  [4]  and  [5]. 
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3.0  BDPS  TRAJECTORY  MODEL 

The  second  technical  objective  to  be  met  was  the  development  of  a  trajectory 
model  for  use  in  BDPS.  The  capability  which  was  demonstrated  in  Phase  I  was 
inappropriate  for  Phase  II  for  two  reasons.  First,  the  trajectory  model  was 
developed  using  a  simulation  framework  which  was  proprietary  to  CRC.  Since 
the  Phase  II  deliverable  product  includes  soun  code,  CRC  had  to  replace  the 
proprietary  portions  of  the  trajectory  model.  Second,  the  Phase  I  approach 
modeled  balloon  dynamics  to  a  level  of  detail  which  was  inappropriate  for  a 
deployment  tool  on  a  Macintosh  host.  The  Phase  II  deliverable  product  had  to  be 
streamlined  in  order  to  provide  a  useable  tool  on  a  platform  with  much  less 
computational  throughput  than  the  platform  used  for  the  Phase  I  project. 

The  two  major  design  constraints  in  the  development  of  the  trajectory 
model  for  BDPS  are  that  (1)  the  model  should  include  the  detailed  effects  of 
buoyancy  variations  through  the  balloon’s  ascent  and  the  effects  of  winds 
produced  by  the  atmosphere  model  and  (2)  the  level  of  modeling  detail  should  be 
minimized  to  produce  a  tool  that  is  useable  on  the  Macintosh.  The  following 
paragraphs  describe  the  approach  CRC  took  in  balancing  the  high  fidelity  and  low 
detail  requirements. 

In  the  Phase  I  literature  survey,  CRC  found  that  balloon  designers  already 
had  detailed  thermodynamic  models  [6],  [7]  of  balloon  ascent  (vertical  motion). 
However,  we  found  no  published  information  about  balloon  simulations  which 
considered  horizontal  motion.  Given  this  information  and  DARPA’s  stated  need 
for  a  deployment  tool,  CRC  decided  to  focus  on  wind-induced  motion  as  the  major 
consideration  for  BDPS. 

As  we  were  formulating  ideas  and  approaches  for  a  BDPS  trajectory  model, 
we  noticed  a  consistent  trend  in  the  output  from  a  number  of  different  test  runs 
produced  with  our  Phase  I  tool  on  the  VAX.  Figures  3.0-1  through  3.0-4  show 
sample  wind  profiles  produced  under  four  separate  sets  of  circumstances; 
Wallops  Island.  Virginia  in  January;  Wallops  Island  in  August;  Vandenberg 
AFB,  California  in  January,  and  Vandenberg  AFB  in  Aug'is’^.  WV  noted  that  the 
four  wind  magnitude  profiles  showed  significant  variations  from  each  other. 
However,  Figures  3.0-5  through  3.()-8  show  that  the  vertical  motion  for  a  single 
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balloon  configuration  in  each  of  those  four  circumstances  was  essentially 
constant.  A  comparison  of  the  numbers  in  the  various  plots  revealed  a  maximum 
difference  on  the  order  of  1%. 


Figure  3.0-1.  Wind  Profile  for  Wallops  Island  in  January 
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Figure  3.0-2.  Wind  Profile  for  Wallops  island  in  August 
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Figure  3.0-3.  Wind  Profile  for  Vandenberg  AFB  In  January 


Figure  3.0-4.  Wind  Profile  for  Vandenberg  AFB  In  August 
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Wallops  Island  -  Januat 
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Figure  3.0-5.  Ascent  Profile  for  Wallops  Island  In  January 
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Figure  3.0-6.  Ascent  Profile  for  Wallops  Island  In  August 
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Figure  3.0-7.  Ascent  Profile  for  Vandenbe»‘g  AFB  In  January 


Vandenberg  -  Augus 


Figure  3.0-8.  Ascent  Profile  for  Vandenberg  AFB  In  August 

From  the  analysis  of  the  data  depicted  in  Figures  3.0-1  through  3.0-8.  we 
concluded  that  the  vertical  motion  of  a  Halloon  configuration  is  essentially 
independent  of  the  horizontal  wind  profile  with  which  the  balloon  motion  is 
simulated.  Detailed  thermodynamic  models  161.  171  may  be  used  to  generate  the 
vertical  motion  profile  for  a  particular  balloon  configuration.  Furthermore. 
Fichtl  [8]  had  stated  that  a  balloon’s  horizontal  wind-relative  velocity  (i.e..  the 
difference  in  the  balloon  velocity  and  the  wind  velocity)  is  zero  after  a  short  time 
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for  settling  of  transients.  For  the  design  of  the  BDPS  trajectory  model,  we  decided 
that  the  balloon’s  three-component  velocity  vector  could  be  formed  by  the 
combination  of  the  east  and  north  wind  velocity  vectors  taken  from  the 
atmosphere  model  (either  the  wind  table  or  climate  option)  and  the  vertical 
velocity  which  may  be  generated  offline  from  a  more  detailed,  balloon  design  tool. 
By  decoupling  the  vertical  and  horizontal  velocity  of  the  balloon  motion,  CRC  has 
produced  a  simplified  trajectory  model  which  simultaneously  satisfies  the  two 
design  constraints  stated  above. 

CRC  tested  the  results  of  the  simplified  trajectory  model  introduced  herein 
against  the  Phase  I  capability.  The  results  showed  acceptable  agreement  between 
the  two  methods.  The  largest  observed  percent  difference  between  the  two 
methods  was  less  than  1%. 
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4.0  BDPS  MACINTOSH  INSTALLATION 

The  third  technical  objective  to  be  met  was  the  installation  of  the  BDPS  on 
the  Macintosh.  This  involved  four  steps  which  are  listed  below  and  described  in 
the  following  paragraphs:  (1)  Transfer  source  code,  climate  data  files;  (2) 
Compile  and  link  FORTRAN  code  on  Macintosh;  (3)  Duplicate  sample  test  cases; 
and,  (4)  Add  graphical  user  interface. 

4.1  TRANSFER  SOURCE  AND  DATA 

CRC  used  standard  file  transfer  tools  (Kermit,  Xmodem,  etc.)  to  transfer 
the  FORTRAN  source  code  for  BDPS  from  the  VAX  to  the  Macintosh.  The 
transfer  of  the  twelve  monthly  climate  files,  however,  was  more  involved.  For 
efficiency  reasons  already  discussed,  the  data  are  stored  in  binary  form  for  use  by 
GRAM.  Each  of  the  files  had  to  be  converted  to  an  ASCII  representation  on  the 
VAX,  transferred  in  ASCII  form  to  the  Macintosh,  and  then  restored  to  binary 
form  on  the  Macintosh.  The  conversion  on  the  VAX  and  the  subsequent 
restoration  on  the  Macintosh  were  both  accomplished  by  using  very  simple 
FORTRAN  programs  which  were  compiled  and  linked  on  the  respective 
machines.  While  the  binary  form  of  each  climate  file  occupied  -3  megabytes,  the 
ASCII  form  required  approximately  10  megabytes  per  file. 

4.2  COMPILE  AND  LINK  ON  MACINTOSH 

The  VAX  environment  for  BDPS  development  used  the  VMS  5.4  operating 
system,  the  VAX  FORTRAN  compiler,  and  the  VAX  Symbolic  Debugger  on  a 
VAX  3900  machine  with  DEC  VT-240  terminals.  CRC  used  two  Macintosh 
development  environments  for  BDPS.  The  first  was  a  Macintosh  Ilfx  running 
System  6.0.7.  On  the  Ilfx,  CRC  used  Apple’s  Macintosh  Programmer’s 
Workshop  (MPW)  version  3.1,  the  Language  Systems  FORTRAN  compiler  version 

2.1,  and  Apple’s  Symbolic  Application  Debugging  Environment  (SADE)  version 

1.1.  The  second  system  was  a  Macintosh  SE/30  running  System  7.0,  MPW  3.2, 
SADE  1.3.  and  the  same  FORTRAN  compiler. 

CRC  encountered  numerous  problems  in  the  creation  of  a  BDPS  version  on 
the  Macintosh,  We  had  already  known  th.nt  tbo  VAX  and  the  Macintosh  were 
internally  different  with  respect  to  numeric  data  representation  and  alignment 
However,  the  poor  quality  of  the  GRAM  source  code  proved  to  be  a  major  obstacle 
in  producing  a  working  BDPS  version  on  the  Macintosh.  In  particular,  the 
GRAM  source  code  flagrantly  violates  professional  FORTRAN  programming 
standards  in  its  haphazard  use  of  common  blocks.  The  GRAM  code  had  the 
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distinct  appearance  that  the  various  subroutines  had  been  written  by  different 
people  who  engaged  in  little,  if  any,  coordination  while  developing  their  separate 
pieces. 

The  SADE  debugger  was  of  some  help  in  tracing  problems  on  the 
Macintosh.  However,  our  use  of  SADE  and  the  VAX  debugger  in  simultaneous 
debugging  sessions  consistently  convinced  us  that  the  SADE  tool,  while  helpful, 
was  not  as  robust  as  the  VAX  debugger.  The  net  result  of  this  difference  is  that 
we  spent  more  time  debugging  on  the  Macintosh  than  we  would  have  otherw’ise. 
We  are  encouraged,  however,  by  some  substantial  improvements  in  the 
functionality  of  SADE  1.3  as  compared  to  that  of  SADE  1.1. 

4.3  DUPLICATE  VAX  RESULTS  ON  MACINTOSH 

Once  we  had  a  fully  functional  version  of  BDPS  on  the  Macintosh,  we 
conducted  several  tests  using  the  same  data  files  on  each  of  the  two  platforms 
The  results  of  the  tests  matched  each  other  except  for  discrepancies  in  the  lower- 
order  digits  of  parameters.  We  attribute  this  difference  in  precision  to  the 
different  mechanisms  which  the  two  platforms  use  in  floating-point  calculations. 
The  VAX  uses  32-bit  representations  for  single  precision  throughout  its 
operations.  However,  the  Macintosh  converts  the  32-bit  floating-point  numbers  to 
and  from  80-bit  numbers  for  operations  which  involve  the  68882  floating-point  co¬ 
processor  in  the  Ilfx  and  the  SE/30. 

4.4  ADD  GRAPHICAL  USER  INTERFACE 

In  the  statement  of  work  for  the  Phase  II  contract,  CRC  stated  that  the 
interface  for  the  Macintosh-based  BDPS  tool  would  be  minimal  in  that  it  would  not 
be  designed  to  have  the  appearance  and  operation  of  well-known,  commercially 
available  Macintosh  applications.  However,  CRC  acquired  a  copy  of  Prototyper 
3.0  which  is  a  Macintosh  user-interface  development  tool.  We  used  this  tool  to 
create  a  Macintosh  dialog  box  for  configuring  a  BDPS  run.  The  dialog  box  is 
shown  in  Figure  4.4-1.  The  most  significant  feature  of  the  tool  is  that  it  can  then 
generate  compilable  source  code  for  the  dialog  items  and  their  operation.  CRC 
used  the  too!  to  generate  Pascai  snuree  ffide  and  then  cf'nT-  er  t^'f!  t  rode  to 
FORTRAN  for  consistencv  with  the  maioritv  of  th^  BDPC  mde  The  operatu'n  of 
the  user  interface  will  be  described  in  the  Usor  Manual  appendix 
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Figure  4.4-1.  Sample  Dialog  Box  for  BDPS  Run  Configuration 
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5.0  BDPS  MACINTOSH  DISPLAY 

The  fourth  technical  objective  to  be  met  was  the  development  of  a  capability 
to  display  the  drift  pattern  output  on  the  Macintosh  screen.  During  Phase  I,  CRC 
had  used  a  VAX-based  graphics  package  which  generated  pen-plotter  output.  For 
Phase  II.  the  goal  was  to  provide  a  capability  on  the  Macintosh  that  would  be  an 
integrated  part  of  the  Macintosh-based  BDPS  and  would  produce  drift  pattern 
graphics  that  could  be  imported  into  commercially  available  Macintosh  graphics 
packages. 

CRC  chose  to  save  the  on-screen  drift  patterns  in  the  PICT  file  format 
which  IS  supported  by  the  major  graphics  packages.  With  this  approach,  the 
BDPS  user  can  predict  a  drift  pattern,  display  it  on  the  Macintosh  screen,  and 
save  it  in  a  graphics  file.  The  user  can  then  use  a  commercial  graphics  package 
to  open  the  saved  graphic,  annotate  it  as  desired,  and  use  the  commercial 
package’s  printing  capability  to  generate  a  hardcopy  of  the  drift  pattern. 

The  drift  pattern  latitude-longitude  format  was  developed  in  Phase  I  and 
retained  for  use  in  Phase  II.  The  display  includes  a  world-map  background 
which  shows  the  physical  outlines  of  the  world’s  major  land  masses  along  with 
several  islands.  A  sample  display  is  shown  in  Figure  5.0-1. 


15 


CHR/91-2750 


^  File  Edit  Map 

-:s..  --  =—  -  = :  ,  Map  UMndou' 


1.11  9 


Figure  5.0-1.  Sample  Macintosh  Drift  Pattern  Display 

The  on-screen  display  was  developed  by  making  FORTRAN  calls  to  the 
Macintosh  utility  library  which  is  present  in  the  ROM  and  system  software  of 
every  Macintosh.  These  routines  are  extensively  documented  in  Inside 
Macintosh,  volumes  I  through  V  [9].  The  source  code  for  these  display  routines  is 
included  in  the  Analyst  Manual  appendix. 
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6.0  BDPS  DOCUMENTATION 

The  fifth  and  final  technical  objective  to  be  met  was  the  development  of 
documentation  for  BDPS.  CRC  chose  to  present  the  BDPS  information  from  two 
perspectives:  an  Analyst  Manual  and  a  User  Manual.  The  Analyst  Manual 
presents  the  engineering  design  approach  which  CRC  took  in  developing  BDPS. 
The  Analyst  Manual  presents  this  information  by  listing  the  source  code  which 
was  used  to  generate  the  BDPS  application  on  the  Macintosh.  The  User  Manual 
describes  the  operation  of  the  drift  pattern  data  generation  and  display  modes  of 
BDPS.  Both  of  these  manuals  are  included  as  appendices  to  this  final  report. 
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7.0  CONCLUSIONS  AND  RECOMMENDATIONS 

CRC  has  successfully  developed  a  Balloon  Drift  Pattern  Simulation  (BDPS) 
tool  for  use  on  the  Macintosh  computer.  The  BDPS  tool  is  operated  through  a 
graphical  interface  similar  to  commercial  Macintosh  software.  The  drift  pattern 
data  is  generated  by  using  one  of  two  options  for  supplying  wind  data;  a  climate 
model  based  on  NASA’a  Global  Reference  Atmosphere  Model,  or  a  table-driven 
wind  model  through  which  the  BDPS  user  can  provide  wind  data  from  another 
source.  The  resulting  balloon  drift  pattern  may  be  displayed  on-screen  and  then 
imported  into  one  of  several  commercial  Macintosh  graphics  programs  for 
annotation  and/or  printing.  All  source  code  for  the  BDPS  tool  has  been  made 
available  through  an  appendix  to  this  report. 

The  sole  recommendation  which  CRC  has  to  make  regarding  BDPS  is  that 
the  performance  be  improved  to  make  the  tool  more  convenient  to  use.  CRC  has 
tested  BDPS  on  a  Macintosh  SE/30  and  on  a  Macintosh  life.  On  both  systems,  the 
process  of  generating  drift  pattern  data  (prior  to  the  display  of  the  drift  pattern) 
requires  several  minutes.  Our  testing  indicates  that  the  GRAM  model’s  heavy 
dependence  on  external  files  is  the  primary  performance  bottleneck.  This 
problem  could  be  mitigated  by  either  of  two  approaches  or  by  the  combination  of 
both  approaches.  The  first  approach  would  be  to  restructure  the  GRAM  model  to 
produce  more  efficient  runtime  operation.  This  process  should  begin  with 
GRAM-90,  NASA’s  newest  version,  which  was  not  publically  released  until  the 
end  of  CRC’s  period  of  performance  in  the  development  of  BDPS.  The  second 
approach  would  be  to  rehost  BDPS  on  a  more  powerful  computer  such  as  an 
engineering  workstation.  Running  BDPS  on  a  more  powerful  computer  would 
improve  performance  regardless  of  whether  GRAM  had  been  restructured. 
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10.0  BDPS  ANALYST  MANUAL 

The  purpose  of  this  appendix  to  the  final  report  is  to  provide  insight  into 
Coleman  Research  Corporation’s  engineering  approach  and  software 
implementation  for  the  Balloon  Drift  Pattern  Simulation  (BDPS).  Because  the 
main  body  of  the  final  report  presents  sufficient  information  about  the 
engineering  approach,  this  appendix  presents  the  BDPS  software  details  through 
the  inclusion  of  the  FORTRAN  source  code  and  associated  utilities. 

10.1  BDPS  GENERATION  SCRIPTS 

As  described  in  section  4.2,  CRC  used  Apple’s  Macintosh  Programmer’s 
Workshop  (MPW)  and  the  Language  Systems  Corporation  FORTRAN  compiler. 
CRC  automated  the  compilation  and  linking  processes  with  scripts  which  are 
included  h  re. 


10.1.1  BDPS  Compilation  Script 

CRC  used  the  following  compilation  script  to  in  the  generation  of  the  BDPS 
object  code  modules.  The  script  uses  three  directories:  a  source-code  directory  (in 
which  FORTRAN  filenames  end  with  “.f’,  an  include-file  directory  in  which  the 
filenames  end  with  “.inc”,  and  an  object-code  directory  in  which  the  compiler’s 
output  files  are  placed.  Two  GRAM-related  files,  “run.f’  and  “gen4d.f,”  are 
compiled  with  default  4-byte  integer  sizes.  The  other  files  are  compiled  with 
default  2-byte  integer  sizes  because  that  size  is  more  commonly  used  with 
Macintosh  Toolbox  arguments. 


0001 

0002 

0003 

0004 

0C05 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

'”’16 


bdpaCompile  -  compile  any  source  code  targeted  for  bdps  if  either  the 
object  code  doesn't  exist  or  the  source  code  is  newer 

Targets  every  file  whose  name  ends  in  .f 
in  the  source  code  directory 


Sot Directory  Mars : darpazMacBDPS  tSourceFilos : 

set  FortranOptions  "-b  -i  Mara : darpa : MacBDPS : IncludeFiles :  d 

-i2  -mc68030  -mc68882  -nodyn  -opt-*!  d 

-savoall  -sane  -sym  -u" 

set  Fortr anOpt ionsAltornate  "-b  -i  Mar s ; darpa : MacBDPS : IncludeFiles :  d 

-rac68030  -mc68882  -nodyn  -opt*!  ^ 

-savoall  -sane  -sym  -u" 


0018  ♦  compile  run.f  and  gen4d.f  with  alternate  compilation  (for  1*4) 

O'  0  1  ? 

0020  if  exists  Mar s : darpa : MacBDPS : Ob ject Files : run . f . o 

0021  if  Newer  run.f  Mar s : darpa : MacBDPS : Ob oect Files : run . f . c 

0022  fortran  run.f  I FortranOptionsAlternate I  d 

0023  -o  Mar s : darpa : MacBDPS :ObioctFilos : run . f . o 

0024  end  if 

0025  else  if  not  exists  Mar s : darpa : MacBDPS :0b jectFiles : run . f . o' 

0C26  fortran  run.f  (FortranOptionsAlternate) 
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0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 


-o  Mars : darpa : MacBDPS : Ob jactfilas : run . f . o 

and  if 

if  exists  Mars : darpa:MacBDPS : Ob jactFilas :gan4d. f . o' 

if  'Newer  gon4d.f  Mars : darpa : MacBDPS : Ob jactFilas : gan4d . f . o ' 
fortran  gan4d.f  {FortranOptionsAltarnata)  d 

-o  Mars : darpa: MacBDPS :0b jactFilas :gan4d. f -o 

end  if 

else  if  not  exists  Mar s : darpa : MacBDPS :Ob jactFilas :gan4d . f , o ' 
fortran  gan4d.f  {FortranOptionsAltarnata)  d 

-o  Mars : darpa : MacBDPS ; Ob jactFilas : gan4d . f . o 

end  if 

♦  compile  everything  else  (run.f  and  gan4d.f  will  be  checked  and  passed) 
for  file  in  «.f 

set  ObjectFile  "Mars : darpa : MacBDPS :ObjactFiles :{ file ) .o" 
set  SourceFila  "Mars :darpa:MacBDPS tSourcaFilas : | file) " 
if  exists  (ObjectFile)' 

if  Newer  (SourcaFile)  (ObjectFile)' 

fortran  (SourcaFile)  ( FortranOptions )  -o  (ObjectFile) 
end  if 

else  if  not  'exists  (ObjectFile)' 

fortran  (SourcaFile)  (FortranOptions)  -o  (ObjectFile) 
and  if 

end 


10.1.2  BDPS  Linking  Script 

CRC  used  the  following  linking  script  to  accomplish  two  objectives.  First, 
the  script  compiles  the  BDPS  resource  file  (if  necessary).  Then,  the  script  links 
the  previously  compiled  object  code  files  with  the  required  libraries  to  produce  an 
executable  application. 

0001  ♦  bdpsLin)c  -  link  the  object  code  in  Mars : darpa : MacBDPS : Ob jactFilas :  to  form 

0002  ♦  application  bdps 

0003  # 

0004 

0005  sot  RawRazFilo  "Mar s : darpa : MacBDPS : RazFilas : bdps . r" 

0006  sat  CompiladRazFila  "Mar s : darpa:MacBDPS:bdp8 . rsrc" 

0007 

0008  if  'Newer  (RawRozFilo)  ( CompiledRezFile) ' 

0009  SetDirectory  Mar s : darpa : MacBDPS :RezFilas 

0010  roz  -o  Mars : darpa:MacBDPS :bdp8 . rsrc  -c  MDoF  bdps . r  ^ 

0011  -i  Mars :MPW: Interfaces :RIncludas : 

0012  end  if 
0013 

0C14  SetDirectory  Mar s : darpa : MacBDPS : 

0C15 

0016  duplicate  -y  bdps. rsrc  bdps 

0^17 

0018  Link  -ac  4  -ad  4  -f  -srt  -sym  on  -w  -o  bdps 
0019  Mars ; darpa : MacBDPS :0b jectFiies ; = . f . c 

0020  ( Libraries ( Runt ime . o 

0021  f Librar ies ) Inter face . c 

7022  ( FLibr aries I  Out PWSt ubs . o 

0023  ( FLibraries ) FortranLib . o 

7  724  (FLib ratios)! nt  r ins icLibFPO . o 

0025  (FLibr anas  )FSANELibFPU.o 


H 

d 

d 

a 

2) 

d 

d 
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10.2  BDPS  INCLUDE  FILES 

This  section  lists  the  contents  of  the  “include”  files  which  were  made 
available  to  the  FORTRAN  compiler  during  compilation  of  the  BDPS  FORTRAN 
source  code.  Include  files  were  generally  used  for  the  definition  of  common  blocks 
and  for  the  declaration  of  variable  and  static  parameters  which  were  referenced 
within  multiple  source  code  files.  The  filename  for  each  include  file  is  given  in 
the  commented  first  line  of  each  file. 

0001  c . Alert .  inc 

0002 

0003  c . Alert  declarations 

0004 

0005  integar*2 

0006 

0007  c . Alert  pre-settings 

0008 

0009  parameter 


0001 

c .  . 

.  . . AppieMenu , inc 

0002 

0003 

c,  , 

...Apple  menu  declarations 

0004 

0005 

integer*2 

nAppleltems 

0006 

intager*2 

AppleltemAboutBDPS 

'j007 

integer *2 

AppleltemHolp 

0008 

integer *2 

App^eMenuID 

0009 

record  /  Menuflandlo  / 

AppleMenuBndl 

0010 

0011 

G  .  .  . 

.  . .Apple  menu  common  block 

0012 

0013 

common  /  AppieMenu  / 

AppleltemAboutBDPS,  Appleltomflelp, 

0014 

AppleMenuID, 

0015 

0016 

AppleMenuBndl 

0017 

c.  . 

.  . .Apple  menu  pre-settings 

0018 

0019 

parameter  ( 

nAppleltems  -  2  ) 

0020 

parameter  { 

AppleltemAboutBDPS  »  1  ) 

0021 

parameter  { 

AppleltemBolp  -  2  ) 

00  2  2 

paiaiuiater  ( 

AppleM^'.'jTD  •  128  ) 

idrlin . 
iplog.". . 
Pi;;Cnt  , 
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0016 

intager*2 

idrlin (ncrvmx) 

0017 

integor*2 

lintyp (ncrvmx) 

0018 

intager*2 

idraym (ncrvmx) 

0019 

int«ger*2 

aynrtyp  (ncrvmx) 

0020 

integar *2 

iplogx (ncrvmx) 

0021 

intagar *2 

iplogy (ncrvmx) 

0022 

intagar*2 

ipatap (ncrvmx) 

0023 

intagar *2 

DahMsk (ncrvmx) 

0024 

integar*2 

PixCnt (ncrvmx) 

0025 

intager*2 

ighoff (ncrvmx) 

0026 

002" 

raal*4 

gradat (ncrvmx) 

0001 

C  .  .  . 

.  .  . Daf Lim. inc 

0002 

0003 

c .  .  , 

.  . .Map  data 

common 

block 

0004 

0005 

common  / 

Daf Lim 

/  LatMin, 

LatMax 

0006 

LngMin , 

LngMax 

0007 

0008 

real*4 

LatMin 

0009 

real*  4 

LatMax 

0010 

real*4 

LatDivM j 

0011 

real *  4 

LatDivMi 

0012 

real*4 

LngMin 

0013 

raal*4 

LngMax 

0014 

real*4 

LngDivM j 

0015 

roal*4 

iJigDivMi 

0001 

c .  .  . 

. . EditMenu , inc 

0002 

0003 

c.  .  , 

..Edit  manu  daclarations 

0004 

0005 

intagar*2 

nEditItams 

0006 

integer*2 

EditltamOndo 

0007 

intagar *2 

EditItamCut 

0008 

integer  *2 

EditItemCopy 

0009 

intagar *2 

EditItamPasta 

0010 

integer *2 

Edit ItamClaar 

'^011 

intagar *2 

EditManuID 

0012 

racord  /  ManuHandla  / 

EditManuHndl 

0013 

0014 

c.  . 

.  .  .  Edit  manu  common  bloc)c 

0015 

0016 

common  /  EditMenu  / 

EditltamUndo, 

0017 

EditItamCopy, 

0018 

Edit ItamClaar, 

n  n  7  0 

EditManuID, 

0020 

EditManuHndl 

0021 

0022 

c  .  . 

...Edit  manu  pre-sattings 

0  0  2  3 

^^■24 

parameter  ^ 

nEdit Items 

-,ny  c. 

parameter  ( 

Edit ItemUndc 

r-  ri  7  c 

parameter  • 

Edit ItamCut 

n  f!  ? 

parameter  < 

Edit ItemCopy 

0029 

parameter  ^ 

Edit ItemPaste 

no  ?  ■:* 

parameter  ( 

EditItemClear 

0  0  3  0 

parameter  f 

EditMenuID 

LatDivM j , 
LngDivM j , 


LatDivMi , 
LngDivMi 


EditltamCut, 
Edit ItomPaate , 


=  5  ) 

=  1  ) 

=  i  I 

-  3  ) 

i  ) 
5  ) 

-  130  ) 
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0001  o . Fileinfo.inc 


0002 

0003  c . File  information  declarations 


0004 


0005  logical*!  iGotOldFile 

0006  integer*  2  RefNum 

000"’ 

0008  c . File  information  common  block 

0009 

0012  common  ,  Fileinfo  / 

noil  s  iGotOldFile,  RefNum 


0001 

c.  .  , 

.  .  . FileMenu . inc 

0002 

0003 

c .  .  . 

...File  menu  declarations 

0004 

0005 

inteoer *2 

nFileltems 

0006 

integer *2 

FileltemNewMiasion 

000' 

integer *2 

FileltemOpenMission 

0008 

integer *2 

FileltemCloee 

0009 

integer '*2 

FileltemSave 

0010 

integer *2 

FileltemSaveAs 

0011 

integer *2 

F i 1 e 1 1  emP  ageSet  up 

0012 

integer *2 

FileltemPrint 

0013 

integer *2 

FiloItemQuit 

0014 

integer *2 

FiloMenuID 

0015 

record  /  MenuHandle 

FiloMenuHndl 

0016 

001“’ 

c .  . 

...File  menu  common  block 

0018 

0019 

common  /  FileMenu  / 

FileltemNowMission, 

0020 

6 

FileltemClose, 

0021 

& 

FileltemSaveAs  , 

0022 

& 

FileltemPrint , 

0023 

& 

FileMonuID, 

0024 

& 

FiloMenuHndl 

0025 

0026 

c .  . 

...File  menu  pre-settings 

0023 

0028 

parameter  i 

nFileltems 

002  ? 

parameter  ( 

FiloItemNewMission 

* 

0030 

parameter  ( 

FileltemOpenMission 

* 

on  T! 

parameter  ( 

FileltemClose 

* 

0032 

parameter  ( 

FileltemSave 

* 

0033 

parameter  ( 

FileltemSaveAs 

0  0  3  4 

parameter  ( 

FiloItomPageSotup 

0  0  3  5 

parameter  ( 

FileltemPrint 

0  0  3  6 

parameter  ( 

F i 1 e It  emQu it 

n  r,  T  - 

parameter  ( 

FileMonuID 

:oci 

C  .  .  . 

.  .  .  FntCom . inc 

A  /"■  * 

- :  ■:  7 

.  ..fcnt  characteristics 

I  '04 

C 

c^MTuncn  FntCom 

Fcn-Da* 

reoord  .  For.^Inf  : 

FontData 

r.  ->  p 

strina’’'255 

FntNam 

r-i  •-  o 

integer  *2 

FntNum 

FileltemOpenMission, 

FileltemSave, 

FiloItomPageSotup, 

FiloItemQuit, 


8  ) 
1  ) 
2  ) 

4  ) 

5  ) 

6  > 
9  ) 

10  ) 
12  ) 
129  ) 


FntNam, 


F  ntNum 
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0001 

c .  .  . 

. . Globala . inc 

0002 

0003 

c .  . 

..Globala  declarations 

0004 

0005 

integer *4 

inFront 

0006 

integer*! 

SloepValue 

000'' 

0009 

loaical*! 

gInBac)cground 

0009 

logical * 1 

gHasWaitNoxtEvent 

0010 

logical*! 

doneFlag 

0011 

0012 

record  /  TEHandle  / 

theinput 

^013 

record  /  SysEnvRec  / 

gMac 

0014 

0015 

c .  . 

.  ..Globals  common  block 

0016 

001'^ 

0018 

common  /  Globala  / 

SloepValue, 

0019 

gInBacJcground, 

r  0 

gHasWaitNext Event 

0021 

doneFlag, 

0022 

theinput , 

0023 

gMac 

0024 

c .  . 

, . .Globals  pre-settings 

0025 

0026 

parameter  ' 

inFront 

0027 

parameter  ' 

SleepValue 

0001 

0000 

0003 

0004 

0005 

0006 

OOOT 


.  LatCom. inc 

common  block  containing  array  of  latituda  value* 
common  /  LatCom  /  Latitude 

Latitud*  (13120) 


0001 

0002 

0003 

0004 

0005 

0006 

0000 


c . LngCom .  inc 

c  common  bloc)c  containing  array  of  longitude  values 

common  /  LngCom  /  Longitude 

j-aal  Longitude  (13120) 


0001 

C.  .  , 

,  . .MapCom.inc 

0  n  0  2 

c.  . 

.  . .Mao  data  common 

block 

0'004 

O' 0  O' 5 

parameter 

(nptamx*2048^ 

■;  0  6 

parameter 

{ nvr smx* 

64) 

a 

commcr.  Mapcom 

MapWidth , 

MapHeight , 

MapHres , 

DefMidth, 

DefHeight . 

TimeTics , 

Gridlines . 

LimitType 

npts  , 

nvrs . 

nMaps 

J  1.  ^ 

r 

, header 

O  1  1 

:  1 4 

real *4 

MapWidth 

r,  r.  c. 

real*4 

MapHeight 

■?  0 1  6 

raal*4 

MapHPea 

MapVres , 
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0017 

real*4 

MapVKes 

0018 

real *  4 

Def Width 

0019 

real *  4 

Def Height 

0020 

0021 

integer *2 

TimeTics 

0022 

integer *2 

Gr idLines 

00  2  3 

integer  *  2 

LimitType 

0024 

0025 

integer  *  4 

nptfl 

0026 

integer*  4 

nvra 

0027 

integer*4 

nMapa 

0028 

0029 

atring*255 

header 

OOOI 

c  .  . 

. . . MapLim . inc 

0002 

0003 

c .  . 

...map  limits  and 

divisiona 

0004 

0005 

common  /  MapLim 

/  xMapMn ,  xMapMx , 

xDivM j , 

0006 

yMapMn ,  yMapMx , 

yDivM j , 

0007 

tMapMn,  tMapMx, 

tDivM j 

0008 

0009 

real*  4 

xMapMn 

0010 

real  *  4 

xMapMx 

0011 

real*4 

xDivM  j 

0012 

real *4 

xDivMi 

0013 

real*4 

yMapMn 

0014 

real*4 

yMapMjc 

0015 

real*4 

yDivM j 

0016 

real*'4 

yDivMi 

OOl  7 

real*4 

tMapMn 

0018 

real*4 

tMapMx 

0019 

real*4 

tDivM j 

0001 

. . . MapMenu . inc 

0002 

0003 

c  .  . 

. . .Map  menu  declarations 

0004 

0005 

integer *2 

nMapItems 

0006 

integer *2 

iteraGetNewDataSet 

000’ 

integer *2 

it  emRe  a  i  zeTheMap 

0008 

integer *2 

itemNewMap 

0009 

integer *2 

itemSavoMap 

0  0 1  c 

integer *2 

iteniRedraw 

0011 

integer *2 

itemDone 

0  012 

integer*2 

MapMonuID 

0  0 1  3 

logical*! 

EnabloTheltem 

0  0  1  4 

logical*2 

DiaableTheltem 

r  n  ^  c 

record  /'  MenuHandle  '  MapMenuHndl 

.  .  .Map  menu  common 

block 

’  7  1  0 

ccmmcr  MapMenu  itemGetNewDataSet , 

itemP.e 

it  emtJewMap , 

itemSa 

'■'21 

& 

itemP.edraw. 

itemDo 

'■-22 

f, 

MapMenuIP. 

■  2  2 

4 

EnableTheltem . 

O'  i  s  a  1 1 

: :  2  4 

f. 

MapMenuHndl 

Map  menu  pre-aettings 


xDivMi , 
yDivMi, 


s ireTheMac , 
veMap  . 
ne , 

eThel’iem, 
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:c:3 

parameter 

(  nMapIteme 

-  6 

CC2  9 

parameter 

(  itemGetHewDataSet 

-  1 

0  C  3  C' 

parameter 

{  .itemKeeizeTheMap 

-  2 

?  '*J  3  1 

parameter 

/  itemKewMap 

-  3 

■3  C  3  2 

parameter 

{  itomSaveMap 

-  4 

C'  C  3  3 

parameter 

(  itemRedraw 

-  5 

0  0  3  4 

parameter 

f  itemDone 

-  6 

00  3  5 

parameter 

(  MapMenuID 

-  131 

■00  3  6 

parameter 

(  EnabieTheltem 

-  .true. 

■j  0  3  ^ 

parameter 

(  DiaabieTheltem 

-  .false 

0001 

C.  . 

.  .  . MBar . inc 

0002 

0  0  3 

.  .  .MBar  declarations 

0  0  C  4 

integer *2 

MenuBar ID 

0  0  0  6 

record  Menuflandle 

MenuBar 

00  0" 

0  008 

.  .  .MBar  common  block 

0009 

0012 

common  /  MBar  / 

MenuBarlD,  MenuBar 

0011 

0012 

.  .  .MBar  pre-aettings 

0013 

0014 

parameter  { 

MenuBarlD  -  128 

OOCl 

?002 

0003 

0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
'‘14 
0  0  1  5 
0  o  1  g 
001’ 
0018 
0  913 


0  0  2  3 
:  ’■2  4 


■'2  3 
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C....  NASPCOM.inc:  OKIVXRSAL  COMMON  BLOCK  LIST  FOR  NASP  SIM.  07/28/88 


COMMON  /ACOOTl/ 
LOGICAL 

COMMON  /ACSDAT/ 


COMMON  /ACSGAN/ 
COMMON  /ACSOUT/ 

COMMON  /ACTCON/ 


COMMON  .'ACTLAT; 

COMMON  , AF I LTK 
■’OMMON  .'ALCAIN 


CL0_2  ,CD0_2  ,CM0_2  , CMDE_2 , CMQ_2 

PMAN  . PAOTO  , ADTOP  , RMAN  , RAOTO  , AOTOR  , 

SBMAN  , SBAOTO, AOTOSB, HISPED, LOSPED 

PMAN  .PAUTO  ,AOTOP  , RMAN  , RAOTO  .AOTOR  , 

SBMAN  , SBAOTO, ADTOSB, HISPED, LOSPED, VDOTC  , 

ALPNOM.ANZC  , PHIC  , PHICG  , VRZFG  , ACSQC  , 

ACSPC  .ACSSBC 

AKVDOT.AKALP  , AK  , AKNZ  , AKPHI  . AKSB 
AKISE  .SBLIMI.SEIN  , SBOOT  , SBREF 
AOl JNl , A02OT1, AUJJNl , A04 JNl , A05OT1 , A06OT1 , 
A0  7OT1 , A08OT1 , A0  9JN1 , AlOJNl , AllOTI ,  A310T1 , 
A32 JNl , A330T1 , A340T1 , A61JN1 , A620T1 . A630T1 , 
A640T1, A65JN1, A660T1, A670T1 

DELA  .DELRP  , DELRN  , DELPP  , DELPN  , DELHY  , 

DERA  .DERRP  , DERRN  .DERPP  , DERPN  .DERBY  . 

DRIA  .DRIRP  .DRIRN  . DRIPP  , DRlPN  . DRIHY  . 

DR2A  ,DR2RP  . DR2RN  .DR2PP  .DR2PN  , DR2HY  . 

DRILA  . DRILRP. DRILRN. DRILPP , DRILPN . DRILHY , 
DRIRA  . DRIRRP. DRIRRN. DRIRPP. DRIRPN, DRIRHY. 
DROLA  . DROLRP. DROLRN. DROLPP. DROLPN . DROLHY . 
DRORA  . DROPRP . DRORRN , DRORPP , DRORPN . DRORHY 
DELDAT ( 10) . DERDAT( 10) . DRIDAT ( 10) . DR2DAT (10) 
DRILDT ( 10) . DRIPOT (10) . DROLDT ( 10) , DRORDT ( 10 ' 
A64F1F 

GF.HrCT,  CHLIM  , 'IKH  , 'CKL  lAL  .  ILLIM 


GKYrOT  ,  GYMAX  .  GF.Y  .  GPHIMX  ,  GKHEPP 
COMMON  ALCANA ,  GMCHBP  12!  . CK YDTA I  2 )  .  CKYA ' 2 i  , GYMAXA ( 2 > 


’MMON  ALGL'AT 


DHONOM, CAMMA2 , CAMMA4 
GVIC  , CXK  .HAL 
HDCTF  , HDOTIC. HDPXF 
HFINAL. HFLAPE. HMING 
HWHEEL,  IPHASE,  PANGE 
XAIM2  , XAIM4  , XEXP 


. OCX  . GHF  . CF 
,  HDEIAS  .  HCECA'I  ,  HDEPP 
.  HERR  ,  HERPJ<  .  HFF 
.HREF  , HREF 4  , HTD 

.SIGMA  , TA04  . VGRND 
. YDOTRW, HCTDCA 
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7  7  3  6 

COMMON 

/ALTFON, 

A 

RHO 

.  G 

,  PA 

TEMPR 

~1  |0 

COMMON 

/  ARFMIC, 

AMSSIC, 

FMSSIC, 

.  FMSMAX 

,AIXIC  . 

AIYIC  , 

A121C 

C'  0  3  8 

LOGICAL 

IF CRON 

■:  3  9 

!♦# 

INTEGER* 8 

lACNT  ,  IBCNT 

7  0  4 

COMMON 

.'AP.OFLG/ 

IFORUN, 

lACNT  , 

.  IBCNT 

.  INTCNB. 

ITAERC 

:  :4i 

COMMON 

'APOUT2 

CLLB  . 

CLLDA  . 

-  CLLDR 

,  CLLP  , 

CLLR  . 

: ; 

CLNB  , 

CLNDA  , 

,  CLNTR 

,  ^LNP 

CLNR 

CYB 

CYDA 

,  CYDP 

:  4  4 

70MMCN  . 

,  ATOVAR/ 

ITYPE.  GS 

:':45 

COMMON 

/A30UT1.'' 

CL0_3  , 

CDO  3  , 

,  GDI  3 

,  CMO_3 

0 4  8 

rOMMON 

blooti 

CLO  B  , 

CD0_B  , 

,  CMC  B 

,  CMDE  B,CMQ  B 

'■:4^ 

COMMON  . 

,'CGSHFT.' 

DELX 

DELY  . 

,  DELE 

?  0  4  8 

CHARACTER *4 

DNAMES 

•  DNAME  ,C: 

MANDS 

. CMAND 

4  ^ 

COMMON 

.■CHNGDS/ 

DNAMES ( 100) , DNAME  .CMANDS(2C 

i)  .  CMAND 

1  ,  idsfg; 

7  C  5  7 

COMMON 

/C I COAT/ 

ICN 

RATIC 

0  7  51 

COMMON 

1  CLCOUT/ 

CLL 

CM 

,  CLN 

,  CD 

CL 

CY 

0  :  5 1 

CN 

CA 

,  XLOD 

0:53 

COMMON 

/CONCOM>' 

DAC 

DEC 

,  DRC 

,  DELC  , 

DERC  , 

DRIC 

'7^54 

DR2C 

DRILC 

,  CRIRC 

.  DROLC  , 

DRORC  , 

THRC 

"055 

rOMMON 

.'CONDAT;' 

RIl 

RI2 

,  RI3 

,  RI4 

RI5 

RI6 

■•-5  8 

SB 

SC 

SM 

•)  ri  c  ■' 

COMMON 

'CONFIG/ 

BCOLEN 

CGREF 

,  PMAC 

,  ICONFG 

70  50 

LOGICAL 

DIRECT 

7  '7  5  9 

COMMON 

.  CONPOS, 

DAP 

DEF 

,  DP-P 

,  DSBP 

DBFF 

DLGF 

.  7  8  7 

THRP 

DIRECT 

"78: 

COMMON 

CONTP.L. 

DA 

DE 

DP 

,  DEL 

DER 

DPI 

7  '7  87 

DR2 

DRIL 

DRIR 

,  DROL  . 

DROP  , 

DPI 

:■  8  3 

DRO 

DRV 

DSB 

7  7  84 

COMMON 

■CSINIT; 

P04A 

P06A 

P13A 

,  P13B  , 

Y05OMG. 

Y052ET, 

7  7  8  5 

Y08A 

YlOA 

Y12A 

OCb' 
?  I?  ? 

'■  Cl 
p  "f 
00"  1 
oo”: 
00  "3 
00 ’.I 


0''  90 

T  0  ’ 


;  9  3 
'94 


,  AIXZ 


CHAFACTEP, 
LOGICAL*! 
COMMON  -CACLIS- 


coMMON  'datain; 

COMMON  /DBANDS/ 


COMMON 

LOGICAI 

COMMON 

REAL‘8 


NAMV*12,NAMI*12,  ITYPVP*! 

DEGMOD, WGHTMD , NFOOND 

VALDtlS)  ,  lADRUe)  ,NAMV(16)  ,  NAMI  ,  DEGMOD  (16)  , 
WGHTMD (16) , ITYPVR(16) . NFODND . XMXVAL< 16) , 

XMNVAL  (16)  ,  SCAL(16)  .  BIAS  (16)  ,  NBYTES  (16) 

S  ,B  ,CBAR  ,AMSS  . AIX  ,AIY 

AID  ,AIXD  ,AIXE 

PDBAND, RDBAND. YDBAND. DEDBl  . DEDB2  , DADBl  . DADBl 
DRDBl  ,DRDB2 

DIRGAN/  PDIRGN, RDIRGN, YDIRGN 
'1  SSW, OSW 

DISDAT/  SSW (256) , OSW (256) 


COMMON 


T  ,  P 

WH  ,  TEA 

LON_RAD 
'DRVODT/  T 


-Q 

,  PSI 


.  R 

,  PHI 


,  RDH 
,  DELR 


,PSIH 
,  LAT  RAT 


,F  ,a  ,R  .RDH  ,PSIH 

WH  , THA  ,FSI  .PHI  .DELR  , LAT_PAC 
LON  RAD  , TDOT  , PDOT  . QDOT  ,  RDOT  , RDHDCI 
PSIHDT, WHDOT  , THADOT, PSIDOT,  PHIDOT,  DELPUT, 
XLATDT, XLNGDT 


COMMON  /DPVOT2,'  ALF 


,  ALPDCT.BTA 
,  v't'OT  ,  X 


. BTADOT, 
. XDOT  , 


HOCI 

iDCI 


H  M 

R£AL*8 

VAL 

H  -t 

7HARACT 

EP»80 

LINE 

COi'-iM'-’N 

DSP  LAY 

LINE  (2  3 

>: 

TFAGE 

^ .. 

~"MMCN 

ITAHLl 

dta  1  r: 

'i:- 

lEST.AT. 

'•4  4 

"'^MMON 

ENGCOM 

TKP.ST  . 

'  - 

"■‘MMCN 

ENGCO  3 

•^TA 

L  7  j I  7AL 

ATOP Hi 

C'7MMON 

ENGDTl , 

PHICMD, 

XEOUT  , 

2  2 

ATOPHI  . 

,  ASCI  IN.  VAKLEQ.  VAPP.EQ 
*  .  ASCriN.  VAFLEv  '-'APPE:  . 

.  iriDXVP  ,  LF  'F 
'  .  ATI  --  AT 

lASTAT.  n^mta:.  : 

TFA7TP 

TTU  .  THRST!! 


AC 


.  AINF 


EODPAG, CICOEF, 
CAPP  . EFFISF 


.  FS  -ElSf 

ZCOEF. C3COEr. 


3  ENG 

:4ccEr, 


29 


CHR/91  -2750 


3 


0100 

COMMON 

/ENGDT2/ 

DCMMAX, DCMFCT, DCMEO 

, OWEOOT, XNOOT  , CPRS  , PC 

0101 

DVHCL  , BTAP  , BTAO 

,BTASD  , BFACTR, TLIMCB, SINDVH 

0102 

COSDVH 

0103 

LOGICAL 

FOUT  ,  NOWC 

0104 

COMMON 

/ENGINE/ 

FQNTY  , FFLOW  , FOOT 

,  NOWC 

0105 

REAL* 8 

RLOCAL 

0106 

COMMON 

/EOMDAT/ 

RLOCAL.FXB  , FYB 

, FZB  , DLV  , VLV 

0107 

WLV  ,  OLVRA  , VLVRA 

, WLVRA  , AXLV  , AYLV  , 

0108 

AZLV  ,AXH  ,AYH 

,AZH  ,XL1  ,XL2 

0109 

XL3  ,  XMl  ,  XM2 

,  XM3  ,  XNl  ,  XN2 

0110 

XN3  ,SINPSH,COSPSH 

0111 

COMMON 

/EPDATA/ 

T4T0A  (2),T4T0R 

T4T0  ,T4 

0112 

T5T4A  (2) , T5T4R 

T5T4  , T5 

0113 

P4P0A  (2),P4P0R 

P4P0  ,P4 

0114 

P5P4  ,P5 

0115 

TTEMPR  ,CONRAT  , WDLAIR 

0116 

MSWPA  (2),WSWPR  ,WDSWDP 

0117 

PFPT  ,PTPA 

PTLSS 

0118 

PCHMBR 

0119 

XMACH  (5),PAPSI 

0120 

COMMON 

/EPDATB/ 

COEFlH(2) ,COEF2H(4) , 

COEF3H(2) ,C0EF4H(4) ,C0EF5H(4 

0121 

COEF6H(3) ,C0EF7H(7) 

0122 

COMMON 

/EPDATL/ 

COEFlL(2) ,C0EF2L(2) , 

COEF3L(2) ,COEF4L(2) ,C0EF5L(2 

0123 

COEF6L(2) ,COEF7l(2) , 

COEF8L(2) ,COEF9L(3) ,COE10L(3 

0124 

COEllL(3) ,C0E12L(3) , 

COE13L(4) ,COE14L(2) ,COE15L(2 

0125 

C0E16L(5) 

0126 

LOGICAL 

ESSWTH 

0127 

COMMON 

/ESCOMN/ 

ESSWTH 

0128 

LOGICAL 

INITLZ, HOLDIC 

0129 

COMMON 

/FRSTIC/ 

INITLZ, HOLDIC 

0130 

REAL*e 

RICl  ,RIC2  ,RIC3 

,RTG1  ,RTG2  , RTG3  , 

0131 

RNGIC  ,RNGRM  ,CSLT1C 

, SNLTIC, CSLNIC, SNLNIC, 

0132 

CSLTRW, SNLTRW, CSLNRM, SNLNRW 

0133 

COMMON 

/GCCALC/ 

RICl  ,RIC2  ,RIC3 

,RTG1  ,RTG2  , RTG3  , 

0134 

RNGIC  ,RNGRW  , CSLTIC 

,  SNLTIC,  CSLNIC,  SNLN'^C, 

0135 

CSLTRW, SNLTRW, CSLNRW 

, SNLNRW, BEAR  , DELAZ 

0136 

COMMON 

/GCSOOT/ 

GOIOTI , G02OT1, a03OTl 

,G04JN1,G050T1,G06JN1, 

0137 

G070T1,G080T1,G090T1 

,  GlOOTl , Gll JNl , G120T1 , 

0138 

G310T1,G320T1,G330T1 

,G34JN1,G350T1 

0139 

LO*^  X  —  AL 

GEAR 

0140 

Cl  .  *MON 

/GEAR CM/ 

GEAR 

0141 

COMMON 

/GEARFM/ 

ALGR  , AMGR  , ANGR 

,  FXGR  , FYGR  , FZGR 

0142 

COMMON 

/GEARIN/ 

XG0(3)  ,  YGO(3)  ,2G0(3) 

,XKRG(3) ,XKD(3) ,XKBRR, 

0143 

XMUG,XMUR,XMUS(3)  ,  AMAXB 

0144 

LOGICAL 

GC 

0145 

COMMON 

/GEAROT/ 

ZG(3) ,DZG(3) ,D2GD0T(3) ,FBG(3) ,FDG(3) , 

0146 

FRG(3) ,FSG(3) ,FXBG(3) ,FYBG(3) ,GC{3) , 

014^ 

XGB(3)  ,  YGB(3)  ,ZGB(3) 

, PSIM(3) 

0148 

COMMON 

/GERE YE/ 

XGEAR  , ZGEAR  , XEYE 

,  ZEYE 

014  9 

COMMON 

/GFILTK/ 

G09F1K, G12F1K 

A  2^  C 

LOGICAL 

LOGO  , LOGO 

Cl  51 

COMMON 

,'GLOBAL04/  I  LIST  (13,  62, 3)  ,  IVT  (3)  ,  IDEV(3)  ,  IPRl  (3)  , 

0152 

lOCDO)  ,  IOLIST(4, 5 

,3) .  ILAST(3)  , 

015  3 

ITILOC  (31  ,  11553  (57  6)  ,  DLK(12  8)  ,  RADAR  (16)  , 

0154 

IBD/32)  ,  LOGO (32)  ,  OLK (16) , SCV ( 16)  , SCB (16), 

■"155 

SCS ( 1 6 )  .  I BO ( 3  2 )  . LOGO (32)  . PMDO ( 2  5  6 ) 

0156 

COMMON 

■  GFANDS, 

c 

015" 

COMMON 

OSTINF. 

SIGN  ,SIGV  ,SIGW 

.  DLO  ,CLV  ,  DLW  .VP.EF 

0159 

COMMON 

'GSTINT  ■ 

CU  . CV  . cw 

.  Cf  .CO  .CP 

■'■15  9 

EXCl  ,EXV1  . EXWl 

.EXFl  , EXGl  , EXRl 

0160 

EXV2  , EXWl  . EXV^ 

. EXW3  ,OGl  ,VG1 

0161 

WGl  , PGl  , QGl 

,  RGl  , VG2  , WG2 

0162 

GUI  ,GV1  ,GW1 

,GP1  ,GQl  .GRl 

016  3 

GVl  . GW2  , SFV 
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0164 

COMMON 

/GSTOOT/ 

ALPG  , BTAG  , PG  , QG  , RG  , OG 

0165 

VG  ,MG 

0166 

LOGICAL 

GSTSET, GST 

016' 

COMMON 

/GSTDSE/ 

GSTSET, GST 

0168 

LOGICAL 

GINIT 

0169 

COMMON 

/GUIDI2/ 

GDKl  ,GDK2  , GDK3  , GDK4  , GDK5  , GDK6  , 

0  1 ' 0 

GDK7  ,GDK8  , GDK9  , GDKIO  ,GDK11  ,GDK12  , 

0 1  0  1 

GDK13  ,GDK14  ,GDK15  ,GDK16  , GDKl 7  , XKROLL, 

01'2 

VQ  ,XLODM  ,VS  , GINIT 

0103 

COMMON 

/GOIDI3/ 

RNGBKP(15)  ,AMCHDA(15)  ,  QBRNML  ,  QBRNMH 

01'4 

COMMON 

/GUIDNC/ 

IGOIDE 

017  5 

COMMON 

/GOID02/ 

THAACD.PHICD  , DD  , THAACl , PHICDl , DREFP  , 

010  6 

ALDREF,  HDTREF,  DRAGA 

010’ 

COMMON 

/aDID03/ 

QBRCMD, QBRNOM, QBRERR 

01'8 

CHARACTER*72 

HEADER 

C109 

COMMON 

/HDRCAT/ 

HEADER 

0180 

COMMON 

/HEATIC/ 

QTSir  (2),QSIC  (2),TWSIC  ( 2 ) , QTFIC (20) , 

0181 

QFIC  (20) , TWFIC (20) 

0182 

COMMON 

/HETDAT/ 

QTSTAG(2) ,0STAG  (2) , 2WSTAG(2) ,QTFLAT(20) , 

0183 

QFLAT(20)  ,  TWFLAT{20) 

0184 

COMMON 

/HETDOT/ 

QTSD0T(2) ,QSD0T  (2) ,TMSDOT(2) ,QTFDOT(20) , 

0185 

QFDOT  (20)  ,  TWFDOT  (20) 

0186 

COMMON 

/HETDTl/ 

XMUINF,RHOLB  , ENTHI 

0187 

COMMON 

,'HETDT2/ 

ENTERS (2) ,ENTHST(2) ,ENrHWS(2) ,HrRANS(2) , 

0188 

PAST(2)  ,PAM(2)  ,RHOM(2)  ,RSTMST(2), 

0189 

RWMW(2)  ,TMPST(2)  ,  TRST'- ,.  (  2 )  ,  VGRAD  ( 2  )  , 

0190 

XMDM(2) 

0191 

COMMON 

/HETDT3/ 

SWEEP(2)  ,COSSWP(2) ,SINSWF(2) ,RCDRVE(2)  , 

0192 

IDIMEN(2) ,HK0(2)  .EMISIV  ,RADIAT 

0193 

HCAPS 

0194 

LOGICAL 

TRBLNT 

0195 

COMMON 

/HETDT4/ 

TRBLNT{20)  ,R£VNLD(20)  .tmBWTlZO)  .BNTBRTiZO) 

0196 

TMPRF(20)  ,ENSTAR(20) ,TSTAR(20)  ,HTRANF(20) 

0197 

HIF(20)  ,HTF(20) 

0198 

COMMON 

/HE1DT5/ 

XDISTN(20) ,RNREF(20)  ,ALOGRT(20) ,COEFM(20) , 

0199 

CO  (20)  ,HCAPF  ,C5(20)  ,DANGL(20) 

0200 

COMMON 

/HTODTl/ 

Cl  ,C2(10),C3  ,C4(10),C6  ,C7 

0201 

Fl(lO) ,F2(10) ,HK1  ,HK2 

0202 

LOGICAL 

DSC 

0203 

COMM'  N 

/ICBOXD/ 

DSC(6) 

0204 

COMMON 

/IDXACl/ 

NCA 

0205 

COMMON 

/IDXA31/ 

lAA  ,  ICA 

0206 

COMMON 

/IDXBLl/ 

MCA 

020"' 

COMMON 

/IDXTMl/ 

LAA  ,  LCA  ,  LCB  ,  LCC  ,  LCD 

0208 

lea  , LEB  , LEC  , LED 

0209 

COMMON 

/IDXT21/ 

JCA 

0210 

COMMON 

/IDXT31/ 

JAA3  , JAB3  , JAC3  , JAD3  , JCA3 

0211 

JCB3 

0212 

COMMON 

/INERTP/ 

VOI  , ALPOI  , BTAOI  , GMAOI 

'’213 

COMMON 

/INGDAT/ 

NEQN  , HI  ,  H2 

^214 

COMMON 

/INGDA3/ 

HI3 

0215 

COMMON 

/INTEST/ 

IB  ,  IPER  , lERR  , INTTMB, INTBMX, INTTME, 

'Oil  6 

INTEMX, INTTMU, INTDMX, INTCNT, INTTBA, INTTEA, 

021' 

INTTOA, INTRCL 

;  218 

COMMON 

/IN  3  DAT,' 

IH3  ,  IPER3  ,  I  ERR.  3  ,  IN3TMB .  IN3BMX ,  IN3TME  , 

■  2  1 

IN3EMX, IH3TMD, IN3DMX, IN3CNT 

2  ^ 

COMMON 

'■lETDAT,' 

XJETF  .Y  JETF  ,  XJETP  .  C CETF  ,  FRCJET ,  QBAP.SW, 

0:21 

JETC(12) , JEI (12) 

21 2  2  2 

CHARACTER* 8 

MCLABL 

C'  2  2  ? 

COMMON 

'MCDEFL ' 

MC  LADL 

::24 

CHAPAC' 

rEP*8 

MCAPRY 

-  -0  c 

COMMON 

/MCMENA/ 

INDXMC,MCARRY(96) 

^22^ 

COMMON 

/MCVALD/ 

PFOEL  ,  XMCMAP  ,  YMCMAP 

2  2  2”' 

CHARACTER*12 

NAMVM 
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0228 

CHARACTER* 1 

ITPVRM 

0229 

LOGICAL*! 

DGMODM, WGHMDM, FODNDM 

0230 

COMMON  /MSCLIS/ 

VALaM(60) , 

IADPM(60)  ,NAMVM(60)  ,  DGMODM  (60)  , 

0231 

WGHMDM (60) 

,  ITP'/RM(60)  ,  NBYTSM(60)  ,  rOONDM(60) 

0232 

MSCNDM 

0233 

CHARACTER* 6 

MCDEV 

0234 

LOGICAL 

LMSCMP.MCRST  , MCLEAR 

0235 

COMMON  /MSSCMP/ 

LMSCMP.MCRST  , MCLEAR, MCNT  , MCNTMX, MCSTAT, 

0236 

MCD LAY, MCDEV 

0230 

COMMON  /MOMNTS/ 

AL  ,  AM 

,  ANN 

0238 

LOGICAL 

LRECV 

0239 

COMMON  /MSSGES/ 

N0MKES , IRTADR ( 62 ) , ISDBA ( 62 ) , IWRDS ( 62 ) , 

0240 

INDX(62) , LRECV (62) 

0241 

C## 

EXTENDED  BASE  /NASPSC/ 

356 

0242 

CHARACTER 

LSTNAM»8, LSTTYP*! 

0243 

cr  c 

INTEGER* 1 

LSTLEN 

0244 

INTEGER*2 

LSTLEN 

(dkh 

0245 

C## 

EXTENDED  BLOCK 

0246 

COMMON 

0247 

/NASPSC/ 

LSTNAM (3500)  , LSTTYP (3500)  , 

0248 

LSTLEN(3500) , LSTADR (3500) 

0249 

Ct* 

EXTENDED  BASE  /NSPACA/ 

268 

0250 

c## 

EXTENDED  BLOCK 

0251 

COMMON 

0252 

/NSPACA/ 

CL0_2A  ( 

199),CD0_2A  (  189),CM0_2A  ( 

189)  , 

0253 

CMDE_2A ( 

189) ,CMQ  2A  (  189) 

0254 

c#* 

EXTENDED  BASE  /NSPAM3/ 

292 

0255 

c*i 

EXTENDED  BLOCK  /NSPAM3/ 

0256 

COMMON 

9257 

CL0_3A  ( 

375), CDO  3A  (  375), CDI  3A  ( 

34)  , 

0258 

CMO  3A  ( 

375) 

0259 

c## 

EXTENDED  BASE  /NSPBLA/ 

272 

02  60 

c## 

EXTENDED  BLOCK 

0261 

COMMON 

0262 

/NSPBLA/ 

CL0_BA  ( 

169),CD0_BA  (  169),CM0_BA  ( 

169)  , 

0263 

CMDE  BA( 

169) ,CMQ  BA  (  169) 

0264 

c*4 

EXTENDED  BASE  /NSPBLP/ 

280 

0265 

c*« 

EXTENDED  BLOCK 

0266 

COMMON 

0267 

/NSPBLP/ 

ClISPA  ( 

810),C2ISPA  (  450),C3ISPA  ( 

540)  , 

0268 

C4ISPA  ( 

540),CAPR1A  (  90),CAPR2A  ( 

50)  , 

0269 

CAPR3A  ( 

54),CAPR4A  (  54),CDEOA  ( 

17) 

0270 

c## 

EXTENDED  BASE  /NSPDUM/ 

256 

0271 

ct* 

EXTENDED  BLOCK 

0272 

COMMON 

0273 

/NSPDOM/  ZZZZZZ 

02  7  4 

c## 

EXTENDED  BASE  /NSPHET/ 

276 

0275 

c## 

EXTENDED  BLOCK 

02 ' 6 

/NSPHET/ 

ENTHA  ( 

192) ,ClA  (  7) ,C2A  ( 

48)  , 

02-’7 

C3A  ( 

7),C4A  (  48),C6A  ( 

32)  , 

02'8 

C7A  ( 

32),F1A  (  49),F2A  ( 

49)  , 

r  2"  'i 

HKIA  ( 

7),HK2A  (  7) 

0  2  90 

COMMON  /ORIGIC/ 

FIC(13) 

02  81 

COMMON  /OVPRES,' 

BKl  , BK2 

,BK3  ,BODLEM,CROOTM,CSDIAM, 

02  92 

O’/PLNM,  OVPRNM,  OVPVNM,  OVRPRS,  PANM  ,  FONM 

02  03 

XLIFTN, YM 

0  2  0  4 

COMMON  /'PCSODT,' 

POIOTI , P02OT1, P03OT1. F940T1,  P05 JNl ,  FO 60T1 , 

0285 

PC70T1, PC8CT1, P09JN1 , PlOJNl , PllOTl , P120T1 . 

02  8  6 

P130T1,  P140T1.P15JN1,F16C'T1,  P  1 70T1 ,  PI  80T1 

0  2  S  ■ 

CHAPACTER 

CFEN*32,  HAM’/P*12,  ITPVRP*! 

0289 

LOGICAL*! 

DGMODP , WGHMDF , FOUNDF 

0. 2  8? 

COMMON  /PENLIS/ 

VALOP(12)  , 

IADPR(12)  ,NAMVP(12)  , DGMODP (12) 

, 

02  ?0 

WGHMDP (12) , 

ITPVRP (12) , NBYTSP ( 12) , FODNDP (12) 

, 

0  2  91 

CPEN (12) 
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COMMON  /FFILTK/  P04F1K, P04F2K, POSriK, P06F2K, P13F1K, P13r2K, 
P13F3K,P14F1K 


0294 

COMMON 

/PGAINS/ 

XKDEP 

,  XKP  , XKM 

,  XKQBAR, XKI 

0295 

COMMON 

/PHIDAT/ 

PHICA(20)  ,PHIMA(20)  ,1 

NDMPHI 

0296 

LOGICAL 

OSEPIL, PILTIC 

0297 

COMMON 

/PILOSE/ 

OSEPIL 

,  PILTIC 

0298 

COMMON 

/PRINFO/ 

IR 

,  OP  I  ,  TMAX 

,  ITITL(12) 

0299 

COMMON 

/PTHGAN/ 

P16KAN, P17KAN, P18KAN 

,  R08KAN,  R09KAN,  Y21BCAN, 

0300 

Y22KAN 

,  Y23KAN,Y24KAN 

,  Y25KAN 

0301 

COMMON 

/QBGODT/ 

PHISTB, XLIFTV, XLIFTE 

,  HDOTRF, DLIFT 

, XLIFTC, 

0302 

DTHAC 

,  QBKl  ,  QBK2 

,  QBK3  ,QBARRF,ZETA  , 

0303 

QBARCA(IO) ,QBARMA(10) , NUMQBR 

0304 

COMMON 

/RATACl/ 

CAM21 

,  CALP9 

0305 

COMMON 

/RATADl/ 

CAL25 

,  CAM15  , CAM34 

0306 

COMMON 

/RATBLl/ 

BALP9 

,  BAM13 

0307 

COMMON 

/RATTMl/ 

TALP9 

,  TAMA9  ,  TAMB5 

,  TAMC6  ,TAMD6 

,TAM17  ,TPH10 

0308 

COMMON 

/RATT21/ 

UAM17 

,  OPHll 

0309 

COMMON 

/RATT31/ 

OAMC5 

,  OAMC2  ,OAMC3 

,  UAMC4  , DAMC6 

, UALP  9 

0310 

COMMON 

/RCSJET/ 

RCSN 

,  RCSA  ,  ROSY 

,  RCSM  , RCSYM 

,  RCSL 

COMMON  /RCSODT/  ROIOTZ , R02OT1, R030T1 , R04 JNl , R05OT1 , R06OT1 , 
R07OT1 , R08OT1 , R09OT1 

REAL* 8  REQOAT,RPOLE  ,  OMEGE  ,  RADIOS ,  RADIO  ,  RADRWY 


REAL  *  8  REQOAT , RP  OLE 

COMMON  /REARTH/  REQOAT,  RPOLE 


,  OMEGE 
,  OMEGE 


,  RADIOS,  RADIC  ,  RADRWY 
,  RADIOS, RADIC  , RADRWY, 


GZERO  ,SINLi 
COMMON  /REVNOM/  IREVNM 
COMMON  /RGAINS/  XKDAP  , XKMA 


SINLAT, COSLAT, TANLAT 


,  XKQBRA 


LOGICAL  ONROCK 

COMMON  /ROCKET/  ONROCK, EXPRAT, RKTHRO, XIMPLS, AREACN, AREATH, 
RKTHRS , RKFFLO 
LOGICAL  RSTREC, RSTTME 

COMMON  /RSTTIM/  RSTREC, RSTTME 


LOGICAL  OP  ,RST  ,  HLD  ,  RT  ,  ATRM  ,  ICEN  ,1 

COMMON  /RTCDAT/  OP  , RST  , HLD  , RT  , ATRM  , ICEN  ,1 

CHARACTER*24  RDWPTH, RDRPTH, RDWPTL, RDRPTL 

LOGICAL  RTINIT.RTWRIT 

COMMON  /RTDATA/  RTDATW ( 17 4 ) , RTDATR ( 174 ) , RTINIT, RTWRIT, 

NRONW  ,NRONR  , IFRAMW, IFRAMR, IWRITS , IREADS , 
IWRTFR, IREDFR, RDWPTH, RDRPTH, RDWPTL, RDRPTL 
COMMON  /RTiDIS/  ISSW ( 8 ) , I03W ( 8) 

COMMON  /RT:INC/  INCERR 
COMMON  /RTSTAT/  RTIRAT 

REAL*8  XLATO  , XLNGO  , RNWLAT, RNWLNG 

COMMON  /RUNWAY/  XLATO  , XLNGO  , ROTRW  , SINHDR, COSHDR, XDISRW, 
YDISRW, XRNWAY, YRNWAY,ROTVIS, SINVIS , COSVIS , 
XVIS  ,YVIS  ,ROT«AP,SINMAP,COSMAP,XMAP  , 
YMAP  ,PSIM  ,XVISO  ,YVIS0  , RNWLAT , RNWLNG 
LOGICAL  LPRNT  , FFEED  , LLOCK  , UNLOCK, STNDBY, LRUN  , 


CHRTON, LMARK  , LSC 
CHARACTER* 40  PENBUF 
COMMON  /SCDATA/  LPRNT  , FFEED  , LLC 
CHRTON, LMARK  , LSC 
MMPHR  , IRON  ,PEN 
CHARACTER* 8  SCLAHL 

COMMON  /SCDEFL/  SCLABL 
CRARACTEP*9  SCARRY 

COMMON  /SCMENA/  INDXSC. SCARRY ( 96) 
CHARACTER*!  SCTYPE 

COMMON  /SCTYPE/  SCTYPE 


,  LLOCK  , UNLOCK , STNDBY , LRUN 
,  LSCALE, SCINIT 


LLOCK  , UNLOCK, STNDBY, LRUN  . 
LSCALE, SCINIT, MMPSEC, MMPMIN, 
PENBUF  (16) 


COMMON 

COMMON 


/SELDAT,'  XACCEL,  YACCEL, 


0351 

REAL*0  TIC 

,  PIC 

,  QIC 

.  P-ir 

•RUHIC  .F3IHIC, 

0352 

WHIC  , 

,  THAIC 

, psiic 

,  PHIIC 

. DELRIC, XLATIC, 

0353 

XLNGIC 

0354 

COMMON  /SETICS/  TIC 

,  PIC 

,  QIC 

,  RIC 

,RUHIC  ,PSIHIC, 

0355 

WHIC  , 

,  THAIC 

, PSIIC 

.PHIIC 

, DELRIC, XLATIC, 
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XLNGIC 

COMMON  /SETIC2/  VIC  ,ALPIC  , 
SBTAIC, CBTAIC 
COMMON  /SIGNAL/  SIGNL 
COMMON  /SIMACC/  AXB  , AYB 
CHARACTER*80  MACFIL, SCRFIL 

LOGICAL  LMACRO, SCRIPT 


, SALPIC.CALPIC, 


COMMON  /SIMACC/  AXB  , ATB  , AZB  , ANX  , ANY  , ANZ 
CHARACTER*80  MACFIL, SCRFIL 

LOGICAL  LMACRO, SCRIPT 

COMMON  /SIMCON/  MACFIL, SCRFIL, LMACRO, SCRIPT, LFCM  , LFCS 
COMMON  /SIMOOT/  AMCH  , QBAR  , GMA  , DELFP  , OBRA  , VBRA  , 
MBRA  ,VEAS  ,  VCAS 
LOGICAL  RDNSTP 

COMMON  /SIMSTP/  RONSTP , ALPMAX, ALPMIN, BTAMAX, NFRHLD, HMIN 
LOGICAL  NORMAL, LONGIT, LATDIR, LEVEL  , BYPASS, TYPEIN 

COMMON  /SIMTYP/  NORMAL, LONGIT, LATDIR, LEVEL  , BYPASS , TYPEIN 


0370 

COMMON  /SPEEDS/ 

SBDRAG,CDSB  , 

CDSBl  , 

,  SSB 

,  PRCTSB 

0371 

REAL* 8 

THATK  ,PHITK  , 

PSITK  , 

,  XTK 

,  YTK 

,HTK 

0372 

LOGICAL 

PYBM  , FXRG 

0373 

COMMON  /TARGET/ 

THATK  , PHITK  , 

PSITK  , 

,  XTK 

,  YTK 

,  HTK 

0374 

VEASTK , RANGET , WUTG 

,  REVT 

,  PSICI 

,  F1E2 

03  75 

F1K2  ,PYBM  , 

TARH  , 

,  TARX 

,  TARY 

,  FXRG 

0376 

crc 

INTEGER*! 

HOMEC  , CORSOR, ENABLC , BLAHKC , BLANKL 

0377 

INTEGER*2 

HOMEC  , CURSOR, 

ENABLC, 

,  BLANKC 

,  BLANKL 

IdJch 

0378 

LOGICAL 

TWOTEL 

COMMON  /TERMNL/  ITYCRT  , TWOTEL  ,flOMEC(10)  ,CORSOR(10), 
ENABLCdO)  ,BLANKC(10)  ,BLANKL(80)  ,IHOME 
ICURS  , lENABL  , IBLNKC  , IBLNKL 

COMMON  /TMODTl/  CUSP  ,C2ISP  ,C3ISP  ,C4ISP  ,  CAPRI  ,  CAPR2  ,  CAPR3 
CAPR4  ,CDEO 

COMMON  /TRIGFN/  SINALP , COSALP , SINBTA, COSBTA, SINPHI , COSPHI , 
SINPSI, COSPSI, SINTHA, COSTHA 
COMMON  /TRIMIN/  YTRIM 

EXTENDED  BASE  /NSPACP/  288 
EXTENDED  BLOCK 
COMMON 

/NSPACP/  EISPAA  (  187),CAPRAA  (  187) 

COMMON  /T20DT1/  EISPA  , CAPRA 

COMMON  /T3DAT1/  CTAIA  (  5),CTA2A  (  2),CTA3A  (  3) 

CTA4A  (  54),CTN1A  (  5),CTN2A  (  2) 

CTN3A  (  3),CTN4A  (  4),CAPR31A(  5) 

CAPR32A(  2),CAPR33A(  3),CAPR34A(  36) 

EISP31A(  5),EISP32A(  2),EISP33A(  3) 

EISP34A<  4) 

COMMON  /T30DT1/  CTAl  , CTA2  , CTA3  , CTA4  , CTNl  , CTN2  ,CTN3 


2) ,CTA3A  ( 
5) ,CTN2A  ( 
4) ,CAPR31A( 

3)  ,CAPR34A( 
2) ,EISP33A( 


EISP34A<  4) 

COMMON  /T30DT1/  CTAl  , CTA2  , CTA3  , CTA4  , CTNl  , CTN2  ,CTN3  , 
CTN4  , CAPR31, CAPR32 , CAPR33 , CAPR34 , EISP31, EISP32, 
EISP33, EISP34 
LOGICAL*!  LX 

COMMON  /VARDAT/  DX ( 90) , LX ( 50) 

LOGICAL*!  LS 

COMMON  /VARSIM/  OS ( 90) , LS (50) 

COMMON  /VSCDAT/  VBAR  ( 22 ) , TRATIO (22 ) , TPRIME ( 22 ) , CINF  (22), 

REYINF  , TINF  , SHRAT 

LOGICAL  WIND 

COMMON  /WINDAT/  WIND  , XWIND  , YWIND  , NOMWND , ALTW (32 ) , VELW (32 ) , 
HDGW(32) ,XWA(32) ,YWA(32) 

COMMON  /YCSOOT,'  YOlOTl , Y020T1 , Y03OT1 , Y04OT1 . Y050T1 , Y06OT1 . 

Y07JN1, Y08OT1, Y09CT1, YlOOTl. YllOTl ,  Y120T1 , 

Y130T1 , Y140T1, Y150T1, Y16JIU, Y17JN1,Y18JN1, 

Y190T1 , y20OTl , Y210T1 , Y220T1 , Y230T1, Y240T1 , 

Y250T1 

COMMON  ,  YFILTK  YCIFIK,  Y05F1K, Y05F2K. Y05F3K,  YC5F4K, YCSFSK, 

Y08F1K, Y08F2K, YIOFIK. Y1QF2K, Y12F1K, Y12F2K 
COMMON  /YGAINS/  XKRT  , XKDRF  , XKR  , XKMR  ,XKQBRR,XKRR 
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0001 
0002 
0003 
0004 
0  0  5 
0006 
000^ 
0008 
0009 
0010 
0011 


c . NASPGCom .  me 


0034 
0035 
0036 
003'' 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
00  4  7 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
005  5 
005  6 
0  i.  5  ^ 
00  5  8 
0059 
0060 
0061 
0062 
0063 


C  .  . 


C## 

c*# 


c## 

c## 


:♦# 

:## 


GRAM  PROGRAM  COMMON  BLOCKS.  2/16/89  LJS . 

SOME  GRAM  PARAMETER  NAMES  WERE  CHANGED  IN  THIS  RODTINE 
TC  AVOID  CONFLICT  WITH  DRYDEN  SIM  PARAMETER  NAMES. 

GRAM  PARAMETER  NAMES  WITHIN  THE  GRAM  ROUTINES  WERE  UNCHANGED. 

EXTENDED'S  REMOVED  FOR  MAC  10/16/89  LJS. 


EXTENDED  BASE  /C4 
EXTENDED  BLOCK  /C4 


464 


0012 

COMMON 

/C4  / 

GLAT(16) ,GLON(16) , NG 

,P4D(16, 

26) ,D4D ( 

16,26)  , 

0013 

T4D(16 

,26) ,SP4 (16,26) 

,  SD4  (16,  26) 

ST4 (16, 

26)  , 

0014 

THETl 

,  THET 

HS 

0015 

COMMON 

/CHIC  / 

LA(4,4)  ,NB(2) 

IWSYM,UCOEF(14, 9) ,VCOEF(14 

,  9) 

0016 

COMMON 

/COMJAC/ 

XLATJ 

,  XLONG 

SDA 

SHA 

,  DY 

,R88 

,TE 

0017 

EM 

0018 

COMMON 

/COMPER/ 

SPH 

,  SDH 

STH 

PRH 

,  DRH 

,TRfl 

,  DRH 

0019 

VRfl 

,  SDH 

SVH 

CP88 

,  PRHS 

,  DRHS 

,  TRHS 

0020 

DRflS 

,  VRHS 

PRHL 

DRHL 

,  TRHL 

,  URHL 

,  VRHL 

0021 

SPHS 

,  SDHS 

STBS 

SDHS 

,  SVHS 

,  SPHL 

,  SDHL 

0022 

STHL 

,  SDHL 

SVHL 

0023 

COMMON 

/lOTEMP/ 

lOTEMl, IOTEM2 

IDG 

lUN 

,  DD88 

,  XMJD 

,  PHIl 

0024 

PHI88 

,  NSAME 

RPl 

RDl 

,  RTl 

,  SPl 

,SD1 

0025 

STl 

,  RUl 

RVl 

SUl 

,  SVl 

,MN 

, IDA88 

0026 

lYR 

,  HI 

PHIIR 

THETIR 

,  G8  8 

,RI 

,He8 

0027 

PHIR 

, THETR 

FIO 

FlOB 

,  AP 

,  IHR 

,MIN 

0028 

NMORE 

,  DX 

HL 

VL 

,  DZ 

,B88 

,EPS 

0029 

lOPP 

,  LOOK 

lET 

GLATX 

,  RPIS 

,  RDIS 

.RTIS 

0030 

RDIS 

,RV1S 

SPIS 

SDIS 

,  STIS 

,  SDIS 

,  SVIS 

0031 

UDSl 

,  VDSl 

UDLl 

VDLl 

,  UDS2 

,  VDS2 

,DDL2 

0032 

VDL2, 

REARTH 

0033 

COMMON 

/IPRTP  / 

IPRT 

EXTENDED  BASE  /PDTCOM/  448 
EXTENDED  BLOCK  /PDTCOM/ 

COMMON  /PDTCOM/  IU4  .MONTH  , lOPR  , PG88 ( 1 8 , 19) , TG ( 18 , 19) , 

DG(18, 19) , PSP (8, 10, 12) ,DSP (8, 10,12) , TSP ( 8 , 10 , 12 ) , 
PAQ(17,5) ,DAQ(17,5) ,TAQ(17, 5) ,PDQ(17, 5) ,DDQ(17, 5) 
TDQ(17,5) , PR (20, 10) ,DR88(20,10) ,TR(20,10) , 

DAQ(  17, 5)  ,  VAQ(17, 5)  ,UDQ{17, 5)  ,  VDQ(17, 5)  ,  UR  (25,  10) 
VR(25,10),PQ  ,DQ  ,TQ  ,DQ  ,VQ88  , 

PQA  , DQA  , TQA  , DA  , VA  , lOPC  , 

PLP  (25, 10)  ,  DLP  (25, 10)  ,  TLP  (25,  10)  ,  DLP  (25, 10)  , 

VLP  (25,10),  DDL (25, 10)  ,  VDLA(25, 10)  ,  UDS  (25, 10)  , 
VDSA(25,  10) 

COMMON  /WINCOM/  DH  , FCORY  , DX5  , DY5  , DPX  ,DPY  , DPXX  , 

DPXY  ,DPYY  ,UGH  , VGH  , TH  , DTX  , DTY 

DUH  ,DVH  ,PH  ,UPRE  , VPRE  .DUPRE  , DVPRE 

COMMON  BLOCKS  ADDED  IN  MODIFYING  GRAM  AND  INTERFACING  WITH  SIM. 


,  VH 

,  PHP 


COMMON  /GRAMOT/  PGH  , DGH  , TGH 

TS  , PGHP  , DGHP 

PSH  ,DSH  ,TSH 

LOGICAL  GPMATM,G76ATM,GATMP 

COMMON  /GPAIDAT,  GPAIATM,  G' 6ATM,  GATMF 
eSP  , TMFP76, TMPPn 
RH076  , RHOU  ,RHOF 
DSHEAR, VSHEAP 

EXTENDED  BASE  ,  N.ASPGM,’  380 

EXTENDED  BLOCK  /NASPGM/  PDAT(5O201  ,DDAT(5720)  , 

COMMON  /NASPGM/  PDAT(5720)  ,DDAT(5720)  ,TDAT(5720) 
SPDAT(5720I ,SDDAT(5720) ,STDAT(5720) 


,  DH 
,  TGHP 
,  WGH 

,  GRMWND  ,  GWINDF 
,  GPJ1WND,  GWINDF  , 
,  TMFPP  ,FA'6 
,  UWINDU, UWINDF  , 


PS 

DHF 


CS"' 

FAV 


,  DS 
,  THP 


.  PAF 


’/WINDU,  V'WINDP, 


TDAT (5720) 
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0001 

c.  .  . 

. . OptFlg . inc 

0002 

0003 

c .  ,  . 

, .us«r  option  flags 

0004 

0005 

integer *2 

oCycle  !  cycle  through  event  loop 

^^n-tre  '  save  Map  as  Piet  file 

0003 

integer  *2 

oRedraw  !  redraw  Map 

0008 

integer *2 

oNew  !  make  new  Map 

0009 

integer  *2 

oQuit  !  quit  program 

0010 

0011 

common  /  OptFlg  / 

oCycle,  oSave,  oRedraw,  oNew, 

0012 

& 

oQuit 

0001 

c,  .  . 

.  .PonCom.inc 

0002 

0003 

c 

common  block  containing  array  of  pen  commanda 

0004 

0005 

common  /  PenCom  / 

PenCommand 

0006 

0003 

integer*! 

PenCommand (13120) 

0001 

c.  . 

.  .  .  PicGrp . inc 

0002 

0003 

c ,  . 

.  .  .Piet  group  flags 

0004 

0005 

common  /  PicGrp  / 

PicGroupBeg, PicGroupEnd 

0006 

0003 

integer*2 

PicGroupBeg 

0008 

integor*2 

PicGroupEnd 

0001 

c .  . 

.  .  .  PlotMenu , inc 

0002 

0003 

c.  . 

.  .  .Plot  menu  declarations 

0004 

0005 

integer  *2 

nPlotItems 

0006 

integer *2 

PlotItemNewplot 

0003 

integer  *2 

Plot ItemSaveP lot 

0008 

integer*2 

PlotltemRedr  awP lot 

0009 

integer *2 

PlotMenuID 

0010 

record  /  MenuHandle  /  PlotMenuHndl 

0011 

0012 

c .  . 

.  .  .Plot  menu  coimnon 

bloc)c 

0013 

0014 

common  /  PlotMenu 

/  PlotItemNewplot.  Plot ItemSavoPlot , 

0015 

P lot It  emRedr  awP 1 ot , 

on]_  <; 

PlotMenuID, 

001" 

PlotMenuHndl 

0018 

0019 

c.  . 

...Plot  menu  pro-settings 

0020 

n''  n 

parameter 

(  nPlotltoms  =  3  > 

0022 

parameter 

(  PlotItemNewplot  -  1  > 

'^^23 

parameter 

(  PlotItemSavoPlot  “  2  ) 

002  4 

parameter 

(  FlotItemPedrawFlot  =•  3  ) 

r  c 

parameter 

(  PlotMenuID  =  131  ' 

00  01 

. . . pntabs . inc 
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0003 

COMMON  / 

PNTABS  / 

0004 

IXABS 

IXABS 

0005 

0006 

INTEGER 

IXABS 

000' 

INTEGER 

lYABS 

0001 

c .  .  . 

. . RunSetup . inc 

0002 

0003 

c .  .  . 

..dialog  daclarations 

0004 

0005 

intager*2 

rRunSetupDLOG 

0006 

intager *2 

rCloseButton 

0007 

integer *2 

rRunButton 

0008 

integer*2 

rMapButton 

0009 

integer *2 

rSaveButton 

0010 

integer  *2 

rDegWestButton 

0011 

integer *2 

rDegEastButton 

0012 

integer *2 

rMetera 

0013 

integer *2 

rKilometers 

0014 

integer *2 

rSeconda 

0015 

integer *2 

rMinutes 

0016 

integer *2 

rfiours 

0017 

integer*2 

rLat itude 

0018 

integer*2  ■ 

r Longitude 

0019 

integer *2 

r  Alt  itude 

0020 

integer*2 

rDuration 

0021 

integer *2 

rMissionLabel 

0022 

integer *2 

rWindModelSelector 

0023 

integer *2 

rMindModelSelect or Popup 

0024 

integer *2 

r As cent Select or 

0025 

integer *2 

rAscentSelectorPopup 

0026 

0027 

c .  .  . 

...item  id*  for  dialog- 

related  saved  resources 

0028 

0029 

integer *2 

rOldMissionText 

0030 

integor*2 

rOldLat itude 

0031 

integer *2 

rOldLongitude 

0032 

integer *2 

rOldDuration 

0033 

integer *2 

rOldAlt itude 

0034 

integer*2 

rOldAscent 

0035 

integer*2 

rOldClimate 

0036 

integer *2 

rOldDegRadio 

0037 

integer *2 

rOldDistRadio 

0038 

integer *2 

rOldTimeRadio 

0039 

0040 

c .  . 

.  ..vforking  variable  declarations 

0041 

0042 

integer *2 

DType 

0043 

integer *2 

ItomHit 

0044 

integer  *2 

rDegreeSelection 

0045 

inteaer*2 

rDistanceSelection 

0046 

integer *2 

r Times elect ion 

004' 

inteaer  *2 

ClimateSo lection 

0048 

character*255 

As cent Select ion 

0  0  4  9 

0050 

real 

xLat itude 

0051 

real 

xLongitude 

0052 

real 

-xAlt  itude 

0053 

real 

xDuration 

0054 

character  *255 

:<Mi  s  s  i  on  Label 

0055 

0056 

c.  . 

. . .dialog  pre-settings 

0C57 
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0058 

parameter  ^ 

rRunSetupDLOG 

•  2bD  ) 

0059 

parameter  ( 

rCloaaButton 

-  1  ) 

0060 

parameter  ( 

rRunButton 

-  2  ) 

0061 

parameter  ( 

rMapButton 

*  3  ) 

0062 

parameter  ( 

rSaveButton 

-  4  ) 

0063 

parameter  ( 

rDegWeatButton 

-  5  ) 

no64 

Darameter  ( 

rDagEaatButton 

“  6  ) 

0065 

parameter  ( 

rMeter 8 

-  7  ) 

0066 

parameter  ( 

rKllometera 

-  8  ) 

0060 

parameter  ( 

rSaconds 

-  9  ) 

0068 

parameter  ( 

rMinutes 

-  10 

0069 

parameter  ( 

rHours 

-  11  ) 

0070 

parameter  ( 

rMiaaionLabal 

-  19 

0071 

parameter  ( 

rLatituda 

-  20 

0072 

parameter  ( 

rLongitude 

-  21 

007  j 

parameter  ( 

r Altitude 

-  22 

0074 

parameter  ( 

rDuration 

-  23 

0075 

parameter  ( 

rJfindModalSalactor 

-  24 

0076 

parameter  ( 

rWindModalSalactorPopup 

-  41 

0077 

parameter  ( 

rAa cent Select or 

-  25 

0078 

parameter  ( 

rAa cant Select or Popup 

-  43 

0080 

parameter  ( 

rOldMiaaionText 

-  1000 

0081 

parameter  ( 

rOldLatitude 

-  1001 

0082 

parameter  ( 

rOldliOngitude 

-  1002 

0083 

parameter  ( 

rOldDuration 

-  1003 

0084 

parameter  ( 

rOldAltitude 

-  1004 

0085 

parameter  ( 

rOldAscent 

-  1011 

0086 

parameter  ( 

rOldClimate 

-  1012 

0087 

parameter  ( 

rOldDegRadio 

-  1021 

0088 

param«t«r  ( 

rOldDiatRadio 

-  1022 

0089 

paramater  ( 

rOldTimaRadio 

-  1023 

0090 

0091 

0092 

c.  . 

.  .  .dialog-ralatad  atructures 

0093 

0094 

racord  /  GrafPort 

/  SavedPott 

0095 

record  /  DialogPtr 

/  GetSelection 

0096 

record  /  DialogPeek 

/  TheDialogPtr 

0097 

record  /  TEBandle 

/  ThiaEditText 

0098 

record  /  Handle 

/  DItero 

0099 

record  /  ControlHandle  /  CItem 

0100 

record  /  Pect 

/  tempRect 

0101 

0102 

c .  . 

.  .  .dialog-related  common 

block 

0103 

0104 

common  /  RunSetup  / 

0105 

& 

SavedPort , 

0106 

& 

GetSelection, 

0107 

& 

DTypo, 

0108 

& 

DItem, 

n  1  n  0 

6 

tempRect, 

one 

& 

r Degrees election , 

0  7  11 

rDistanceSelect ion , 

0112 

& 

rTimeSe lection 

C  1 1 3 

?114 

c  . 

. , .trajectory  input  common  block 

0115 

common  '  Trajinput 

'»  1  - 

i 

Latitude . 

0118 

6 

xLongitude , 

0  n  ^ 

& 

xAltitude, 

012  0 

& 

xDuration , 

0121 

6 

xMiBsionLabel , 
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0122  4 

0123  4 


ClimateSelection, 

AscantSalaction 


0001 

0002 

c .  . 

.  . . TicDat . inc 

OOni 

0004 

0005 

000t> 

C  .  . 

.  .  .set  maximum  number  maior  and  minor 

parameter  (  nticmx  •  20  ) 

tic  marks 

0007 

0008 

c  .  . 

.  ..commor^  storaga  for  itams  relating 

to  tic  marks 

0009 

common  /  TicDat  /  xticmj. 

xticmi 

0010 

.  I’^-icinj, 

yticmi 

0011 

0012 

.  Iticmj, 

.  ndivmj, 

Iticmi 

0013 

xrefmj. 

yrafm j 

0014 

hticmj. 

vtrc;  j 

0015 

hticmi. 

vticmi 

0016 


0017  c . variabla  t^-pe  daclarationa 

0018 


0019 

integer*! 

Xticmj 

0020 

ir^egar*! 

xticmi 

0021 

integer*! 

•  ’  cm  •' 

0022 

integer*! 

yticmi 

0023 

integer*! 

Iticm j 

0024 

integer *2 

Iticmi 

0025 

integer*! 

ndivm j 

0026 

integer*4 

nticmx 

0027 

real *4 

xrefmj (nticmx) 

0028 

raai*4 

yrafm  j  lnti.cmx> 

0029 

integer  *2 

hticm j (nticmx) 

0030 

integer *2 

vticm j (nticmx) 

0031 

integer*! 

hticmi (nticmx, nticmx) 

0032 

integer*! 

vticmi (nticmx, nticmx) 

0001 

c,  . 

. . . era j . inc 

0002 

0003 

c,  . 

. . .trajectory  variables 

0004 

0005 

real *4 

Tima  Array 

0006 

roal*4 

DAT  ARRAY 

0007 

raal*4 

LON  ARRAY 

0008 

real*4 

ALT  ARRAY 

0009 

real*4 

GRANGE  ARRAY 

0010 

real*4 

WINDAZ  ARRAY 

0011 

real*4 

WIND  VEL  ARRAY 

0012 

0013 

intege; 

r*4  No  Of  Pts 

0014 

0015 

c  .  . 

. . .trajectory  variable  common 

block 

0016 

n  r- 1  -• 

common 

trai 

0  018 

& 

Time  Array 

(  2  04  8  )  . 

1  ? 

LAT  AF.PAY 

(  2048  t . 

002  0 

LON  AKP-AY 

'  2049  ' , 

n  n  2  1 

ALT  AP.PJVY  i 

'  2049  ! , 

0  0  2  0 

GPANGE  ARRAY  (  2048  I 

002  3 

& 

WINDAZ  ARRAY  (  2048  ) 

0024 

A 

WIND  VTL  ARRAY  (  2048 

.-0  ^  Q 

6 

No  Of  Pts 
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0001  c . TrjCom.inc 

002 

0C3  c . trajectory  data  conunon  block 

0004 

0005  integer*2  MaxPta 

0006  parameter  (MaxPta“2048) 

0Uv7 

0008  raal*4  TofTab  (MaxPta) 

0009  real*4  LngTab  (MaxPta) 

0010  real*4  LatTab  (MaxPta) 

0011  real*4  AltTab  (MaxPta) 

0012 

0013  integer*2  JmpTab  (MaxPta) 

0014  intoger*2  ntrpta 

0015 

0016  common  /  TrjCoin  /  iofTab,  LngTab,  LatTab, 

001 t  4  JmpTab,  ntrpta 

0001  c . TrjLim.inc 

0002 

0003  c . trajectory  data  limita 

0004 

0005  common  !  TrjLim  /  MinTof,  MaxTof,  MinLng 

0006  4  MinLat,  MaxLat,  MinAlt, 

2*0'’ 

goes  raal*4  MinTof 

0009  real*4  MaxTof 

0010  real*4  MinLng 

0011  real*4  MaxLng 

0012  raal*4  MinLat 

0013  real *4  MaxLat 

0014  roal*4  MinAlt 

0015  roal»4  MaxAlt 

0001  c . VuWind.inc 

0002 

0003  c . view  window  recorda 

0004 

0005  common  /  VuWind  /  ScrollHndl,  TxHndl,  FntDat, 

0006  .  deatRoct,  TxWptr,  iVuPag, 

0007 

0008  c . scroll  bar  )iardle 

0009 

0010  record  /  ControlHandle  /  ScrollHndl 

0  011 

■1012  c . text  edit  )iandle 

1  3 

0014  record  TEHandle  TxHndl 

0015 

1016  c . font  ctiaracteriatica 


AltTab, 


MaxAlt 


viewRect , 
ScrollPart 


-  0  1 


1  8 


0  0  2  3 
'•■0  2  4 

0025 


record  Fontinfo  FntDat 

Rectangle  records 

record  rect  ,  viewRoct 

record  ,  rect  /’  deatRect 

text  display  window  recorda 
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0026 

002^ 

rscord  /  WindowPtr  / 

TxWptr 

0028 

0029 

C  .  .  .  . 

.view  window 

page  size 

0030 

0031 

integer *2 

iVuPag 

0032 

0033 

c .  .  .  . 

.scroll  Dart 

index 

0034 

0035 

integer  *2 

ScrollPart 

0001 

c .  .  .  . 

.  winlim . inc 

0002 

0003 

c 

graphics  and 

Map  window  limits 

0004 

0005 

common  /  winlim  / 

0006 

,  igxmin. 

igxmax , 

igymin , 

igymax 

0007 

.  ipxmin, 

ipxmax, 

ipymin , 

ipymax 

0008 

.  iwxmin, 

iwxmax, 

iwymin. 

iwymax 

0009 

0010 

integar*2 

igxmin 

0011 

intagor*2 

igxmax 

0012 

integer*2 

igymin 

0013 

integer*'2 

igymax 

0014 

intoger*2 

ipxmin 

0015 

intoger*2 

ipxmax 

0016 

intagor *2 

ipymin 

0017 

intagar*2 

ipym«LX 

0018 

intagar*2 

iwxmin 

0019 

integar *2 

iwxmax 

0020 

inCagar*2 

iwymin 

0021 

intagar*2 

iwymax 

10.3 

BDPS  FORTRAN 

SOURCE 

CODE 

This  section  contains  a  complete  listing  of  the  FORTRAN  source  code 
which  was  used  in  the  generation  of  the  BDPS  executable  program.  The  source 
files  lines  are  numbered  by  the  FORTRAN  compiler.  The  majority  of  the  files 
exist  to  implement  the  Macintosh  graphical  interface  and  the  drift  pattern 
display.  Two  files,  “RunTraj.f’  and  “Gen4d.f,”  contain  a  version  of  NASA’s 
GRAM  which  was  modified  for  BDPS.  The  option  for  using  external  forecast  data 
files  makes  use  of  the  “NOGAPS. f’  source  file. 


0001 
0002 
0003 
0004 
■^005 
0  0  O'  6 

0008 
00  0? 

0011 
O  i  ‘ 

0013 


c . Load  a  file  of  STRUCTURE  and  PARAMETER  definition*#  at  compile  time 

!!C  toolbox2 . f inc 

c . Load  the  ToolBox  traps 

' ' M  Iniines . f 

o . Put  the  following  code  in  the  Main  segment 

' ’ S  Main 
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Segment  Main 


0014  subroutine  AlertDsor 

0015  - - 

0016  c  Display  an  alert  that  tells  the  user  an  error  occurred,  then 

001'  c  exit  the  program. 

0018 

0010  ! ! SETC  USINGINCLDDES  -  EALSE 

0020  implicit  none 

0021 

0022  c . set  up  pointer  for  QuickDraw  globala 

0023 

0024  pointer  ,•  QDGlobals  /  qdg 

00  2  5  common  /  QDGPtr  ^ttg 

0026 

002'  integor*2  rDserAlert 

0028  iiiteger*2  itemHit 

0029 

0030  parameter  (  rDaerAlert“129  ) 

00  31 

0032  - - 

0033 

0034  call  SetCursor (qdg', Arrow) 

0035  itemHit  -  Alert ( rOsorAlert ,  nil) 

0036  call  ExitToShell 

0030 

0038  return 

0039  end 


0001  c 

0002 
0003 

0004  c 

0005  c 

0006  c 

0007  c 

0008  c 

0009 

0010  c 

0011 
0012 
0013 
0014 

0015  c 

0016 
0017 
0018 
nn  I  u 
0  0  20 
0021 
0  0  22 
'023 
0024 
0'25 
002  6 

0  02  8 
0  02  9 

O' '  3  0  r 
0  0  31 


00  34 
0  0  3  5 


subrcutina  Aut ©Scale  /  xmin  ,  xmax  ,  ndivmj  ,  dxmin  ,  dxmax  , 

xdivmj  ,  xdivmi  ) 


Compute  plot  extremes  (dxmin)  and  [dxmax]  which  will  enclose  the  data 
extremes  [xmin]  and  (xmax)  and  yield  [ndivmj]  divisions  [xdivmj]  wide, 
each  composed  of  minor  divisions  [xdivmi]  wide.  The  major  and  minor 
divisions  have  only  one  significant  figure  each. 

external  function  declaration 

external  nquant 

integer*2  nquant 

if  data  extremes  are  equivalent,  handle  as  a  special  case 

if  (  xmin. eq. xmax  )  then 
if  (  xmin. ne. 0.0  )  then 

ilogx  ••  iint  (  aloglO  (abs  (xmrn)  )  -  1.0  ) 

else 

ilogx  ”  0 
end  if 

xdivmj  -  10.0**ilogx 
xdivmi  -  xdivmj/10.0 
dxmin  *  xmin  -  .xdi’vTnj 
cbima:;  =  rjnin  xdivmi 
return 
end  i  f 

major  division  width 

tmpl  “  (  .xmax  -  :imin  i  float  (  ndivmi  ) 
trap2  «  10 , O^^nquant  (  aloglO(tmpl)  ,  -1.0  ) 
tmp3  “  tmpl/tmp2 
if  (  tmp3 . gt . anint (tmp3 )  )  then 


I 

I 

I 

i 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 
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00  3  6  xdi'.Tnj  •  tmp2*anint  (  tmp3  +  1.0  ) 

003"  else 

0038  xdi\rm3  -  tmp2*anint  i  tmpO  ) 

0039  end  if 

0  0  4  0 

0041  c . minor  division  width 

0040 

0043  xdivmi  -  10.0**nquant  (  aloglO (xdiVmT)  ,  -1.0  ) 

0044  if  f  xdi vmi . eq . xdivm j  )  then 

00  4  5  xdi-nni  •  xdivm  j  / 10 . 0 

0f^46  end  if 

004^ 

0048  c . compute  the  width  of  the  plot  window  and  the  apan  of  the  input  data 

0049 

0050  xwidth  •  xdivmj*float  {  ndivmj  ) 

0051  xspah  •  xmax  -  xmin 

0052 

0053  c . compute  excess  width  provided  with  respect  to  the  •pan  of  the  data 

0054  c  extremes  and  quanti2e  it  to  the  nearest  minor  division 

0055 

0056  .xces  *  xwidth  -  xspan 

005"  nxces  "  nquant  (  xces  ,  -xdivmi  ) 

0058 

0059  c . allocate  half  of  the  excess  to  the  lower  end  of  the  plot  scale  and 

0060  c  quantize  the  minimum  plot  value  to  the  nearest  minor  division 

00  61 

0062  nxmin  “  nquant  (  xmin  ,  -xdivmi  ) 

0063  dxmin  “  xdivmi*float  (  nxmin  -  nxces/2  ) 

0064 

0065  c . offset  the  maximum  plot  value  from  the  minimum  plot  value  by  the  width 

0066  c  of  the  plot  window 

006*: 

0068  dxmax  •  dxmin  t  xwidth 

00  69 

0070  return 

0071  end 

0001  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

0002 


0003  !!G  ToolBox2 . fine 

0  004 

0005  c . Load  the  ToolBox  traps 

000  6 

000"  ! ! M  Inlines . f 

0008 

'00  9  c . Put  the  following  code  in  the  Main  segment 

"  0  1 C 

0011  ' ! S  Main 

- - - - - - - - - - - - - - - 

Se-jment  Main 

j014  program  bdps 

Oompute  and  display  balloon  drift  patterns: 

sr'ecificaiiy  configured  f'^r  a  Phase  2  SBIP  contract  with  DAPP.m. 

O'eveloper:  Robert  L.  Hawkins 

Cate:  May  1991 

Ciale'*t  :  Lanauage  Systems  FORTPAtl  2.1.  MFW  3.1 

Machine:  Macintosh  SE/30,  5mfc  PAM 

Declare  compile-time  variable 
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0026 
0027 
C028 
•^029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
005" 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
00"1 
0072 
00"3 
0074 
00"5 
00  "6 
00  7" 
007S 

^  n  -T  o 

009  0 

nr.  Rl 
Orgr 
"  C  9  3 
'0  04 


'>''0  1 
0002 
0003 


'!SETC  aSINGINCLODES  -  FALSE 


cc  implicit  non® 

c . common  block  definition  files 


include 

include 

include 

include 

include 

include 

include 

include 

include 

include 

include 


'  Alert .  inc  ' 

’ AppleMenu . inc ' 
' EditMenu . inc ' 

' FileMenu . inc ' 

' Globala . inc ' 

'  MBar . inc ' 

'  naapcom . inc ' 

'  naspgcom . inc ' 

■  FlotMenu . inc ' 
' RunSetup . inc ' 

’ Tra  j . inc ' 


ir  elude 
include 
include 
include 
include 
include 
include 
include 
include 
include 
include 
include 
include 


'  CrvDat . inc  ’ 

’ FntCom. inc ' 

'  LatCom . inc ' 

'  LngCom . inc ’ 

'  MapMenu . inc 
'  OptFlg . inc ' 

'  PenCom. inc ' 

' MapCom . inc ' 

'  PntAba  .  me' 

' TicDat . inc ' 

' Tr  jCom . inc ' 

' VuWind. inc ' 
'WinLim. inc' 


set  up  pointer  for  QuickDraw  globala 


pointer  /  QDGlobala  / 
common  /  QDGPtr  / 
integer *4 
external 


qdg 

gdg 

jQDGlobala 

jQDGlobale 


c . give  us  room  for  memory  allocation 

call  MaxApplZone 

c . call  Initialize  then  unload  its  segment  from  memory 

call  Initialize 

call  UnloadSeg(  %loc (Initialize)  ) 

c . set  up  the  pointer  for  QuickDraw  globale 

qdg  ■«  jQDGlobalsO 

" . call  eventloop;  we  will  loop  forever  until  user  decides  to  quit 

call  Event  Loop 
end 

c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

''G  tooibox2.finc 


44 


CHR/91-2750 


0004 

0005  c . Load  the  ToolBox  traps 

0006 

0  OCO  !  !M  Inlines . f 

0008 

0009  c . Put  the  following  code  in  the  Main  segment 

0010 


0011  ! ! S  Main 

0012  c - 

Segment  Main 

0013  subroutine  ClearDegreeGroup 

0014  c - 

0015 

0016  IISETC  USINGINCLaDES  -  FALSE 

0017  implicit  none 


0018 

0019  c . common  block  definition  files 

0020 

0021  include  ' RunSetup . inc ' 


0022 

0023 

0024 


0025  c . clear  the  degrees-west  button 

0026 

002"  call  GetDItem(  %val (GetSelection) ,  %val (rDegWestButton) , 

0028  i  %ref(DType),  %ref(DItem),  %ref (tempRect )  ) 

0029  Cltem.CtlH  -  DItem.bhdl 

0030  call  SetCtlValuel  %val (CItem) ,  %val(0)  ) 

0071 

0032  c . clear  the  degroes-eaat  button 

0033 

0034  call  GetDItem(  %val (GetSelection) ,  %val (rDegEastButton) , 

0035  S  %ref (DType) ,  %ref (DItom) ,  %ref (tempRect )  ) 

0036  Cltem.CtlH  -  DItem.bhdl 

0037  call  SetCtlValua(  %val (CItem) ,  %val(0)  ) 

7038 

0039  return 

0040  end 


0001 
0002 
0003 
0004 
0C05 
0006 
0  0  0" 
0008 
0  0  0? 
0  010 
O"!! 


c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

!IG  toolbox! . fine 

c . Load  the  ToolBox  traps 

!  ! M  Inlines  .  f 

c . Put  the  following  code  in  the  Main  segment 

' ' S  Main 


Segment  Main 

""'13 

0  014  1  - - - 


subrout ine  OlearDistanceGroup 


'O’  c 


'SETS  O’SItJGXNCLUCES  “  FALSE 
implicit  none 

. common  block  definition  files 

include  '  PunSetup . inc ' 
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0024 

0025  c,  .  .  .  .  ciwar  th«  m»*:«r8  radio  button 

0026 

0020  call  CietCItami  •val (GatSaiaction) ,  %val ( rMatera ) , 

0028  i  • raf (DTypa) .  «raf(DItam),  %raf (tampRact )  ) 

0029  Oltam.CtlH  -  Oltam.bhdl 

0030  call  SatCtlValual  'val (CItem) ,  «val{0)  ) 

0031 

0032  c . clear  tha  kilomatara  radio  button 

0033 

0034  call  GatDItem(  «val (GatSelaction ) ,  %val ( rKilomatera) , 

0035  S  %raf (DTypa),  %raf (DItem) ,  %raf (tampRact )  ) 

0036  Cltem.CtlH  -  DXtam.bhdl 

003”  call  SetCtlValua(  %val(CItam),  %val(0)  ) 

0038 

0039  return 

0040  end 


0001  c . Load  a  file  of  STRUCTORE  and  PARAMETER  dafinitiona  at  compile  time 

0002 

0003  !!G  toolbox2 . f inc 

0004 

0005  c . Load  the  ToolBox  traps 


0006 

0007  !  .'M  Inlines  .  f 

0008 

0009  c . Put  the  following  code  in  the  Main  segment 

0010 

0011  ! !S  Main 

0012  c - - - 

Segment  Main 

0013  subroutine  ClaarTimeCroup 

0014  - - 

0015 

0016  !!SETC  OSINGINCLODES  -  FALSE 


0017  implicit  none 

0018 

0019  c . Common  bloc)c  definition  files 

0020 

0021  include  ' RunSetup . inc ' 

0022 


0023  c 
0024 


0025  c . clear  the  seconds  radio  button 

0026 

002'’  call  GetDItam(  %val  (GatSelaction)  ,  %val  (r Seconds )  , 

0028  S  %ref(DType),  %ref (DItem),  % raf (tompRect )  ) 

0029  GItam,CtlH  -  DItem, bhdl 

0030  call  SetCtlValuo(  ^val(CItem),  %val(0)  ) 


0"32  c . clear  the  minutes  radio  button 

^'033 

3  0  3  4  call  GotDItem(  *val (Get Select  ion ) ,  ♦val ( rMinutes )  , 

"'^35  &  *ref  (DTypa'.  *raf  (DItem).  '  ra  f  f  tempP.act )  ' 

'.0  36  Cltem.CtlH  ”  DItem. bhdl 

■"03'  call  SetCtlValue(  •val  (CItamI  .  •vali'’’  > 

c -  r  p 

■  '3?  c . clear  the  hours  radio  button 

'"4  0 

0':'41  call  GetDItem(  •val  (GatSelaction  I  ,  •  val  ( rHours )  , 

::42  t  »ref(DType),  %ref (DItem) ,  kref (tempRect )  ) 

'04?  Cltem.CtlH  “  DXtam.bhdl 

"''44  call  SetCtlValua(  tval  (CItem)  ,  *val(0)  ) 
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0045 

0046  return 

0047  end 

0001  c . Load  a  file  of  STROCTORE  and  PARAMETER  definitiona  at  compile  time 

0002 

0003  !!G  t oolbox2 . f inc 

0004 

0005  c . Load  the  ToolBox  trapa 

0006 

0007  ! !M  Inlines . f 

0008 

0009  c . Put  the  following  code  in  the  Main  aegment 

0010 

0011  ! ! S  Main 

0012  - - 

Segment  Main 

0013  integer*2  function  CollectRunInput ( ) 

0014  - - 

0015  c  Collect  all  the  valuoa  entered  by  the  uaer  in  the  Run  Setup  dialog 

0016 

0017  nsETC  OSINGINCLODES  -  FALSE 

0018  implicit  none 

0019 

0020  c . common  block  definition  files 

0021 

0022  include  ' Globals . inc ' 

0023  include  ' RunSetup . inc ' 

0024 

0025  c . intermediate  text  string 

0026 

0027  string*255  ItomText 

0028 

002  9  c . character  intermediate 

0030 

0031  character *255  CharData 

0032 

0033  c - - 

0034 

0035  c . set  the  initial  function  value  to  zero  (no  problems) 

0036 

0037  CollectRunInput  —  0 

0038 

003  9  c . get  the  initial  latitude  in  degrees  north 

0040 

0041  call  GetDItem(  %val (GetSelection) ,  %val (rLatitude) , 

0042  S  %ref(DType),  %ref (DItem) ,  %  ref (tempRect )  ) 

0043  call  GetIText  (  %val (DItem)  ,  ‘val ( ItemToxt )  ) 

0044  CharData  -  ItemText 

0045  read (CharData, * )  xLatitude 

00  4  6 

OOi'  c . check  to  see  that  latitude  value  is  ok 

0  0  4  8 

'^049  if  (  xLatitude  .  It  . -90 . 0  .or.  xLatitude  .  at  .  90 . 0  '  then 

0'050  CollectRunInput  -  rLatitude 

0051  return 

0052  endif 

0053 

0054  c . get  the  initial  longitude  in  degrees  west 

0  55 

0056  call  GetDItem(  *val (GetSelection) ,  %val ( rLongitude) , 

'00  5  "’  i  •ref(DType),  %ref  (DItem),  %ref  (tempRect)  ) 

0058  call  GetIText  (  *val  (DItem)  ,  ■iival  ( ItemText )  ) 
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0059  CharData  «  ItamTaxt 

0060  raad (CharData, *)  xLongitude 

0061 

0062  c . chack  to  aae  that  longitude  value  ia  ok 

0063 

0064  if  (  >:Longitude.  It . -IBO .  0  ,or.  xLongitude  .gt .  180 . 0  )  then 

0065  CollectRunInput  ••  rLongitude 

0066  return 

0067  endif 

0068 

0069  c . convert  the  longitude  value  if  neceasary 

0070 

0071  if  (  rDegreeSelection .eq. rDegNeatButton  )  then 

0072  continue 

00"'3  else  if  (  rDegreeSelection .eq. rDegEaatButton  )  then 

0074  xLongitude  •  360.0  -  xLongitude 

0075  endif 

0076 

0077  c . get  the  initial  altitude  in  meters 

0078 

0079  call  GetDItem(  %val (GetSelection) ,  %val (rAltitude) , 

0080  &  %ref'DTyne),  %ref (Dltam) ,  %ref (tempRect )  ) 

0081  call  GetIText  (  %val (DItem)  ,  %val ( ItemText )  ) 

0082  CharData  -  ItemText 

0083  read{CharData, *)  xAltitude 

0084 

0085  c . check  to  see  thait  altitude  value  is  ok 

0086 

0087  if  (  xAltitude . It . 0 . 0  .or.  xAltitude . gt . 1000000 . 0  )  then 

0088  CollectRunInput  “  rAltitude 

0089  return 

0090  endif 

0091 

0092  c . convert  the  altitude  value  if  necessary 

0093 

0094  if  (  rDistanceSelect ion .eq. rMeters  )  then 

0095  continue 

0096  else  if  (  rOistanceSelecti~r . oq. rKilometers  )  then 

0097  xAltitude  -  xAltitude  *  )0.0 

0098  endif 

0099 

0100  c . got  the  flight  duration  in  seconds 

0101 

0102  call  GetDItem(  %val (GetSelection) ,  %val (rDuration) , 

0103  i  %rof (DType) ,  %ref (DItem) ,  % ref (tempRect)  ) 

0104  call  GetIText  (  %val(DItem)  ,  %val (ItemText)  ) 

0105  CharData  ”  ItemText 

0106  road (CharData, *)  xDuration 

0107 

0108  c . check  to  see  that  flight  duration  value  is  ok  (no  more  th^ul  30  days) 

0109 

0110  if  (  xDurat ion . It . 0 . 0  .or.  xDuration . gt . 2592000 . 0  )  then 

0111  CollectRunInput  -  rDuration 

0112  return 

0113  endif 

0114 

0115  c . convert  the  flight  duration  value  if  necessary 

0  116 

0117  if  (  rTimeSelect ion . eq . rSeconds  )  then 

0118  continue 

0119  else  if  (  rTimeSelection . oq. rMinutes  i  then 

0120  xDuration  "  xDuration  *  60.0 

0121  else  if  (  rTimeSelection . oq. rflours  )  then 

0122  xDuration  "  xDuration  *  3600.0 
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I 


0123  andif 

0124 

0125  c . g»t  the  mission  label 

0126 

012'’  call  GotDItem(  %val  (GetSelection)  ,  %val  (rMissionLabel)  , 

0128  i  %ref (DType) ,  »ref(DItem),  %ref (tempRect )  ) 

0129  call  GetIText  (  %val (Dltem)  ,  %val (IteroText)  ) 

0130  CharData  —  ItemText 

0131 

0132  return 

0133  end 

0001  c . Load  a  file  of  STROCTORE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !!G  toolbcx2 . fine 

0004 

0005  c . Load  the  ToolBox  traps 


0006 

0007  !!M  Inlines . £ 

0008 

0009  c 

0010 

0011  c 

0012  c 

0013  c 

0014  c 

0015 

0016  include  'CrvDat.inc' 

0017 

0018  c . got  Cartesian  length  components  of  lino  segment 

0019 

0020  ixdif  “  ixnew  -  ixold 

0021  iydif  -  iynew  -  iyold 

0022 

0023  c . return  if  segment  has  zero  length 

0024 

0025  if  (  iabs ( ixdif) .eq. 0  .and.  iabs (iydif ) .eq. 0  )  then 

0026  return 

0027  end  if 

0029 

002  9  c . compute  unit  vector  parallel  to  line  segment 

0030 

0031  r  -  sqrt  (  float (ixdif ) **2  +  float ( iydif ) **2  ) 

0032  ux  -  float (ixdif) /r 

0033  uy  -  f loat ( iydif ) /r 

0034 

0035  c . horizontal  component  exceeds  vortical  component 

0036 

003"'  if  (  iabs  (ixdif)  . go . iabs  ( iydif )  )  then 


0038 

0039  c . sot  loop  indices 

0040 

0041  ixl  -  0 

0042  ix2  -  iabs (ixdif) 

0043 

0044  c . loop  on  vertical  scan  Ixnes 

0045 

00  4  6  do  i  -  1x1  ,  i.x2 

0047 

0048  c . compute  current  pixel  location 

0049 

0050  ixref  -  ixold  +  inint  (  ux*£loat (i) /abs (ux)  ) 

0051  iyref  •  iyold  +  inint  (  uy*float (i) /abs (ux)  ) 


subroutine  Dashit  (  ixold  ,  iyold  ,  ixnew  ,  iynew  ,  icurve  ) 


draw  a  dashed  line  between  the  end  points, 
note:  visible  Y  dar)c  Y  pen  down  ■■”>  iPen  “  1 

invisible  Y  white  ^  pen  up  «->  iPen  -  0 
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0052 

0053  c . incrament  the  pixal  countar  for  tha  currant  curva 

0054 

0055  if  (  ixref .na.ixlaat  .or.  iyraf . na . iylaat  )  than 

0056  PixCnt (icurva)  -  1  +  imod  (  PixCnt (icurva)  ,  16  ) 

0057  iBitNo  -  16  -  PixCnt (icurva) 

0058  and  if 

0059 

0060  c . saa  if  currant  pixal  ia  visibla  (  dar)c  )  or  inviaibla  (  whita  ) 

0061 

0062  iPanLst  -  iPan 

0063  iPan  -  iibits  (  DahMak (LinTyp (icurva) )  ,  iBitNo  ,  1  ) 

0064 

0065  c . aava  pan  down  location  and  draw  aa  nacaaaary 

0066 

0067  if  (  i.aq.ixl  )  then 

0068  if  (  iPan.aq.l  )  than 

0069  ixPanO  -  ixraf 

0070  iyPanO  “  iyraf 

0071  ixPenD  -  ixraf 

0072  iyPanD  -  iyraf 

0073  and  if 

0074  alaa  if  (  i.gt.ixl  .and.  i.lt.ix2  )  than 

0075  if  (  iPan.aq.l  )  than 

0076  ixPanO  •  ixraf 

0077  iyPanO  -  iyraf 

OO"’?  if  (  iPanLat.aq.O  )  than 

0079  ixPenD  -  ixraf 

0080  iyPanD  “  iyraf 

0081  and  if 

0082  alaa  if  (  iPan.aq.O  .and.  iPanLat.aq.l  )  than 

0083  call  MovAba  (  ixPanO  ,  iyPanD  ) 

0084  call  DrwAbs  (  ixPanO  ,  iyPanO  ) 

0085  and  if 

0086  alaa  if  (  i.eq.ix2  )  then 

0097  if  (  iPan.aq.l  )  than 

0088  if  (  iPanLat.aq.O  )  then 

0089  call  MovAba  (  ixraf  ,  iyraf  ) 

0090  call  DrwAba  (  ixraf  ,  iyraf  ) 

0091  alaa  if  (  iPanLat.aq.l  )  than 

0092  call  MovAba  (  ixPanD  ,  iyPanD  ) 

0093  call  DrwAba  (  ixraf  ,  iyraf  ) 

0094  -nd  if 

0095  and  if 

0096  and  if 

009^ 

0098  and  do 

0099 

0100  and  if 

0101 

0102  c . vertical  component  exceeds  horizontal  component 

0103 

0104  if  (  iabs ( ixdif ) . It . iaba ( iydif )  )  then 

0105 

0106  r . set  loop  indices 

'-'107 

0108  lyl  -  0 

0109  iy2  -  iabs (iydif) 

0110 

0111  c . loop  on  horizontal  scan  linos 


0113 

0114 


do  i  -  iyl  ,  iy2 

. . .compute  currant  pixal  location 
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0116 

0117  ixr«f  -  ixold  +  inint  (  ux*f lost ( i) /aba (uy)  ) 

0118  iyraf  -  iyold  +  inint  (  uy*float (i) /aba (uy)  ) 

0119 

012  0  c . incrament  tha  pixal  counter  for  the  currant  curve 

0121 

0122  if  (  ixrof . ne . ixlaat  .or.  iyraf .na. iylaat  )  then 

0123  PixCnt (icurva)  —  1  +  imod  (  PixCnt (icurva)  ,  16  ) 

0124  iBitNo  -  16  -  PixCnt (icurva) 

0125  and  if 

0126 

012  7  !- . see  if  current  pixal  ia  viaibla  (  dar)c  )  or  inviaible  (  white  ) 

0128 

0129  iPenLat  -  iPan 

0130  iPen  -  iibita  (  DahMak ( LinTyp (icurva) )  ,  iBitNo  ,  1  ) 

0131 

0132  c . save  pen  down  location  and  draw  as  neceaaary 

0133 

0134  if  (  i.eq.iyl  )  than 

0135  if  (  iPan.aq.l  )  then 

0136  ixPenO  —  ixraf 

0137  iyPenO  -  iyraf 

0138  ixPenD  -  ixraf 

01 Tq  iyPenD  -  iyraf 

0140  end  if 

0141  alae  if  (  i.qt.iyl  .and.  i.lt.iy2  )  then 

0142  if  (  iPen.eq.l  )  then 

0143  ixPenO  -  ixref 

0144  iyPenO  •  iyraf 

0145  if  (  iPenLat.eq.O  )  than 

014  6  ixPonD  ■>  ixref 

0147  iyPanD  “  iyraf 

0148  and  if 

0149  elaa  if  (  iPan.aq.O  .and.  iPenLst.aq.l  )  than 

015u  call  MovAba  (  ixPanD  ,  iyPanD  ) 

0151  call  DrwAba  (  ixPanO  ,  iyPanO  ) 

0152  and  if 

0153  else  if  (  i.eq,iy2  )  then 

0154  if  (  iPan.aq.l  )  then 

0155  if  (  iPenLst.eq.O  )  than 

0156  call  MovAbs  (  ixref  ,  iyraf  ) 

0157  call  DrwAba  (  ixraf  ,  iyref  ) 

0158  elaa  if  (  iPanLst.eq.l  )  then 

0159  call  MovAba  (  ixPenD  ,  iyPenD  ) 

0160  call  DrwAba  (  ixraf  ,  iyraf  ) 

0161  and  if 

0162  and  if 

0163  end  if 

0164 

0165  end  do 

0166 

016^  end  if 

0168 

0169  c . aava  Map  end  point  for  reference 

0170 

0171  i.xlast  -  Oxnow 

01^2  iylast  -  iynew 

0  1  T  3 

0174  return 

01 15  end 

noOl  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

0002 
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0003  !!G  toolbox2 . f inc 

0004 

0005  c . Load  the  ToolBcx  traps 

0006 

0007  ! !M  Inlines . f 

0008 

0009  - - 

0010  subroutine  DisplayMapLimit s 

0011  - - 

0012  c  Display  the  text  items  containing  the  map  limits 

0013 

0014  c . include  common  block  definition  files 

0015 

0016  include  'CrvDat.inC 

0017  include  'DofLim.inc’ 

0018  include  'FntCom.inc' 

0019  include  'MapCom.inc' 

0020  include  'MapLim.inc' 

0021  include  'TrjLim.inc' 

0022 

0023  c . item  stuff 

0024 

0025  record  /  handle  /  ItHndl 

0026  record  /  rect  /  ItRect 

0027  integer*4  ItType 

0028  integer*2  ItNmbr 

0029  string*255  ItText 

0030 

C031  c . "get  Map  data"  dialog  interface  records 

0032 

0033  common  /  MapSetOp  /  MapSetOpPtr,  iGotMapSetOp 

0034  record  /  DialogPtr  /  MapSetOpPtr 

0035  integer*2  iGotMapSetOp 

0036 

0037  c . character  strings 

0038 

0039  character*255  ChrDat 

0040 

0041  c . sat  and  select  minimum  latitude  value 

0042 

0043  ItNmbr  -  5 

0044  vfrito  (ChrDat  ,* )  yMapMn 

0045  ItText  -  ChrDat 

0046  call  GetDItem  (  %val (MapSetOpPtr )  ,  %val( ItNmbr)  ,  %ref (ItType)  , 

0047  %ref (ItHndl)  ,  %ref (ItRect)  ) 

0048  call  SetIText  (  %val (ItHndl)  ,  %val (ItText)  ) 

0049  call  SellToxt  (  %val (MapSetOpPtr )  ,  %val(ItNmbr)  ,  %val(0)  ,  %val(32767)  ) 

0050 

0051  c . sat  maximum  latitude  value 

0052 

0053  ItNmbr  -  6 

0054  write (ChrDat , *)  yMapMx 

0055  ItText  -  ChrDat 

0056  call  GetDItem  (  « val (MapSotOpPt r )  ,  Sval (ItNmbr)  ,  *ref (ItType)  , 

075"  .  'Tef  (ItHndl)  ,  Tef  (ItRect)  ) 

0050  call  SetIText  (  •val(ItHndl)  ,  ^ val ( ItText )  i 

nn^o 

0060  c . set  latitude  ma Tor  division  size 

0061 

0062  ItNmbr  • 

0065  wr ite ( ChrDat ,* )  yDivMj 

0064  ItText  “  ChrDat 

""OeO  call  GetDItem  (  ‘val (MapSetOpPtr )  ,  *val(ItNmbr)  ,  sre£ (ItType)  , 

0066  sref (ItHndl)  ,  %ref (ItRect)  ) 
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OOST  call  =*tIT«xt  (  %val (ItHndi)  ,  %val(ItT«xt)  ) 

C068 

0069  c . eat  latitud#  minor  diviaion  eiza 

0070 

0071  ItNmbr  -  8 

0072  write (ChrDat ,* )  yDivMi 

0073  ItText  -  ChrDat 

0074  call  GatDItam  (  %val (MapSatOpPtr)  ,  %val (ItNmbr)  ,  %ref(ItType)  , 

0075  %re£ (ItHndi)  ,  %ref(ItRact)  ) 

0076  call  SetIText  (  %val (ItHndi)  ,  %val (ItText)  ) 

0077 

0078  c . sot  minimum  longitude  value 

0079 

0080  ItNmbr  -  9 

0081  wr ite ( ChrDat ,* )  xMapMn 

0082  ItText  -  ChrDat 

0083  call  GetDItem  (  %val (MapSetOpPtr )  ,  %val( ItNmbr)  ,  %ref(ItType)  , 

0084  %ref (ItHndi)  ,  %re£(ItRect)  ) 

00  ;  call  SetIText  (  tvai (ItHndi)  ,  %val (ItText)  ) 

00u6 

0087  c . sat  maximum  longitude  value 

0088 

0089  ItNmbr  -  10 

0090  write (ChrDat, *)  xMapMx 

0091  ItText  -  ChrDat 

0092  call  GetDItem  (  %val (MapSetOpPtr )  ,  %vai (ItNmbr)  ,  %ref(ItType)  , 

0093  %ref (ItHndi)  ,  %ref(ItRect)  ) 

0094  call  SetIText  (  %val (ItHndi)  ,  %val (ItText)  ) 

0095 

0096  c . set  longitude  major  diviaion  size 

0097 

0098  ItNmbr  -  11 

0099  write (ChrDat, *)  xDivMj 

9100  ItTe-'t  -  ChrDat 

0101  call  GetDItem  (  %val (MapSetOpPtr )  ,  «val(ItNmbr)  ,  %ref(ItType)  , 

0102  %ref (ItHndi)  ,  %re£(ItRoct)  ) 

0103  call  SetIText  (  %val (ItHndi)  ,  %val (ItText)  ) 

0104 

0105  c . set  longitude  minor  division  size 

0106 

0107  ItNmbr  -  12 

0108  write (ChrDat ,* )  xDivMi 

0109  ItText  -  ChrDat 

QUO  call  GetDItem  (  %val (MapSetOpPtr )  ,  %val (ItNmbr)  ,  %ref(ItType)  , 

0111  .  %ref (ItHndi)  ,  %ref(ItRoct)  ) 

0112  call  SetIText  (  %val (ItHndi)  ,  %val(ItText)  ) 

0113 

0114  c . set  time  tic  increment 

0115 

0116  if  (  TimeTics . eq . 1  )  then 

711^  write (ChrDat ,* )  tDivMj 

0118  else 

0119  ChrDat  -  '  ' 

0120  end  if 

"121  ItNmbr  -  13 

0122  ItText  «  ChrDat 

1123  call  GetDItem  (  ‘val (MapSetOpPtr )  ,  •val ( ItNmbr i  'ref(ItTypel 

'124  *ref  (ItHndi)  ,  'refdtPecti  i 

2125  call  SetITe.xt  (  “val  (ItHndi)  '«val  ( ItTe::t  >  ) 

2  12  6 

012'  return 

0128  end 
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OOCl  c . Load  a  file  of  STROCTORE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !!G  toolbox2 . fine 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

000'  i ! M  Inlines . f 

0008 

0009  - - - - * - 

0010  subroutine  DisplayTimeTics  (  xscale  ,  xshift  ,  yscale  ,  yshift  ) 

0011  c - 

0012  c  This  subroutine  displays  time  tic  marks  on  the  flight  path. 

0013  c 

0014  c  developer:  David  F.  Smith 

0015  c  date:  February  1991 

0016 

0017  include  'CrvDat.inc' 

0018  include  'FntCom.inc' 

0019  include  'LatCom.inc' 

0020  include  'LngCom.inc' 

0021  include  'MapCom.inc' 

0022  include  ' MapMenu . inc ' 

0022  include  'MapLim.inc' 

0024  include  'OptFlg.inc' 

0025  include  'PenCom.inc* 

0026  include  'PicGrp.inc' 

0027  include  'PntAbs.inc' 

0028  include  'TicDat.inc' 

0029  include  'TrjCom.inc' 

nmn  include  'TrjLim.inc' 

0031  include  'VuWind.inc' 

0032  include  'MinLim.inc' 

0033 

0034  c . Rectangle  records 

0035 

0036  record  /  rect  /  bounds 

0037 

0038  c . Picture  record  handle  and  pointer 

0039 

0040  common  /  pict  /  PictHndl 

0041  record  /  PicHandle  /  PictHndl 

0042  record  /  PiePtr  /  PictPtr 

0043 

0044  c . set  up  pointer  for  QuickDraw  globals 

0045 

0046  common  /  QDGPtr  /  QDG 

004'  pointer  /  QDGlobals  /  QDG 

0048 

0049  c . external  function  declaration 

0050 

0051  external  ntrvl 

0052  integer *2  ntrvl 

0  0  5  3 

0054  - . graduation  output  arrays 

0055 

005  6  parameter  (  m;-:Grad  »  101  ' 

005”  integer*!  mj;Grad 

0058  real*4  grVal  (nurGrad) 

00  5?  real  *4  prip.ef  (m.tGrad) 

0060  reai*4  pyP.ef  (m::Grad' 

0061  reai*4  u.tP.ef  (m;;Grad) 

0062  real*4  uyRef  (mxGrad) 

^0  6  3 

"'064  - . Intermediate  text  string 
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0065 

0066  string*255  TxtOut 

0067 

0068  c . character  string-) 

0tj69 

0070  character *255  ChrDat 

0071 

0072  c . dialog  interface  variables  (  note  that  pointers  are  i*4  ) 

0073 

0074  integer*4  nil 

0075 

0076  - - 

0077  - - - - graduate  the  plot  curve - 

0078  - - 

0079 

0080  c . calculate  graduation  values 

0081 

0082  grVal(l)  tDivMj*anint  (  tMapMn/tDivM j  ) 

0083  do  while  (  grVal(l) .It.tMapMn  .or.  grVal ( 1) • It . MinTof  ) 

0084  grVal(l)  -  tOivMj'anint  (  1.0  +  grVal ( 1 ) /tDivM j  ) 

0085  end  do 

0086 

0087  i  -  1 

0088  do  while  (  grVal ( i) . le . tMapKx  .and.  grVal ( i) . le . MaxTof  ) 

0089  grVal (i+1)  “  tDivMj*anint  (  1.0  +  grVal (i> /tDivMj  ) 

0090  i  -i+1 

0091  end  do 

0092  nGrads  -  i  -  1 

00  93 

0094  c...  .draw  a  tic  mark  for  each  graduation  value 

0095 

0096  do  i  -  1  ,  nGrads 

0097 

0098  c . locate  the  data  segment  containing  the  graduation  value 

0099 

0100  j  -  ntrvl  (  grVal fi'  .  TofTab  ,  ntrpts  ,  1  ) 

0101  k  -  j  +  1 

0102 

0103  c . calculate  latitude  and  longitude  associated  with  the  time  point 

0104 

0105  tmpl  -  grvald!  -  TofTab(j) 

0106  trap2  -  TofTab(k)  -  TofTab(j) 

0107  yLat  -  LatTab(j)  +  tmpl*(  LatTab(k)  -  LatTab(j)  / /tmp2 

0108  if  (  JmpTab{k) . It . 0  )  then 

0109  xLng  -  LngTab(j)  +  tmpl*(  LngTab(k)  -  360.0  -  LngTab(j)  ) /tmp2 

0110  if  (  xLng+180 . 0 . It . 0 . 0  )  then 

0111  xLng  «  xLng  +  360.0 

0112  end  if 

0113  else  if  (  JmpTab ( k) . eq . 0  )  then 

0114  xLng  -  LngTab(j)  +  tmpl»{  LngTab(k)  -  LngTab(j)  ) /tmp2 

0115  else  if  (  JmpTab (k) . gt . 0  )  then 

0116  .xLng  -  LngTab(j)  +  tmpl*(  LngTab(k)  +  360.0  -  LngTab(j)  ) /tmp2 

Oil'  if  (  .xLng-180 . 0.  gt .  0 . 0  )  then 

0118  xLng  -  xLng  -  360.0 

'11+  end  if 


012'  . compute  the  window  coordinates  of  the  last  data  point 

0123 

'124  pxLast  -  xshift  xscale*LngTab  <  j ' 

0125  pyLast  -  yshift  *  yscalo+LatTab ( i i 

0  12  6 

012~  c . compute  the  window  coordinates  of  the  next  data  point 

012? 
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0129  pxN«xt  -  xshift  +  xflcai«*LngTab (k) 

0130  pyN«xt  -  yshift  +  yscalo’LatTab (k) 

0131 

0132  c .  . . .compute  the  window  coordinates  associated  with  the  tic  mark 

0133 

0134  pxRef(i)  “  xshift  +  xscale'xLng 

0135  pyRef(i)  -  yshift  +  yscale»yLat 

0136 

0137  c . calculate  a  unit  vector  perpendicular  to  the  flight  path  curve  at  the 

0138  c  tic  mark 

0139 

0140  ux  -  pyLast  -  pyNext 

0141  uy  “■  pxNext  -  pxLast 

0142  rmag  ■  sqrt  (  ux*ux  +  uy*uy  ) 

0143  if  (  rmag. gt. 0.0  )  then 

0144  uxRef(i)  —  ux/rmag 

0145  uyRof(i)  -  uy/rmag 

0146  end  if 

0147 

0148  c . draw  the  tic  mark  from  one  side  of  the  curve  to  the  other 

014  9 

0150  iPxRef  “  inint  (pxKef  i  j.)  ; 

0151  iPyRof  “  inint (pyRef (i) ) 

0152 

0153  if  (  iPxRef . go . iPxMin  .and.  iPxRef . le . iPxMax  .and. 

0154  .  iPyRef . ge . iPyMin  .and.  iPyRof . le . iPyMax  )  then 

0155 

0156  pxout  “  pxRef (i)  -  0 . 5*uxRef (i) ‘float (Iticmj) 

0157  pyout  •  pyRof(i)  -  0. 5»uyRof (i) ‘float (Iticmj) 

0158  call  MovAbs  (  inint (pxout)  ,  inint (pyout)  ) 

0159 

0160  pxout  “  pxRef(i)  +  0.5‘uxRof (i) ‘float (Iticmj) 

0161  pyout  “  pyRef(i)  +  0 . 5‘uyRef (i) ‘float (Iticmj) 

0162  call  DrwAbs  (  inint (pxout)  ,  inint (pyout)  ) 

0163 

0164  end  if 

0165 

0166  end  do 

0167 

0168  call  picComment  (  %val (picGroupEnd)  ,  %val(0)  ,  %val(nil)  ) 

0169 

0170  c . outout  and  group  the  graduation  values 

0171 

0172  call  picComment  (  %val (picGroupBeg)  ,  %val(0)  ,  %val(nil)  ) 

0173  doi"l,  nGrads 

0174  write (ChrDat, 1)  grVal(i) 

01 '5  call  GetStringWidth  (  ChrDat  ,  255  ,  nchar  ,  iwidth  ,  ixchar  ) 

01'’6  TxtOut  ••  ChrDat  (1  :nchar) 

Ol''"'  pxout  “  pxRef(i)  -  0 . 5*uxRef  (i) ‘float  (Iticmj) 

0178  .  -  0.5‘float (iWidth) 

0179  pyout  «  pyRef (i)  -  0 . 5*abs (uyRef (i) ) ‘ float ( Iticmj ) 

0100  -  float (FontData . ascent+FontData .descent) 

0181  iPxRef  «  inint (pxRef (i) ) 

C182  iPyRof  “  inint ( pyRef ( i) ) 

0:10?  if  (  iP.xP.ef  .  go  .  iPxMin  .and.  iPxRof  .  le  .  iPxMa;;  .and. 

0104  iPyRo  f  .  ae  .  iPyMin  .and.  iPyPof  .  le  .  iP  j’Ma;;  )  then 

0195  call  MovAbs  I  inint (pxout )  ,  inintlpyout)  i 

riOO  call  Drawstring  (  'val (TxtOut)  ) 

01  S'  end  i f 

0189  end  do 

0109  call  picComment  I  'val  (picGroupEnd)  .  »val(0.)  ,  'valinil)  ) 

0  1  70 

0191  1  format  (  f6.1  ) 

01  92 
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•Load  a  file  of  STRDCTORE  and  PARAMETER  definitiona  at  compile  time 


!!G  toolbox! . fine 


•Load  the  ToolBox  traps 


! ! M  Inlines . f 


•Put  the  following  code  in  the  Main  segment 


'  S  Main 


Segment 

OOlC 

0015 

0016 

001’ 

0018 

0019 

0020 

0021 

0022 


siibroutine  DoAppleMenu  (  menultem  ) 


implicit  none 

MSETC  USINGINCbODES  -  FALSE 


■include  alert  definitiona,  Apple  menu  definitions 

include  ' Alert. inc' 
include  ' AppleMenu . inc ' 


c . declare  the  input  argument  for  the  routine 

integer*!  menultem 

c . declare  return  argument  for  toolbox  "Alert"  routine 

integer*!  ItemHit 

c . set  up  variables  for  handling  DAs 

string*255  daName 
integer*!  daRefNum 


■set  up  a  structure  to  save  the  port  while  calling  DAs 


record  /  GrafPtr  /  SavePort 


■use  Language  System  FORTRAN  "select  case"  extension 


select  case  (menultem) 


■WO  have  selected  the  About  its 


rase ' Apple ItemAboutEDPSl 


.call  Alert  tc'-ibo:-:  function  with  ml  indicating  the  default  filterpr: 


itemHit  -  Alert  I  .  jl  i  cAbc ut  Alert ;  .  •-.-allnilt  ' 


,  we  must  have  selected  something  else  (DA,  MultiFinder,  etc.] 


rase  default 
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0060  call  GatPort  (  %raf (SavaPort )  ) 

0061  call  Gatl^am(  %val (ApplaManuEndl) ,  %val (manultam) ,  %val (daNama)  ) 

00  62  daRefKuin  «  OpanDaakAcc  (  %val  (daNama)  ) 

0063  call  SatPort  '  %raf ^SavePort)  ) 

0064 

0065  end  select 

006t 

006“'  return 

end 

0001  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

C  002 


jC03  !!G  tooibox2 . f inc 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

COOO  !!M  Inlinos  .  f 

oooe 

0009  c . Put  the  following  code  r*.  the  Main  segment 

0010 

0011  ' ! S  Main 

0012 

0013  c - 

Segment  Main 

0014  subroutine  DoEditMenu  (  menultem  ) 

0015  c - - - 

0016  c 

.017  implicit  none 

0018  !!SETC  USINGINCLUDES  -  FALSE 

0019 

0020  c . include  Edit  menu  definitions 


0021 

0022  include  ' EditMenu . inc ' 

0  023 

0024  c . include  global  definitions 

0025 

0026  include  ' Globals . inc ’ 

002“^ 

0028  c . declare  the  input  argument  for  the  routine 

'^029 

003^'  integer*2  menultem 

Q  Q  T  1 

0‘"'3r  record  /  DialogPtr  /  dptr 


0033 

^034 


0036  c . use  Language  System  FORTRAN  "select  case"  extension 

0039  select  case  (menultem) 

O'  3  9 

case  default 

:  4  1 

'■■0  42  end  seloct 

-  4 

.'44  return 

.■''.'4  5  end 


0:i  - . Load  a  file  of  STP.'JCTUP.E  and  PARAMETER  definitions  at  compile  time 

3  '  '  0  t  o  o  1  b  o  X  2  .  f  1  i ,  c 

'  ' ;  4 


58 


CHR/91-2750 


0005  c . Load  the  ToolBox  traps 

0006 

0007  ! !M  Inlines . f 

0008 

0009  c . Put  the  following  code  in  the  Main  segment 

0010 

0011  MS  Main 


0C12 

c - 

Segment 

0013 

Main 

subroutine  DoFileManu 

(  menultem  ) 

0015 

c 

0016 

implicit  none 

0010 

!!SETC  OSINGINCLODES  -  FALSE 

0018 

0019 

c.  .  .  . 

.include  definitions 

C} 

C>J 

o 

o 

0021 

include  '  Fileinf o . inc ' 

0022 

include  ' FileMenu . inc * 

0023 

include  ' Global* . inc ' 

0024 

include  ’ RunSetup . inc ' 

0025 

0026 

c ,  .  .  .  , 

•declare  the  input  argument  for  the  routine 

0027 

0028 

integer *2 

menultem 

0029 

0030 

c - 

.prompt  string 

0031 

0032 

string*255 

Prompt 

0033 

0034 

c . 

.file  information  parameters 

0035 

0036 

character *4 

Filryp 

0037 

character *4 

fMaber 

0038 

string*255 

FilNam 

0039 

0040 

0041 

c . 

,1/0  error  flags 

0042 

int9ger*2 

ioserr 

0043 

0044 

•  —  —  «  « 

0045 


0046  c . use  Language  System  FORTRAN  "select  case"  extension 

0047 

0048  select  case  (menultem) 

0049 

0050  case  ( Filelt emNewMiss ion) 

0051 

0052  c . first  disable  the  New  and  Open  Mission  buttons  -  one  file  at  a  time 

0053  call  MenuSet (  FileMenuID,  FileltemNewMission,  .false.  ) 

''054  call  MenuSet  (  FileMenuID,  FiloItemOpenMission,  .false.  ) 

c . modal  dialog  for  run  setup 

0056  call  RunSetupDialog 

O'  0  5  ~ 


case  { F i le It omOpenMi s  s ion ) 


''"'.''6'.  - . call  the  -pen  file  routine 

0' "  6 1  call  SFOpenMissionFile  <  ioserr,  FilTyp,  fmaker  » 

0'06I  if  (  lo  serr  .  eq .  1 )  then 

. . disable  the  New  and  'tpen  Missi>'n  buttons  -  <^ne  file  a*’  a 

064  call  MenuSet {  FileMenuID.  FileltemNewMis sion ,  .false.  ) 

CM  65  call  MenuSet f  FileMenuID,  FileltemOpenMission,  .false.  ) 

0066  c . set  the  boolean  to  indicate  that  old  file  is  in  use 

i^jotOldJile  *  .true. 
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0068  c . modal  dialog  for  run  aaCup 

0069  call  RunSetupDialog 

0070  c . B«t  tha  boolaan  to  indicata  that  old  fila  ia  no  longar  in  uae 

0071  iGotOldFila  -  .falaa. 

0072  end  if 

0073 

0074  caae  ( FilaltamCloaa) 

0075 

0076  caae  ( FilaltamQuit ) 

0077  call  ExitToShall 

0078 

0079  end  aelect 

0080 

0081  return 

0082  end 

0001  c . Load  a  file  of  STRDCTDRZ  and  PARAMETER  dafinitiona  at  compile  time 

0002 

0003  !!G  toolbox! . fine 

0004 

0005  c . Load  the  ToolBox  trapa 

0006 

0007  I !M  Inlinea.f 

0008 

0009  c . Put  the  following  code  in  the  Main  segment 

0  010 

0011  ! ! S  Main 

0012 

0013  c - - - 

Segment  Main 

0014  subroutine  DoKeyEvent  (thoEvant) 

0015  - - - - 

0016  c  handle  a  key-press  event 

0017 

0018  !!SETC  US INGINCLDDES  -  FALSE 

0019  implicit  none 

0020 

0021  c . common  block  definition  files 

0022 

0023  include  ' Globals . inc ' 

0024 

0025  c . character  items 

0026 

002"'  integer*!  ChCode 

0028  character*!  Ch 

c . m%nu  pi«c«a  (m«nuR««uit  -  merg©  of  menuID  and  m©nult©m) 

0031 

0032  int©g©r*4  menuR©ault 

'”'033  integ«r*4  itemMask  /'32767' 

0034  int©g©r*4  menuMask  /-16/ 

0035  int©g®r*2  menulD 

‘0  3*^  integer*!  menultem 

0'“  record  ZventPecerd  ^heE^en* 

- 

■■  ■  4 : 

''0''42  . get  the  character 

•■’44  ''hOode  •  jiand  (  t heEvent . mes sag©  .  CharCod©Mask  ) 

7  4  ^ 

00  4  ^  c . get  th©  character's  ASCII  representation 
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0047 

0048  ch  -  char  (  ChCode  ) 

0049 

0050  c . check  for  the  Cmd  key  depression 

0051 

0052  ChCode  •  jiand  {  theEvent .modifier s  ,  CmdKey  ) 

0053 

0054  if  (  ChCode. ne.O  )  then 

0055 

0056  menuResult  ■  MenuKey (  %val(ch)  ) 

0057 

0058  c . extract  the  menu  and  item  numbers  from  within  menuResult 

0059 

0060  menultem  •  jiand  (  menuResult,  itemMask  ) 

0061  menuID  •  jishft  (  menuResult,  menuMask  ) 

0062 

0063  c . call  my  Menu  handler  with  the  selection 

0064 

0065  if  (menuID  .ne.  0)  call  DoMenu  (menuID,  menultem) 

0066 

0067  c . handle  any  cut,  copy,  or  paste 

0069  if  (  (ch.eq.'x'  .or.  ch.eq.’X*)  .and.  theinput  .ne.  nil  ) 

0069  &  call  TECut  (  %ref (theinput)  ) 

0070  if  (  (ch.eq.’C  .or.  ch.eq.’C*)  .and.  theinput  .ne.  nil  ) 

0071  &  call  TECopy  (  %ref (theinput)  ) 

0072  if  (  (ch.eq.'v’  .or,  ch.eq.'V)  .and.  theinput  .ne.  nil  ) 

0073  &  call  TEPaste (  %ref (theinput)  ) 

0074 

0075  c . if  CmdKey  not  depressed,  then  it  must  be  TE 

0076 

0077  else  if  (  theinput  .ne.  nil  )  then 

0078 

0079  call  TEKey  (  4val(ch),  »ref (theinput)  ) 

0090 

0061  endif 

0082 

0083  return 

0094  end 


0001 

0002 

nnn3 

C’  0  0  4 
0005 
0006 
003"’ 

*^008 
n  O  O  Q 

0010 
0  011 


c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

MG  toolbox2  .  f inc 

c . Load  the  ToolBox  traps 

' ! M  Inlinea . f 

subroutine  DoMapMenu  (  TheEvent  ,  Option  ) 


'  r  2  r 


:  0. 2  4 


include  files 

include  '  MarMenu  .  me  ' 
include  ’  Opt  Fla  .  me  ’ 

event  record 

re  -'^r-^  Event  Pec'' r  3  TheE'rent 

user  option  inde:: 

integer  *2  Option 
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0025 

0026  c . LongWord  containing  menu  selection  parameters 

0027 

0028  integer*4  MenuChoice 

0023 

0030  c . LongWord  masks 

0031 

0032  integer»4  ItomMask 

0033  integer»4  MenuMask 

0034 

0035  c . character  items 

0036 

0037  integor»2  ChCode 

0038  character*!  Ch 

0039 

0040  c . set  local  integer  masks 

0041 

0042  data  ItemMask  /  32767  / 

0043  data  MenuMask  /  -16  / 

0044 

0045  c - 

0046 

0047  c . handle  MouseDown  in  menuBar 

0048 

0049  if  (  TheEvent . what . eq. mouseDown  )  then 

0050  MenuChoice  -  MenuSelect  (  '•val  (TheEvent  .where)  ) 

0051  end  if 

0052 

0053  c . handle  koyDown  events 

0054 

0055  if  (  TheEvent .what . eq. keyDown  )  then 

0056  chcode  •  jiand  (  TheEvent .message  ,  CharCodeMask  ) 

005"’  ch  •  char  (  chcode  ) 

0058 

0059  c . Enter  or  Return:  Make  a  new  Map 

0060 

0061  if  (  chcode. eq. 3  .or.  chcode. eq. 13  )  then 

0062  call  HiliteMenu  (  %val (MapMenuID)  ) 

0063  menu  -  MapMenuID 

0064  item  -  itemNewMap 

0065  MenuChoice  -  item  +  jishft  (  menu  ,  -  MenuMask  ) 

0066 

0067  c . If  command  key  was  depressed,  activate  equivalent  menu  item 

0068 

0069  else 

OO'O  chcode  -  jiand  (  TheEvent .modifiers  ,  CmdKoy  ) 

OO'l  if  (  chcode . ne . 0  )  then 

0072  MenuChoice  -  MenuKey  (  %val(ch)  ) 

no -3 

00)’4  c . Otnerwise  perform  no  operation 

nn"'S 

00 '6  else 

MenuChoice  «  0 
end  if 

*  ~  ^  end  i  f 

'''8^  end  if 

'  “  8  1 

0082  n . determine  which  menu  and  menu  item  were  selected 

; ;  9  0 

''Oi  if  (  MenuCh^i  ce .  gt  . 1  th**r. 

009  5  item  *  liand  1'  MenuChoice  ItemMask  ) 

00^^  menu  ”  jishft  (  MonuC.hoice  ,  MenuMask  ) 

O  O  P  ■ 

onpp  o . Options  menu 
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0089 

0090  if  (  menu . eq.MapMenuID  )  then 

0091 

0092  c . get  a  new  data  set  to  Map 

0093 

0094  if  (  item.eq . itemGetNewDataSet  )  then 

0095  call  RoadFlightData 

0096  Option  —  oCycle 

0097  end  if 

0098 

0099  c . resize  the  map  window 

0100 

Old  if  (  item.eq.itemResizeTheMap  )  then 

0102  call  ResizeTheMap 

0103  Option  -  oCycle 

0104  end  if 

0105 

0106  c . make  new  Map 

0107 

0108  if  (  item. eq. itemNewMap  )  then 

0109  Option  “  oNew 

0110  end  if 

0111 

0112  c . save  Map  into  Piet  file  and  redraw  the  Map  window 

0113 

0114  if  (  item. eq. itemSaveMap  )  then 

0115  call  SaveTheMap 

0116  Option  “  oCycle 

0117  end  if 

0118 

0119  c . redraw  the  Map  window 

0120 

0121  if  (  item.eq. itemRedr aw  )  then 

0122  Option  «  ©Redraw 

0123  end  if 

0124 

0125  c . quit  from  the  program 

0126 

0127  if  (  item.eq, itomDone  )  then 

0128  Option  -  oQuit 

0129  end  if 

0130 

0131  end  if 

0132 

0133  end  if 

0134 

0135  c . turn  off  all  menu  highlighting 

0136 

013"  call  BiliteMenu  (  0  ) 

0138 

0139  return 

014"  end 


Old  r . Load  a  file  of  STRUCTURE  and  FARAMETEP  definitions  at  c 

"002 

0  001  ''9  t  oolbo.xl  .  f  inc 

0004 

c . Load  the  TooIBok  'Traps 

0006 

000"  ! ! M  Inlines . f 

-  o  n  q 

"009  c . Put  the  following  code  in  the  Main  segment 

0  0  1  0 


mpile  time 
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0011  ! ! S  Main 

0012 

0013  c - 

Sagment  Main 


9014  subroutine  DoMenu  (  menuID,  menultem  ) 

0015  c - 

0016  c 

001'^  implicit  none 

0018  !!SETC  OSINGINCLODES  -  FALSE 

0019 

0020  c . common  block  definition  files 

0021 

0022  include  ' AppleMenu . inc ' 

0023  include  ' FileMenu . inc ' 

0024  include  ' EditMenu . inc ' 

0025  include  ' MapMenu , inc ' 

0026  include  'MBar.inc' 

002'?  include  '  Globals  .  inc  ' 

0028 

002  9  c . menu  pieces  passed  in  as  arguments 

0030 

0031  integor*2  menuID 

0032  integor*2  menultem 


0033 

0034  c 
0035 


0036  c . use  Language  System  FORTRAN  "select  case"  extension 

0037 

0038  select  case  (menuID) 

0039 

0040  c . choice  from  Apple  menu 

0041 

0042  case (AppleMenuID) 

0043 

0044  call  DoAppleMenu  (  menultem  ) 

0045 

0046  c . choice  from  File  menu 

0047 

0048  case (FileMenuID) 

0049 

0050  call  DoFileMenu  {  menultem  ) 

0051 

0052  c . choice  from  Edit  menu 

0053 

0054  case (EditMenuID) 

0055 

0056  call  DoEditMenu  (  menultem  ) 

0057 

0058  c . choice  from  Plot  menu 

0059 

0060  case (MapMenuID) 

0061 

■'"62  call  DoMapMenu  (  menultem  ) 

0063 

0064  end  select 

""65 

0066  c . turn  off  hiah -1 ight mg  for  the  selected  menu 

00  6" 

0068  call  HiliteMenu (  'val(O)  t 


'069 

'Otn  return 

0"1  end 
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0001  c . Load  a  fila  of  STROCTORE  and  PARAMETER  dafinitions  at  compila  time 

0002 

0003  !!G  toolbox2 . f inc 

0004 

0005  c . Load  the  ToolBox  traps 

000b 

0007  !!M  Inlinea.f 

0008 

0009  c . Put  the  following  code  in  the  Main  segment 

0010 

0011  ! !S  Main 

0012 

0013  c - 

Sogroont  Main 

0014  subroutine  DoPlotManu  (  menultem  ) 

0015  c -  - 

0016  c 

0017  implicit  none 

0018  !!SETC  USINGINCLODES  -  FALSE 

0019 

0020  c . include  Plot  menu  definitions 

0021 

0022  include  ' PlotMenu . inc • 

0023 

0024  c . include  global  definitions 

0025 

0026  include  ' Globala . inc ' 

0027 

0028  c . declare  the  input  argument  for  the  routine 

0029 

0030  integer*2  menultem 

0C31 

0032  record  /  DialogPtr  /'  dptr 

0033 

0034  c - 

0035 

0036  c . use  Language  System  FORTRAN  "select  case"  extension 

0037 

0038  select  case  (menultem) 

0039 

0040  case  default 

0041 

0042  end  select 

0043 

0044  return 

0045  end 


c . Load  a  file  of  STROCTURE  and  PARAMETER  definitions  at  compile  time 

l!G  toolbox2 . f inc 

; . Load  the  ToolBox  traps 

'  ' M  Inlines . f 


subroutine  Drawt  IrghtFath  xscale  .  xshrft  ,  yscaie  ,  yshift  I 


This  subroutine  overlays  a  flight  path  over  the  map. 

developer:  David  F.  Smith 

date;  February  1991 


0001 
0002 
0  0  03 
0  0  04 
0  0  0  5 
nr' 


r  r  n  g 


0014 
0  'n  5 
0016 
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0017  include  'CrvDat.inc' 

0018  include  ' FntCora . inc ' 

0019  include  'LatCom.inc' 

0020  include  'LngCom.inc' 

0021  include  ' MapCom . inc ' 

0022  include  ' MapMenu . inc ' 

0023  include  'MapLim.inc' 

0024  include  'OptFlg.inc' 

0025  include  ’ PenCom . inc ‘ 

0026  include  'PicGrp.inc' 

0027  include  'PntAbs.inc' 

0028  include  'TicDat.inc' 

0029  include  ' Tr jCom. inc ' 

0030  include  'VuWind.inc' 

0031  include  ' WinLim . inc ' 

0032 

0033  c . Rectangle  records 

0034 

0035  record  /  rect  /  bounds 

0036 

0037  c . Picture  record  handle  and  pointer 

0033 

0039  common  /  pict  /  PictHndl 

0040  record  /  PicHandle  PictHndl 

0041  record  /  PicPtr  /  PictPtr 

0042 

0043  c . set  up  pointer  for  QuickDraw  globals 

0044 

00  4  5  common  /  QDGPtr  /'  QDG 

0046  pointer  /  QDGlobals  /  QDG 

0047 

0048  c . set  pen  sue  for  flight  path 

0049 

0050  call  PenSiro  (  %val{2)  ,  %val(2)  ) 

0051 

0052  c . group  the  flight  path  data  points 

0053 

0054  call  picComment  (  *val (picGroupBeg)  ,  4val<0)  ,  %val(nil)  ) 

0055  do  i  -  1  .  ntrpts 

0056 

0057  o . 1st  point 

0058 

0059  if  (  i.eq.l  )  then 

0060  pxout  -  xshift  +  xscale*LngTab ( i) 

0061  pyout  *  yshift  +  y8cale*LatTab ( i) 

0062  call  MovAbs  (  mint (pxout)  ,  inint (pyout)  ) 

0063 

0064  c . all  other  points 

0065 

0066  else  if  (  i . ne . 1  )  then 


0  0  6  ^ 
''.'0  6  8 
O'  0  69 


O' '  5 


a  longitude  discontinuity  occurred  in  the  Westward  direction 

if  (  JmpTab(i) .It.O  )  then 

pxout  -  xshift  *  ::scale*(  LngTab'i)  -  360  .'^  ^ 

pyout  =  yshift  *  yscaIe*'Latrafc  f  i  ' 

call  DshAbs  i  inmt  (pxout )  .  mint  (pyout  t  icurve  > 

pxout  =  xshift  +  xscale* (  LngTab(i-l)  +  360.0  i 

pyout  =  yshift  o  y scale* Lat lab ( i- 1 ' 

call  MovAbs  (  mmtfpxouti  ,  mint(py-ut!  i 

pxout  »  xshift  t  x3cale*LngTab ( i) 

pyout  ■*  yshift  *■  yscaie'LatXab  ( i) 

call  DshAbs  (  mint (pxout)  ,  inint (pyout)  ,  icurve  ) 
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0081  c . ■  o  longitude  discontinuity  occurred 

0082 

0083  else  if  (  JmpTab (i) .eq. 0  )  then 

0084  pxout  “  xshift  +  x8cale*LngTab (i) 

0085  pyout  "  yshift  +  y8cale*t,atTab  ( i ) 

0086  call  DahAbs  (  inint (pxout)  ,  inint (pyout)  ,  icurve  ) 

008"' 

0088  c . a  longitude  discontinuity  occurred  in  the  Eastward  direction 

0089 

0090  else  if  (  JmpTab(i) .gt.O  )  then 

0091  pxout  ”  xshift  +  xscale*(  LngTab(i)  +  360.0  ) 

0092  pyout  -  yshift  +  yacaie*LatTab (i) 

0093  call  DshAbs  (  inint (pxout)  ,  inint (pyout)  ,  icurve  ) 

0094  pxout  ”  xshift  +  xscale*  (  LngTabd-l)  -  360.0  ) 

0095  pyout  “  yshift  +  yecale*LatTab (i-1) 

0096  call  MovAba  (  inint (pxout)  .  inint (pyout)  ) 

009'  pxout  =  xshift  +  xscale*LngTab(i) 

0098  pyout  «  yshift  +  y scale*LatTab ( i) 

0099  call  DshAbs  (  inint (pxout)  ,  inint (pyout)  ,  icurve  ) 

0100  end  if 

0101  end  if 

0102  end  do 

0103  call  picComment  (  %val (picGroupEnd)  ,  %val(0)  ,  %val{nil)  ) 

0104 

0105  c . reset  pen  size 

0106 

010'  call  PenSize  (  4val{l)  ,  <<val(l)  ) 

0108 

0109  c . display  time  tic  mar)ca 

0 1 1 0 

0111  if  I  TimoTics  .and.  ntrpts.gt.l  )  then 

0112  call  DisplayTiraeTica  (  xscale  ,  xshift  ,  yscale  ,  yshift  ) 

0113  end  if 

0114 

0115  return 

0116  end 


0001  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

0002 

CC03  !!  G  toolbo.'cl  .  f  inc 

0004 

0005  c . Load  t>-  ToolBox  traps 


0006 

0000  !:m  Inlines. f 

0008 

0009  S  DrawTheMap 

0010  - - 

0011  subroutine  DrawTheMap  (  Option  ) 

nni2  - - 

”013  c  This  subroutine  draws  the  global  map  data  in  the  graphics  window  and 


0 1  4 

over iaya 

a  flight  path  over  it 

;;  1  6. 

c 

developer 

:  David  F.  Smith 

'  1  9 

da*:  e  ; 

February  1?91 

0  0  1  ? 

include  ’ 

Cri'Dat  .  me 

C',  2'? 

include  ' 

F  nt Com . inc ' 

'''.■2  1 

include  ' 

LatCom .inc’ 

?2  2  2 

include  ' 

Lnadcm . inc’ 

ir.ilude  ’ 

MapCcm .  me  ’ 

■■■■'■2  4 

include  ’ 

MapMenu . inc ' 

-  ,-n  2  c 

include  ' 

MapLim . inc ' 

::29 

include  ’ 

•'Iptrig  .  inc 

67 


CHR/91  -2750 


QQ27  include  'PenCom.inc' 

0028  include  'PicGrp.inc' 

0029  include  'PntAbe.inc' 

0030  include  'TicDat.inc' 

0031  include  ’ Tr jCom . inc ' 

0032  include  'VuMind.inc' 

0033  include  ' WinLim . inc ’ 

0034 

0035  c . Rectangle  recorda 

0036 

0037  record  /  rect  /  bounds 

0038 

0039  c . graphics  window  records 

0040 

0041  common  /  MapWindow  /  MapWPtr 

0042  record  /  WindowPtr  /  MapWptr 

0043 

0044  c . Map  window  title 

0045 

9046  string*2S5  MapWTitle 

0047 

0048  c . Picture  record  handle  and  pointer 

0049 

9050  common  /  pict  /  PictHndl 

0051  record  /  PicHandle  /  PictHndl 

0052  record  /  PicPtr  /  PictPtr 

0055 

0054  c . set  up  pointer  for  QuickDraw  globals 

0055 

0056  common  /  QDGPtr  /  QDG 

0057  pointer  /  QDGlobals  /  QDG 

0058  integer*4  jQDGlobala 

9059  external  jQDGlobals 

0060 

0061  c . Intermediate  text  string 

0062 

0063  8tring*255  TxtOut 

0064 

0065  c . character  strings 

0066 

0067  character *255  ChrDat 

0068  character*9  cscale 

0069  character*9  cshift 

0070  character*!  onechr 

0971 

0072  c . dialog  interface  variables  (  note  that  pointers  are  i*4  ) 

0073 

0074  integer*4  nil 

9075 

007  6  c . define  logical*!  items  to  emulate  Boolean  Pascal  items 

no7- 

00'?  logical*!  visibl 

77'^  logical*!  goAway 

0080  logical*!  fUpdato 

0  :  8 1 

-'0?2  0 . temporary  table  of  window  coordinates  for  iharacter  placemen- 

'  0  P  7 

0084  integer*!  i;:char(255' 

0085 

0086  c . user  option  flaa 

0  0  8' 

0089  integer*!  Option 

00  3  9 

0090  c . calculate  graph  window  limits 
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0091 

0092  iGxMax  -  iGxMin  +  inint  (  MapHRes*MapWidth  ) 

0093  iGyMax  -  iGyMin  +  inint  (  MapVR»s*MapH»ight  ) 

0094 

00  95  c . set  draw  window  limits 

0096 

0097  iWxMin  -  iGxMin  +  35 

0098  iWxMax  -  iGxMax  -  15 

0099  iWyMin  «  iGyMin  +  20 

0100  iWyMax  -  iGyMax  -  24 

0101 

0102  c . create  a  visible  graphics  window  with  no  goAway  box  and  an  invisible 

0103  c  analog  for  refreshing 

0104 

0105  if  (  iGotMapWptr . eq. 0  )  then 

0106  bounds. left  -  iGxMin 

0107  bounds. right  -  iGxMax 

0108  bounds. top  —  iGyMin  +  38 

0109  bounds . bottom  ”  iGyMax  +  38 

0110  visibl  -  .true. 

0111  goAway  ”  .false. 

0112  MapMTitlo  “  'Map  Window' 

0113  MapWptr  “  NewWindow  {  %val(nil)  ,  %val (bounds)  , 

0114  .  %val (MapWTitle)  ,  %val (visibl)  , 

0115  .  %val (noGrowDocProc)  ,  %val (int4 ( -1 ) )  , 

0116  .  %val(goAway)  ,  %val(nil)  ) 

0117  iGotMapWptr  -  1 

0118  else 

0119  fDpdate  -  .true. 

0120  mWidth  -  iGxMa.x  -  iGxMin 

0121  mHoight  ”  iGyMax  -  iGyMin 

0122  call  SizeWindow  (  %val (MapWptr )  ,  %val (mWidth)  ,  %val (mHeight )  , 

0123  .  %val (f Update)  ) 

0124  end  if 

0125 

012  6  c . incorporate  the  entire  window  into  the  update  region 

0127 

0128  call  InvalRect  (  %val (MapWPtr . WP' .portRect )  ) 

0129 

0130  c . initiate  Plot  window  update 

0131 

0132  call  BeginUpdate  (  %val (MapWptr)  ) 

0133 

0134  c . open  drawing  port 

0135 

0136  call  SetPort  (  %val (MapWptr)  ) 

013^  call  ShowWindow  (  %val (MapWptr )  ) 

0138 

0139  c . set  clip  and  visible  region  boundaries  to  port  rectangle 

0140 

0141  MapWPt  r  .  WP  "  .  clipRgn  .  RgnH’' .  RgnP  "  .  RgnBBox  MapWPt  r  .  WP^  .  portRect 

0142  MapWPt r  .  WP^  .  visRgn  . RgnH' .  RonP' , RqnBBox  MapWPtr  .  WF'' . portRect 

014  3 

'’144  c . erase  the  visible  region 

4"- 

^14t  call  Erasepect  (  *  val  (MapWFt  r  .  WE' "  .pert  Pect '  ) 

O'  1  4 

^'148  c . 'Open  ricture  in  case  user  wishes  to  save  Map 

1  4  -r 

FictHnil  =  O'penP  i  "t  u  r“  (  *  "a  1  ( Mac'WFt  r  .  WP  ‘  .  port  Feet  i  * 

Ol';!  call  ShewFen 


''l“o  . 3^^  ft’nt  size  to  Geneva  9  and  get  font  information 

1  0. 4 


69 


CHR/91-2750 


0155  FntNam  -  ’Ganeva’ 

0156  call  GetrNum  (  %val (FntNam)  ,  FntNum  ) 

0157  call  TaxtFont  (  %val (FntNum)  ) 

0158  call  TaxtSizo  (  %val(9)  ) 

0159  call  GetFontInfo  (  %raf (FontData)  ) 

0160 

0161  c . Sat  initial  pointer  to  bottom  left  corner  of  Map  window 

0162 

0163  ixabs  -  iWxMin 

0164  iyabs  -  iWyMin 

0165 

0166  c . set  pen  size  for  drawing  map 

0167 

0168  call  PenSize  (  %val(l)  ,  %val(l)  ) 

0169 

0170  c . set  Map  window  screen  limits 

0171 

0172  ipxmin  ••  iWxMin 

0173  ipxmax  “  iWxMax 

0174  ipymin  -  iWyMin 

0175  ipymax  “  iWyMax 

0176 

0177  c . determine  spans  of  Map  data 

0178 

0179  xmSpan  =  xMapMx  -  xMapMn 

0180  ymSpan  “  yMapMx  -  yMapMn 

0181 

0182  c . determine  numijer  of  major  and  minor  tic  mar)cs 

0183 

0184  xTicMj  <•  inint  (  xmSpan/xDivM j  ) 

0185  xTicMi  “  inint  (  xDivM j/xDivMi  ) 

0186  yTicMj  -  inint  (  ymSpan/yDivM j  ) 

0187  yTicMi  -  inint  (  yDivM j /yDivMi  ) 

0188 

0189  c . determine  scale  factors  which  will  scale  the  data  to  fill  the 

0190  c  Map  window 

0191 

0192  xscale  -  float  (  ipxmax  -  ipxmin  ) /xmSpan 

0193  yscale  -  float  (  ipymax  -  ipymin  ) /ymSpan 

0194 

0195  c . determine  offsets  which  will  shift  the  scaled  data  into  the  Map 

0196  c  window 

0197 

C198  xshift  —  float (ipxmin)  -  xscale*xMapMn 

0199  yshift  float  (ipymin)  -  yscale*yMapMn 

0200 

0201  c . loop  on  data  points  to  draw  curve  and  make  sure  it  is  grouped 

0202 

0203  call  picComment  {  tval (picGroupBeg)  ,  %val{0)  .  %val(nil)  ) 

0204 

0205  do  i  =  1  ,  13120 


0  2  06 

^2"'  c . determine  Map  window  coordinates  of  data  point 

02  '^8 

C  200  p::cut  =  ;;shift  *  ::scaIe*liOnaitude  ( i) 

021'  py-^ut  yshif'*'  y  scale*  Lat  i*:  ude  {  i ) 

0  211 

•;212'  - . either  draw  a  line  segment  or  pcsiticn  the  Map  pcinter 

0214  if  <  Fen rommand  f  i  ji  .  eq .  ' f  then 


^  *  c. 

call 

McvAh'S  '  mint  ( f  > 

.  inint  (py'"Jt ) 

1 

02  1*^ 

else  if 

(  PenCommand ( i ) .eq.l  j 

1  then 

2  J  " 

call 

DshAbs  <  inint  ) 

r  inint  (pyo\it )  , 

,  i curve 

' .  1  P 

end  i  f 
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0219 

0220  end  do 

0221  call  picComment  (  %val (picGroupEnd)  ,  %val(0)  ,  %val(nil)  ) 

0222 

0223  c . form  the  Map  window  frame 

0224 

0225  call  picComment  (  %val (picGroupBeg)  ,  %val(0)  ,  %val(nil)  ) 

0226  if  (  iMapyp.eq.l  .or.  icurve .eq.ncurve  )  then 

0227  call  MovAbs  (  ipxmin  ,  ipymin  ) 

0228  call  DrwAbs  (  ipxmax  ,  ipymin  ) 

0229  call  DrwAbj  (  ipxmax  ,  ipymax  ) 

0230  call  DrwAbs  (  ipxmin  ,  ipymax  ) 

0231  call  DrwAbs  (  ipxmin  ,  ipymin  ) 

0232  end  if 

0233  call  picComment  (  %val (picGroupEnd)  ,  %val(0)  ,  %val(nil)  ) 

0234 

0235  c . draw  ,x  axis  major  tic  mar)c8  or  vertical  grid  lines  and  calculate 

0236  c  associated  reference  values 

0237 

0238  call  picComment  (  %val (picGroupBeg)  ,  %val(0)  ,  %val(nil)  ) 

0239  do  i  -  1  ,  xTicMj  +  1 

0240  xrefmj(i)  -  xMapMn  +  xDivM j»f loat (i-1) 

0241  hticmj(i)  “  inint  (  xshift  +  xscale*xrefm j (i)  ) 

0242  if  (  Gridlines . eq. 1  )  then 

0243  if  (  i.gt.l  .and.  i.lo.xTicMj  )  then 

0244  call  MovAbs  (  hticmj(i)  ,  ipymin  ) 

0245  call  DrwAbs  (  hticmj(i)  ,  ipymax  ) 

0246  end  if 

0247  else 

0248  call  MovAbs  (  hticmj(i)  ,  ipymin  ) 

024?  call  DrwAbs  (  hticmj(i)  ,  ipymin  +  Iticmj  ) 

0250  call  MovAbs  (  hticmj(i)  ,  ipymax  -  Iticmj  ) 

0251  call  DrwAbs  (  hticmj(i)  ,  ipymax  ) 

0252  end  if 

0253  end  do 

0254  call  picComment  (  %val (picGroupEnd)  ,  %val(0)  ,  %val(nil)  ) 

0255 

0256  c . draw  y  axis  major  tic  mar)cs  or  horizontal  grid  lines  and  calculate 

0257  c  associated  reference  values 

0258 

0259  call  picComment  (  %val (picGroupBeg)  ,  %val(0)  ,  %val(nil)  ) 

0260  do  i  "  1  ,  yTicMj  +  1 

0261  yrefmj(i)  -  yMapMn  +  yDivMj*f loat ( i-1 ) 

0262  vticmj(i)  “  inint  (  yshift  +  yscale*yrefm j (i )  ) 

0263  if  (  GridLines . eq . 1  )  then 

02^4  if  (  i.gt.l  .and.  i.le.yTicMj  )  then 

0265  call  MovAbs  (  ipxmin  ,  vticmj(i)  ) 

0266  call  DrwAbs  (  ipxmax  ,  vticmj(i)  ) 

026"’  end  if 

0268  else 

026?  call  MovAbs  (  ipxmin  ,  vticmj(i)  ) 


call  DrwAbs  (  ip.xmin  +  Iticmj  ,  \-ticmj(i)  ) 

OO-l  call  MovAbs  (  ipxma;;  -  Iticmj  ,  vticmj{i)  ) 

00^2  call  DrwAlis  f  ipxmax  ,  vticmi(i)  ) 

-  2  "  '•  e  n  d  i  f 

2  "  1  e  n  d  d  ■: 

2  ' call  r  I  f  • -'al  <  j:- j  cTjpEnd »  ■  '  'val  ^nil  ' 

'2""'  c . draw  each  of  th®  a.xi.s  min-r  -  i  -  marks 

;  c  c. 

"2""'  call  picccmment  '  •■.'al  fpic  l-cupBea '  'valK''  .  'val(nil) 

■2  8'  dc  1  =  1,  xTicMj 

2  81  d-'  i  =  1  .  .xTicMi  -  1 

2  2  9  2  .xrefmi  =  xrefmjd;  +  .xDivMi  *  float  (  j  i 


71 


CHR/91-?750 


0283 
0284 
0285 
0286 
0287 
0208 
0289 
0290 
0291 
02  92 
0293 
0294 
02  95 
02  96 
02  97 
0298 
0  2  9  9 
0  3  0  0 
0301 
03  02 
0  3  0  3 
0304 
0  3  r<  5 
0  3  0  6 
0  3  0" 
9  3  08 
0  9  0  9 
0  3  1 C- 

o  n  1 

0  3  1 2 

^■1  913 
'■314 
3  1  5 
0  3  1  6 
0  3  1  7 
0318 
0319 
032'’ 
0  3  2  1 
0  3  2  2 
r  2  "i 
0  3  2  4 


c 


hticmi (i, j) 
call  MovAbs 
call  DrwAbs 
call  MovAbs 
call  DrwAbs 
end  do 
end  do 

call  picComment  ( 


—  inint  (  xshift  +  xscale*xrefmi  ) 
(  hticmi (i,j)  ,  ipymin  ) 

(  hticmi (i,j)  ,  ipymin  +  Iticmi  ) 

{  hticmi (i,j)  ,  ipymax  -  Iticmi  ) 

(  hticmi  (i,j)  ,  ipymax  ) 


%val (picGroupErd)  ,  %val{0)  ,  %vai(nil)  ) 


draw  each  of  the  y  axis  minor  tic  marks 


call  picComment  (  %val (picGroupBeg)  ,  %val{0)  ,  %val(nil)  ) 

do  i  “  1  ,  yTicMj 

do  j  “  1  ,  yTicMi  -  1 


yref mi 
vticmi  (i,  j) 
call  MovAbs 
call  DrwAbs 
call  MovAbs 
call  DrwAbs 


yrefmj(i)  +  yDivMi*£loat ( j ) 


-  inint  (  yshift  + 
(  ipxmin 

(  ipxmin  +  Iticmi 
(  ipxmax  -  Iticmi 
(  ipxmax 


yscale*yrefmi  ) 
vt icmi (i, j )  ) 

vticmi  (  i,  j )  ) 

vticmi  (i,  j)  ) 
vticmi  (i  ,  j)  ) 


end  do 
end  do 

call  picComment  (  %val  (picGroupEnd)  ,  %val(0)  ,  '»val(nil)  ) 


. output  reference  values  associated  with  x  axis  major  tic  marks 


call  picComment  (  ‘val (picGroupBeg)  ,  ^val (0)  ,  *val(nil)  ) 
dr.  ix  “  1  ,  xTicMj  +  1 

write(ChrDat, 1)  xrefmj(ix) /lO . 0**ilogx 

cal.’  Gets*. lingWidth  (  ChrDat  ,  255  ,  nchai  ,  iwidth  ,  ixchai  ) 

ipxref  ■>  hticmi  (ixl  -  iwidth/2 

ipyref  “  ipymin  -  3 *FontData . ascent  /2 

call  MovAb'S  (  ipxref  ,  ipyref  ) 

TxtOut  -  ChrDat ( 1 :nchar) 
call  Drawstring  (  <*val(TxtOut)  ) 
end  dC' 

call  picComment  (  tval (picGroupEnd)  ,  »val(0)  ,  *val(nil)  ) 


. output  reference  values  associated  with  y  axis  major  tic  marks 


call  picComment  (  aval (picGr oupBea)  ,  *val(0)  ,  »val(nil)  ) 

do  ly  -  1  ,  yXicMi  +  1 

call  MovAbs  (  ipxmrn  ,  vticmj(iy)  ) 
write  (ChrDat  ,1)  yrefmj(iy)  / 1  0 . 0*  *i  logy 

call  GetSt rinaWidth  (  ChrDat  ,  255  ,  nchar  ,  iwidth  ,  ixchar  ) 
cal!  MovPeJ  (  iwidth  ,  -  Font Dat a . ascent / 2  ) 

Tv' ■  njt  »  ChiLia*  (linchai  ) 

-all  L-i  awSt  rr  nq  1  • -.-a  1  ( Txt  cut  |  ) 

«  n  ■  i  "‘1  ■ 

■p\\[  I  ]  :■  '  •  va  1  (  p "  -  -  - ‘Uj -End )  ,  'vallf'ii  ,  ‘valinill  ) 


}  1  1  Jii*  ]  W«^  ]  I 


■>1  !  '  I  w  f  I  1  d .  •  t  n  *  ;  '  ; ;  s  1 


5?  K  ; 
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0347 

0348  call  EndOpdate  (  %val (MapWPtr )  ) 

0349 

0350  1  format  (  f6.1  ) 

0351 

0352  return 

0353  end 

0001  c . Load  a  file  of  STRDCTORE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !IG  toolbox! . fine 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  ! !M  Inlines .f 

0008 

0009  - - 

0010  subroutine  DrwAbs  (  ix  ,  iy  ) 

0011  - - 

0012  c  Draw  to  absolute  oraphics  window  position  , 

0013 

0014  include  'PntAbs.inc' 

0015  include  'WinLim.inc' 

0016 

0017  ixabs  -  ix 

0018  iyabs  -  iy 

0013 

0020  call  LineTo  ;  tval (ixabs)  ,  ^val (iGyMax-iyabs)  ) 

0021 

0022  return 

0023  end 

0001  c . Load  a  file  of  STRUCTORE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !!G  toolbox! . fine 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

3007  !!M  In lines. f 

000? 

0009  c _ 

"'OlO  subroutine  DshAbs  (  ix  ,  iy  ,  icurve  ) 


- - 

n^'12  Draw  a  dashed  line  to  the  point  (ipx.ipy)  from  current  pen  location, 

(^0;o  c  /lif'pino  the  portion  outside  the  Map'  window. 

''ii  include  'CrvDat.inc' 

include  'FntAbs.inc' 

'  ‘  '  1 "  include  'WinLim.inc' 

'  . retuii,  if  pien  Iccaticr.  will  rnt  chanae 
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0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
00  60 
0061 
0062 
0i.’63 
0064 
00  65 
0066 
0067 
0068 
0069 
0  0  7  Cl 
OO"  I 
00*^  2 
0  C'  7  3 

00"^5 

ec-’G 

n  r  7  p 

,,  p . . 

, , ,  I  p  1 


iynew 

ly 

xold 

float 

(  ixold  ) 

yold 

- 

float 

(  iyold  ) 

xnew 

- 

float 

(  ixnew  ) 

ynew 

- 

float 

(  iynew  ) 

c . see  if  old  pen  location  is  inside  the  Map  window 

if  (  ipxmin , lo . ixold  .and.  ipxmax.ge.ixold  .and. 

ipymin , le . iyold  .and.  ipymax . ge . iyold  )  then 
locold  —  0 
else 

locold  —  1 
end  if 

c . see  if  current  pen  location  is  inside  the  Map  window 

if  (  ipxmin . le . ixnew  .and.  ipxmax .ge . ixnew  .and. 

ipymin . le . iynew  .and.  ipymax, ge . iynew  )  then 
locnew  “  0 
else 

locnew  “  1 
end  if 


. . current  pen  location  is  inside  window,  new  pen  location  is  outside  window. 

c  determine  where  line  segment  intersects  window  boundary. 


if  (  locold. eq.O  .and.  locnew. eq.l  )  then 

...horizontal  line  intersects  either  left  or  right  boundary  of  window 

if  (  iyold. eq. iynew  )  then 
locnew  ■  0 

ixnew  *  maxO  (  ipxmin  ,  minO  (  ipxmax  ,  ixnew  )  ) 
end  i  f 

...vertical  line  intersects  either  lower  or  upper  boundary  of  window 

if  (  ixold . eq . ixnew  )  then 
locnew  -  0 

iynew  -  maxO  (  ipymin  ,  minO  (  ipymax  ,  iynew  )  ) 
end  if 

...  sloped  line  can  intersect  any  of  the  four  boundaries 

if  (  ixold .  no  .  ix.new  .and.  iyold .  ne .  iynew  )  then 

. determine  8lop>e  and  x  intercept 

slope  =  (  ynew  -  yold  )/(  xnew  -  xold  ) 

Y  «=  ynew  -  xnew* slope 

. se»  if  left  boundary  is  intersected 

:  f  '  1 ;;  new  .  1  ^  .  ir  :.min  *  then 

lyh:*  ~  iniri*  <  )•  *■  s  1  ore  *  f  1  ■:  at  '  if  :i '  ’ 

if  ‘  i  vhi*:  .  ae  .  ipymr  r.  .and.  iyhit  .  le  .  ipyma:;  !  then 
P  r'f^w  =  ' 

i:;new  = 

e  rv  J  if 
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0094  c . 8»e  if  right  boundary  is  intersected 

0095 

0096  if  (  ixnow . gt . ipxmax  )  then 

0097  iyhit  ■■  inint  (  b  +  8lope*float  (ipxmax)  ) 

0098  if  (  iyhit . ge . ipymin  .and.  iyhit . le . ipymax  )  then 

0099  locnew  —  0 

0100  ixnew  -  ipxmax 

0101  iynew  -  iyhit 

0102  end  if 

0103  end  if 

0104 

0105  c . see  if  lower  boundary  is  intersected 

0106 

0107  if  (  iynew. It . ipymin  '  then 

0108  ixhit  -  inint  (  (  float (ipymin)  -  b  ) /slope  ) 

0109  if  (  ixhit . ge . ipxmin  .and.  ixhit . le . ipxmax  )  then 

0110  locnew  —  0 

0111  ixnew  -  ixhit 

0112  iynew  -  ipymin 

0113  end  if 

0114  end  if 

0115 

0116  c . see  if  upper  boundary  is  intersected 

0117 

0118  if  (  iynew. gt . ipymax  )  then 

0119  ixhit  -  inint  (  (  float (ipymax)  -  b  ) /slope  ) 

0120  if  (  ixhit . ge . ipxmin  .and.  ixhit . le . ipxmax  )  then 

0121  locnew  -  C 

0122  ixnew  -  ixhit 

0123  iynew  -  ipymax 

0124  and  if 

0125  end  if 

0126 

0127  end  if 

0128  end  if 

0129 

0130  c . current  pen  location  is  outside  window,  now  pen  location  is  inside  window. 

0131  c  determine  where  line  segment  intersects  window  boundary. 

0132 

0133  if  (  locold.eq.l  .and.  locnew. eq.O  )  then 

0134 

0135  c . horizontal  line  intersects  either  left  or  right  boundary  of  window 

0136 

f'l'’"^  if  (  iyold .  eq .  iynew  )  then 

0138  locold  =  0 

0139  ixold  -  maxO  (  ipxmin  ,  minO  (  ipxmax  ,  ixold  )  ) 

''140  end  if 

O'  1  4  1 

'142  c . vertical  line  intersects  either  lower  or  upper  boundary  of  window 

''143 

1  4  4  if  (  ixold  .  eq  -  ixnew  )  then 

014"  loc-ld  -  0 

0  14  0  iy;ld  =  ma;;'''  (  ip’-ymin  ,  minO  (  ipymax  ,  iyold  )  I 

'  1  "  e  n  d  1  f 

'  '  1  4  ■" 

1  4 ~ . s  i  7  p  e  i  lirse  ca:.  in*:ers«»T*:  ar.'.'  of  ♦:ho  f'ur  boundaries 

■j/1  if  '  i:;'  ol  .  .  1  ::n<“w  .and.  i  id  .  ne  .  iynew  '  *:hen 


-Sa'.ye  -  <  ynew  -  yold  )  '  -  ::old  ) 

r  «  ynew  -  y.new* s  1 P’® 
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Oise  c 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
oie’ 

0168 

0169  c 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0160  c 
0161 
0182 
0183 
0164 
0185 
0186 
0187 
0188 
018? 

0190 

0191  c 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

02  00 

0  2  C 1 

02  02 

0  2  03 

9  2  7  4 

C'  2  05  c 
0  2  0  6  c 


. s«e  if  left  boundary  ia  interaoctod 

if  (  ixold. It . ipxmin  )  then 

iyhit  inint  (  b  +  alope*float  (ipxmin)  ) 
if  (  iyhit . ge . ipymin  .and.  iyhit . le . ipymax  )  than 
locold  -  0 
ixold  -  ipxmin 
iyold  -  iyhit 
end  if 
end  if 

. aoe  if  right  boundary  ia  interaected 

if  (  ixold . gt . ipxmax  )  then 

iyhit  -  inint  {  b  +  8lopo*float (ipxmax)  ) 
if  (  iyhit . ge . ipymin  .and.  iyhit . le . ipymax  )  then 
locold  ”  0 
ixold  —  ipxmax 
iyold  “  iyhit 
end  if 
end  if 

. aee  if  lower  boundary  ia  interaected 

if  (  iyold . It . ipymin  )  then 

ixhit  -  inint  (  (  float ( ipymin)  -  b  ) /alopo  ) 

if  (  i.xh  it  .ge  .  ipxmin  .and.  ixhit .  le  .  ipxmax  )  then 
locold  —  0 
ixold  =  ixhit 
iyold  ■=  ipymin 
end  if 
end  if 

. aee  if  upper  boundary  ia  intersected 

if  (  iyold . gt . ipymax  )  then 

ixhit  -  inint  (  (  float (ipymax)  -  b  ) /slope  ) 

if  (  ixhit . go . ipxmin  .and.  ixhit , ge . ipxmax  )  then 
locold  =  0 
ixold  =  ixhit 
iyold  -  ipymax 
end  if 
end  if 

end  if 

end  if 

both  end  points  are  outside  the  window.  Determine  whether  line  segment 

i.Ttersects  window  boundaries. 

if  (  locold. eq.l  .and.  locnew.eq.l  )  then 

.  .  .  se«*  if  horizontal  line  intersects  either  left  or  right  boundary  of 
window 

:  f  I  i  y  Id  .  er  .  i  ynew  ■  'he:: 

if  <  r  V'':  1  d  .  ct  .  ir  vmrn  .and.  iy-'l'i-l*  .  iryma::  >  then 

1  r  ]  3  c  ^ 

J'onew  =:  ' 

if  '  c .  Id  .  le  .  ip;nnr:'.  i  ther. 
i:;'l  i  -  ip.cr-.i!. 
ir.ne-.-  ip;cma;: 

else  if  ixold . ae .  ipr.ma:;  )  then 
ixold  *  Ipxmax 
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0222  ixnew  “  ipxmin 

0223  end  if 

0224  end  if 

0225  end  if 

0226 

022  7  c . see  if  vertical  line  intersects  either  lower  or  upper  boundary  of 

0228  c  window 

0229 

0230  if  {  ixold.eq. ixnew  )  then 

0231  if  (  ixold.gt . ipxmin  .and.  ixold. It . ipxmax  )  then 

0232  locold  -  0 

0233  locnew  -  0 

0234  if  (  iyold . le . ipymin  )  then 

0235  iyold  -  ipymin 

0236  iynew  -  ipymax 

0237  else  if  (  iyold . go . ipymax  )  then 

0238  iyold  -  ipymax 

0239  iynew  “  ipymin 

0240  end  if 

0241  end  if 

0242  end  if 

02  4  3 

0244  c . sloped  line  can  intersect  any  of  the  four  boundaries 

0245 

0246  if  (  ixold. ne . ixnew  .and.  iyold. ne . iynew  )  then 

0247 

0248  c . determine  slope  and  x  intercept 

0249 

0250  slope  =  (  ynow  -  yold  )/(  xnew  -  xold  ) 

0251  b  -  ynow  -  xnow*slope 

0252 

0253  c . see  if  left  boundary  is  intersected 

0254 

0255  iyhiO  =  inint  (  b  +  clope*flc‘at  (ipxmin)  ) 

0256  if  (  iyhit .ge . ipymin  .and.  iyhit . le . ipymax  )  then 

0257  if  (  ixold . It . ixnew  )  then 

0258  locold  -  0 

0259  ixold  -  ipxmin 

0260  iyold  -  iyhit 

0261  else  if  (  ixold . gt . ixnew  )  then 

02  62  locnew  -=  0 

0263  ixnew  «  ipxmin 

02  64  iynew  iyhit 

0265  end  if 

0266  end  if 

0267 

02  68  c . see  if  right  boundary  is  intersected 

0269 

0270  iyhit  =  inint  (  b  +  slope*float (ipxmax)  ) 

0271  if  (  iyhit . ge . ipymin  .and.  iyhit . le . ipymax  )  then 

0272  if  (  ixold . It . ixnew  )  then 

0273  locnew  =  0 

02  7  4  ixnew  =  ip.xma:: 

0270  iynew  =  iyhit 

02  7  6  else  if  (  i;:old .  gt  .  ixnew  )  then 

n  2  --  -  1 c  o  H  =  '  ’ 

02  7  8  ixold  =  ipxma;; 

02  7  9  i*.‘cld  =  iyhit 

0  2  8'''  e  n  d  1  f 

0291  endif 

7282 

028-7  c . see  if  Ir.wer  boundary  is  intersected 

02  84 

0280  ixhit  -  inint  (  (  float (ipymin)  -  b  ) /slope  ) 
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0286  if  (  ixhit .ga.ipxmin  .and.  ixhit . la . ipxnax  )  then 

0287  if  (  iyold. It . iynew  )  then 

0288  locold  -  0 

0289  ixold  “  ixhit 

0290  iyold  -  ipymin 

0291  elae  if  (  iyold. gt .iynew  )  then 

0292  locnew  -  0 

0293  ixnew  -  ixhit 

0294  iynew  «  ipymin 

0295  end  if 

0296  end  if 

02  97 

02  98  c . see  if  upper  boundary  is  intersected 

0299 

0300  ixhit  -  inint  (  (  float (ipymax)  -  b  ) /slope  ) 

0301  if  (  ixhit , ge . ipxmin  .and.  ixhit . le . ipxmax  )  then 

0302  if  (  iyold.lt .iynew  )  then 

03  03  locnew  ••  0 

0304  ixnew  -  ixhit 

0305  iynew  —  ipymax 

0306  else  if  (  iyold . gt . iynew  )  then 

0307  locold  -  0 

0308  ixold  -  ixhit 

0309  iyold  -  ipymax 

0310  end  if 

0311  end  if 

0312 

0313  end  if 

0314  end  if 

0315 

0316  c . set  the  rectangle  limits  containing  the  lino  segment 

0317 

0318  ilxmin  •>  minO  (  ix  ,  ixabs  ) 

0319  iixmax  -  maxO  (  ix  ,  ixabs  ) 

0320  ilymin  -  minO  (  iy  ,  iyabs  ) 

0321  ilymax  -  ma.x0  (  iy  ,  iyabs  ) 

0322 

0323  c . draw  visible  part  of  dashed  line  segment 

0324 

0325  if  (  locold. oq.O  .and.  locnew. eq.O  )  then 

0326 

0327  if  (  ixold. go . ilxmin  .and.  ixold . le . iixmax  .and. 

0328  .  iyold .go . ilymin  .and.  iyold. le . ilymax  .and. 

0329  .  ixnew . go . ilxmin  .and.  ixnew. le . iixmax  .and. 

0330  iynew . ge . ilymin  .and.  iynew . le . ilymax  )  then 

0331 

0332  call  Dashit  (  ixold  ,  iyold  ,  ixnew  ,  iynew  ,  icurve  ) 

0333 

0334  end  if 

0335 

0336  end  if 

03  37 

0338  c . save  the  current  undipped  pen  location 

03  3? 

0340  i.xabs  -  ix 

0341  iyabs  =  iy 

0342 

0343  return 

0344  end 

0001  c . Load  a  file  of  STROCTURE  and  PARAMETER  definitions  at  compile  time 

0 1*'  ?2 


t oolbox2 . f inc 


78 


CHR/91-2750 


0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  ! !M  Inlines . f 

0008 

0009  - - 

0010  subroutine  EventHandler  (  TheEvent  ,  Option  ) 

0011  - - 

0012  c  This  routines  figures  out  what  kind  of  event  has  occurred  and 

0013  c  calls  the  appropriate  routine  to  take  action  in  response  to  the  event. 

0014 

0015  c . user  option  flags 

0016 

0017  include  'OptFlg.inc' 

0018 

0019  record  /  EventRecord  /  TheEvent 

0020  record  /  WindowPtr  /  Wptr 

0021 

0022  integer*!  Option 

0023  integer*!  WindowPart 

0024 

0025  c - 

0026 

0027  c . set  option  flag  to  continue 

0028 

0029  Option  -  oCycle 

0030 

0031  c . event  is  MouseDown  in  menu  region 

0032 

0033  if  (  TheEvent .what .eq.mouseDown  )  then 

0014  WindowPart  -  FindWindow  (  %val (TheEvent .where)  ,  Wptr  ) 

0035  if  (  WindowPart . eq. inMenuBar  )  then 

0036  call  DoMapMenu  (  TheEvent  .  Option  ) 

0037  end  if 

0038 

0039  c . key  press  events 

0040 

0041  else  if  (  TheEvent . what . eq . keyDown  )  then 

0042  call  DoMapMenu  (  TheEvent  ,  Option  ) 

0043 

0044  c . ignore  all  other  events 

0045 

0046  else 

0047  end  if 

0048 

0049  return 

0050  end 

0001  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

0072 

0002  ' !G  toolbox! . fine 

70  04 

0005  e . Load  the  TcoolBox  traps 

700*^ 

'O'’  O  '  '  !  M  I  nline  s  .  f 

00  0  8 

0009  : . Put  the  following  code  in  the  Main  seament 

0011  ':s  Marr. 

0  0 1 : 

0  010  - - 

Segment  Main 

0014  subroutine  eventloop 
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0015  - - 

0016  c  get  events  fo.  wer  and  handle  them. 

0017 

0018  !!SETC  OSINGINCLODES  -  FALSE 

0019  implicit  none 

0020 

0021  c . common  block  definition  files 

0022 

0023  include  ' ApploMenu . inc ' 

0024  include  ' FileMenu . inc ' 

0025  include  ' EditMenu . inc ' 

0026  include  ' MapMenu . inc ' 

0027  include  'MBar.inc' 

0028  include  ' Globals . inc ' 

0029 

0030  c . define  2-byte  zero  for  argument  to  FlushEvents  toolbox  routine 

0031 

0032  inLjyer*2  zero  /O/ 

0033 

0034  c . character  items 

0035 

0036  integer*2  ChCode 

0037  character*!  Ch 

0038 

0039  c . menu  pieces  (menuResult  —  merge  of  menuID  and  monultem) 

0040 

0041  integer*4  menuResult 

0042  integer*4  itomMask  732767/ 

0043  integer*4  menuMask  7-16/ 

0044  integer*2  menuID 

0045  integer*2  menultem 

0046 

0047  c . code  for  event  type 

0048 

0049  integer*2  code 

0050 

0051  c . boolean  for  getting  events 

0052 

0053  logical*!  gotEvent 

0054 

c . structures  for  window,  event 

0  056 

0057  record  7  WindowPtr  7  whichWindow 

0058  record  7  EventRecord  7  theEvent 

0059 

0060  c - 

Of  61 

0062  c . we  will  start  fresh  on  events 

0063 

0064  call  FlushEvents  (  ’•val  (everyEvent)  ,  ’»val(zero)  ) 

0065 

0066  c . enable  the  menus  for  "New  Mission",  "Open  Mission" 

•  1 0  0" 

0069  call  MenuSet  (  FileMenuID,  FileltemNewMission,  .true,  ) 

f'f'69  call  MenuSet  (  FileMenuID,  FileltemOp^enMisoicn .  .true.  ) 

f'  7  '■ 

ffOl  c . set  the  f*ao  for  er.itino  piograir.;  we’re  net  dene  yet 

0  0 ' 2 

doneFlag  =  .false. 

Qt  "  4 

. inirialire  to  no  active  tent  edit  selection 

0  0  7  t 

O'.  ""  theInput.TEH  =  nil 

O07P 
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0079  c . *********************** 

0080  c . ***  Main  Event  Loop  *** 

0081  c . *********************** 

0082 

0083  do  while  (.true.) 

0084 

0085  c . see  if  a  TE  is  active 

0086 

0087  if  (  theInput.TEH  .ne.  nil  )  call  TEIdle (  %ref (thelnput )  ) 

0088 

0089  c . get  a  MultiFinder  event 

00  90 

0091  if  (gHasWaitNextEvent)  then 

0092  gotEvent  -  WaitNextEvent (  %val (everyEvent ) ,  %ref (theEvent ) , 

0093  S  int4 (SleepValue) ,  %val(nil)  ) 

0094  else 

0095  call  SystemTask 

0096  gotEvent  “  GetNextEvent (  %val (everyEvent ) ,  %ref (theEvent) ) 

0097  end  if 

0098 

0099  c . work  the  event 

0100 

0101  if  (gotEvent)  then 

0102  select  case  (theEvent . what ) 

0103 

0104  case  (mouseDown) 

0105 

0106  c . find  the  window  in  which  the  event  happened 

0107  code  -  FindWindow(  %val (theEvent .where) ,  %ref (whichWindow)  ) 

0108 

0109  select  case  (code) 

0110  case  (inMenuBar) 

0111 

0112  c . determine  the  menu  selection 

0113  menuResult  -  MenuSelect  (  %ref (theEvent .where)  ) 

0114 

0115  c . extract  the  menu  and  item  numbers  from  within  menuResult 

0116  menultem  ”  jiand  (  menuResult,  itemMask  ) 

0117  menuID  -  jishft (  menuResult,  menuMask  ) 

0118  c . call  my  Menu  handler 

0119  call  DoMenu  (menuID,  menulto a) 

0120 

0121  case  (inDrag) 

0122  cc  call  DoDrag (whichWindow) 

0123 

0124  case  (inGrow) 

0125  cc  call  DoGrow (whichWindow) 

0126 

012*^  case  (inGoAway) 

0128  cc  call  DoGoAway (whichWindow) 

n  2  'a 

013'“'  case  (inContent) 

0131  cc  call  DoInContent (whichWindow) 

'7' 132 

013?  cvse  ( inSysWindow) 

^']34  call  SystemClick)  »ref (theEvent I ,  -ref (whichWindow)  i 


O'  1 3 

0'136  end  select  (cede 

^’138  case  (keyDown,  autoEey) 

^13?  call  DoEeyEvent  (theEvent) 

'''141  case  (UpdateEv-t) 

0142  cc  call  DoUpdate 
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014? 


0144 

case  (DiskEvt) 

0145 

cc 

call  DoDiskEvent 

0146 

0147 

case  (ActivateEvt) 

0148 

cc 

call  DoActivate 

0149 

0150 

case  default 

0151 

0152 

end  select.  ItheEvent  .what 

0153 

0154 

c .  .  . 

. .end  of  if  construct  for  gotEvent 

0155 

0156 

endif 

0157 

0158 

c .  .  . 

★  **★**★★**★★★♦*★★★*★★*★****★**» 

0159 

c .  .  . 

end  of  Main  Event  Loop  *** 

0160 

c .  .  . 

0161 

0162 

end  do 

0163 

0164 

return 

0165 

end 

0001 

! !T72+ 

0002 

SUBRODTINE  GEN4D 

GEN  4 

1 

0003 

C . GENERATES  NG  -  9  OR  16  4D  PROFILES  P,D,T  AND  SIGMAS  SP,SD,ST  AT 

GEN  4 

2 

0004 

C  GRID  OF  LATITUDES  AND  LONGITODES  GLAT.GLON.  CURRENT  LATITUDE, 

GEN4 

3 

0005 

C  LONGITUDE-CLAT.CLON.  PREVIOUS  LATITUDE, LONGITUDE-PLAT, PLON . 

GEN4 

4 

0006 

COMMON,'C4/GLAT  (16)  ,GLON(16)  ,NG,P(16,26),D(16,26),T(16,26), 

GEN  4 

5 

0007 

S  SP  (16,  26)  ,  SD  (16,  26)  ,  ST  (16,  26)  ,PLON,CLON,  HS 

GEN4 

6 

0008 

COMMON/ lOTEMP/ lOTEMl, I0TEM2  IDG, lUN, DDD, XMJD , PLAT, CLAT, 

GEN4 

7 

0009 

$  NSAME,  RPl,  RD1,RT1,  SPl,  SDl,  .T'l  1,RD1,RV1,SD1,  SVl, 

GEN  4 

8 

om  0 

$  MN,  IDA,  lYR,  HI,  PHIIR,  THETIR,  GZ,  RI,  2,  PAIR,  THETR,  FIO,  FlOB,  AP, 

GEN  4 

9 

0011 

$  IHR,MIN,NMORE,DX,HL, VL,DZ,B, EPS, lOPP, LOOK, DUMMY (20) 

GEN  4 

10 

0012 

COMMON/ PDTCOM/ID4, MONTH, lOPR, PG ( 18 , 1 9) , TG ( 1 8 , 1 9) , DG ( 18 , 1 9) , 

GEN  4 

11 

0013 

1  PSP  (8, 10,12),  DSP  (8,  10, 12)  ,  TSP  (8, 10,  12) 

GEN4 

12 

0014 

2,PAQ(17,5) ,DAQ(17,5) ,TAQ(17,5) , 

GEN  4 

13 

0015 

3PDQ(17,  5)  ,DDQ(17, 5)  ,TDQ(17,5)  ,  PR  (20,  10)  ,  DR  (20,  10)  ,  TR  ( 2 0 , 10)  , 

GEN  4 

14 

0016 

40A(3(17, 5)  ,  VAQ  (17, 5)  ,  UDQ(17, 5)  ,  VDQ(17, 5)  ,  DR  (25 , 10)  ,  VR  ( 25 , 10)  , 

GEN  4 

15 

001' 

5PQ,  DQ,  TQ,  DQ,  VQ,  PQA,  DQA,  TQA,  DA,  VA,  lOPQ 

GEN4 

16 

0018 

*  ,  PLP  (25,10),  DLP  (25,  10)  ,  TLP  (25,10)  ,  ULP  (2  5,10),  VLP  (25, 10)  ,  DDL  (25, 

GEN4 

17 

0019 

*  10)  ,  VDL(25, 10)  . UDS (25,10), VDS (25, 10) 

GEN  4 

18 

0020 

COMMON/ADJCOM/DUM(130) , KOUNT 

GEN  4 

19 

0021 

COMMON/ IPRTP/  IPRT 

GEN  4 

20 

r,o-y-^ 

DIMENSION  NGOOD(26) 

GEN4 

20B 

002  3 

IF(NSAME.EQ.l)  RETURN 

GEN4 

21 

0024 

IPRT-0 

GEN4 

22 

0025 

LOOK-0 

GEN  4 

23 

002 

F  -  0 .017453293 

GEN4 

24 

0  0  2  “ 

NG  =  16 

GEN  4 

25 

0  0  2-9 

DX  =  PLON  -  CLON 

GEN4 

26 

0  02  ^ 

IF(DX.GT. 180.0)  DX  =  DX  -  360.0 

GEN4 

26B 

.n  m  o 

IF(DX.LT.-180.'')D>;  =  DX  360. 0 

GEN  4 

2  6r 

''l  .  7 

■ . LON’3ITrDE  DISPLACEMENT  FRCM  PREVIOUS  Tv  CUFRENT  POSITION 

GEN  4 

2  7 

00-  2 

DY  =  CLAT  -  FLAT 

GEN  4 

28 

O'O'  3 

C . latitude  displacement  from  FREVIOt-'s  T':-  current  position 

GEN  4 

2  9 

J  4 

IF  (DYi  20.10.2C 

GEN  4 

3'? 

n  r  5 

IF  /rx^  15,12.15 

GEN4 

* 

n  ri  3  ^ 

12  K  =  0 

GEN  4 

32 

00  3^ 

GO  TO  40 

GEN4 

33 

oc?e 

15  THETA  =180.  ^  SIGN' 90., DX) 

GEN4 

34 

00  3  9 

GC  TO  3C 

GEN  4 

35 
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0040  20  THETA  -  ATAN (DX/DY) /F  GEN4  36 
0041  IF  (DY.GT.O.)  THETA  -  THETA  +  180.  GEN4  37 
0042  IF  (THETA. LT.O.)  THETA  -  THETA  +  360.  GEN4  38 
0043  C . THETA  -  AZIMUTH  ANGLE  OF  TRAJECTORY,  USED  TO  ORIENT  LAT-LON  GRID  GEN4  39 


0044 

30 

K  -  INT( (THETA  +  67.5) /45.) 

GEN  4 

40 

0045 

c 

INDEX  USED  IN  COMPUTED  GO  TO  FOR  110  THRU  180 

GEN4 

41 

0046 

IF  (K.GT.8)  K-K-8 

GEN  4 

42 

0047 

c 

NORTH  POLAR  GRID 

GEN4 

43 

0048 

IF  (CLAT.GT.75.0.AND.K.GE.3.AND.K.LE.7)GO  TO  200 

GEN4 

44 

0049 

c 

SOUTH  POLAR  GRID 

GEN4 

45 

0050 

IF  (CLAT.LT.-75.0.AND. (K.GE.7.0R.K.LE.3) )GO  TO  200 

GEN  4 

46 

0051 

c 

•INITIAL  ESTIMATE  OF  REFERNCE  LATITUDE  (LOWER  LEFT  GRID 

POINT) 

GEN  4 

47 

0052 

40 

LATO  -  5*INT(CLAT/5.) 

GEN  4 

48 

0053 

IF  (CLAT.LT.O.)  LATO  -  LATO  -  5 

GEN  4 

49 

0054 

c 

.  .  .  . 

.INITIAL  ESTIMATE  OF  REFERENCE  LONGITUDE  (LOWER  LEFT  GRID  POINT) 

GEN  4 

50 

0055 

LONO-5*INT (CLON/5. ) 

GEN4 

51 

0056 

c 

.ADJUSTS  LAT0,LON0  ACCORDING  TO  DIRECTION  OF  TRAJECTORY 

AZIMUTH 

GEN  4 

52 

0057 

IF  (K.GT.O)  GO  TO  100 

GEN4 

53 

0058 

LATO  =  LATO  -  5 

GEN4 

54 

0059 

LONG-  LONG  +  10 

GEN  4 

55 

0060 

GO  TO  190 

GEN  4 

56 

0061 

100 

GO  TO  (110, 120,  130,  140,  150,  160,  170,  180)  ,K 

GEN  4 

57 

0062 

110 

LATO  -  LATO-10 

GEN  4 

58 

0063 

LONG  -  LONO  +10 

GEN  4 

59 

0064 

GO  TO  190 

GEN4 

60 

0065 

120 

LATO  -  LATO-IO 

GEN  4 

61 

0066 

LONO  =  LONO+15 

GEN  4 

62 

0067 

GO  TO  190 

GEN  4 

63 

0068 

130 

LATO  -  LATO-5 

GEN  4 

64 

0069 

LONO  -  LONO+15 

GEN  4 

65 

0070 

GO  TO  190 

GEN  4 

66 

0071 

140 

LONO  «  LONO+15 

GEN  4 

67 

O 

o 

GO  TO  190 

GEN  4 

68 

0073 

150 

LONO  -  LONO+10 

GEN4 

69 

0074 

GO  TO  190 

GEN  4 

70 

0075 

160 

LONO  -  LONO +5 

GEN4 

71 

0076 

GO  TO  190 

GEN4 

72 

0077 

170 

LATO  -  LATO-5 

GEN  4 

73 

0078 

LONG  -  LONO +5 

GEN4 

74 

0079 

GO  TO  190 

GEN4 

/O 

0080 

180 

LATO  -  LATO-10 

GEN  4 

76 

0081 

LONO  -=  LONO  +  5 

GEN4 

77 

0082 

190 

IF  ( LONO. GE. 360)  LONO  -  LONO  -  360 

GEN4 

7  Q 

0083 

IF  (LATO. GT. 75)  LATO  -  75 

GEN4 

78B 

0084 

DLI-1 .25 

GEN  4 

79 

0085 

IF(ABS(CLAT) .GE.18)  GO  TO  192 

GEN4 

80 

008  6 

DLI=3 . 0 

GEN  4 

81 

00  0  7 

LAT0=”-18 

GEN4 

82 

rj  0  R  R 

192 

DO  195  1-1,4 

GEN  4 

83 

onp  Q 

112  =  1+12 

GEN  4 

84 

OHQn 

Do  195  J-I, 112, 4 

GEN4 

85 

0  '7  0; 

GLAT(.J>  -  LATO  +  DLI*(J-I) 

GEN  4 

86 

0  7?2 

c , 

■LATITUDE,  LONGITUDE  GRID  AT  5  DEGREE  INTERVALS 

GEN  4 

87 

0 0  0 

195 

GLOW  (-7)  =  LON'T'  -  5.  *  (T  -  1) 

GEN  4 

88 

f-;  o  4 

GO  T'7  4  00 

GEN  4 

0? 

n  r  o  c. 

FOLAP  GP.ir 

GEU4 

on 

‘ '"} 

2  0 

»G  = 

GEIJ4 

0  ]_ 

'I  r  -■ 

DC  21''  j^i,e 

GEN  4 

92 

0'^9P 

POLAR  GRID  LATITUDES  1-8  =  •>'’5  (Nl  OF  -75  (!J) 

GEM  4 

9? 

0  n  0  'j 

';;LAT(.0  -  SIGN  ('’5  .  ,  OLAT! 

GEN  4 

C  1 

■POLAR  GRID  LONGITUDES  1-8  AT  45  DEG  INTERVALS 

GEN4 

0101 

210 

GLON(.J)  «  45.*  (J-I) 

GEN  4 

96 

' '  1 

c . 

POLAR  GRID  LATITUDE  9  =  POLE  +93  OR  -90 

GEN  4 

o? 

0  10  7 

GLAT(9)  -  SIGN(90.,CLAT) 

GEN  4 

98 
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0104 

C, 

.POLAR  GRID  LONGITUDE  9-0 

GEN4  99 

0105 

GLON(9)  -  0. 

GEN4  100 

0106 

C  , 

.GENERATES  16  PROFILES  (OR  9  PROFILES  FOR  POLAR  GRID) 

GEN4  101 

0107 

400 

CALL  GRID4D 

GEN4  102 

0108 

DO  390  I  -  1,NG 

GEN4102B 

0109 

DO  330  J  -  1,26 

GEN4102C 

0110 

NGOOD(J)  -  1 

GEN4102D 

0111 

IF (P (I, J) .LE.O.O.OR.D (I, J) .LE.O.O.OR.T (I, J) . LE . 0 . 0) NGOOD (J) -0 

GEN4102E 

0112 

IF(NGOOD(J) .EQ.O)GOTO  330 

GEN4102F 

0113 

RATIO  -  P(I, J)/(D(I,J)*T(I,  J)) 

GEN4102G 

0114 

IF ( RATIO. GT. 2 86.0. AND.RATIO.lt. 288.0) GOTO  330 

GEN4102H 

0115 

NGOOD (J)  -  0 

GEN4102I 

0116 

WRITE  (6,  325)  I,  J,  RATIO 

GEN4i02J 

0117 

325 

FORMATC  GAS  LAW  VIOLATION.  I, J, RATIO  -  ',214,012.4) 

GEN4102K 

0118 

330 

CONTINUE 

GEN4102L 

0119 

DO  340  J  -  3,26 

GEN4102M 

0120 

IF(NGOOD(J) .EQ. 0. OR. NGOOD (J-1) .EC.0)GOTO  340 

GEN4102N 

0121 

DENOM  -  1  .  /T  (I,  J) 

GEN4102O 

0122 

IF  (ABS  (T  (I,  J)  -T(I,  J-l)  )  .GT.0.01)  DENOM-ALOG(T  (I,  J-1)  /T  (I,  J)  )  / 

GEN4102P 

0123 

i 

t  (T(I,  J-1)-T(I,  J)  ) 

GEN4102Q 

0124 

RATIO  -  ALOG(P(I, J-1) /P (I, J) ) /DENOM 

GEN4102R 

0125 

IF (RATIO. GT. 30. 7 .AND. RATIO.lt. 37. 6) GOTO  340 

GEN4102S 

0126 

NGOOD (J)  -  0 

GEN4102T 

0127 

WRITE (6, 335) I, J, RATIO 

GEN4102U 

0128 

335 

FORMAT ( ’  HYDROSTATIC  VIOLATION.  I, J, RATIO  -  ',2I4,G12.4) 

GEN4102V 

0129 

IF(J.EQ.26)GO  TO  345 

GEN4102W 

0130 

K1  -  J  +  1 

GEN4102X 

0131 

DO  336  K  -  Kl,  26 

GEN4102y 

0132 

336 

NGOOD (K)  -  0 

GEN4102Z 

0133 

GO  TO  345 

GEN4102a 

0134 

340 

CONTINUE 

GEN4102b 

0135 

345 

NBAD  =  0 

GEN4102C 

0136 

DO  360  J  -  1,26 

GEN4102d 

013' 

IF (NGOOD ( J) .GT.O) GOTO  360 

GEN4102e 

0138 

NBAD  -  NBAD  +  1 

GEN4102f 

0139 

F  (I,  J)  -  0. 

GEN4102g 

0140 

D(I,J)  -  0. 

GEN4102h 

0141 

T(I,J)  -  0. 

GEN4102i 

0142 

360 

CONTINUE 

GEN4102 j 

0143 

IF (NBAD, LE. 12) GOTO  390 

GEN4102)c 

0144 

WRITE (6,380) 

GEN41021 

0145 

380 

FORMAT ('  UNABLE  TO  GENERATE  4-D  GRID.  TOO  MANY  TEST  VIOLATIONS’) 

GEN4102m 

0146 

STOP 

GEN4102n 

0147 

390 

CONTINUE 

GEN4102O 

0148 

DO  600  I-1,NG 

GEN4  103 

0149 

IHV  -  0 

GEN4  104 

0150 

SPR  -  0.0004 

GEN4  105 

0151 

SDR  -  0.0004 

GEN4  106 

0152 

STP,  -  0.0  004 

GEN4  107 

0  1  5  3 

DO  420  J  -  8,26 

GEN4  108 

015  4 

CHECK  =  1  . 

GEN4  109 

'''15  5 

IF  (F  (  I  .  Jl  .  LE  .  0.  0.  OP.  .SP  ( I ,  J)  .  LE.  0. 0)  CHECK  ■=  0. 

GEN 4  110 

IFIDd,  J)  .LE.O.r.OR.SDd,  J)  .LE.0.0)CHECK  =  0. 

GEN4  111 

015' 

IFdd.  7)  .LE.O.O.OR.STd,  J)  .LE.0.0)CHECK  =  C. 

GEN4  112 

0  15^ 

c . 

FINDS  INDEX  IHV  OF  LAS'’  HEIGHT  AP''''VE  6  KM  WITH  NON-CEP:  DATA 

GEN 4  113 

n  i  5  a 

IF  (  CHE  IF  .  GT  .  0  .  )  C,-'  T^'  4  2'' 

'GEN  4  114 

C  1  b  ■' 

iH'.'  - 

'GEN4  115 

r-'  1  0  1 

Qn  T'  4  4'- 

GEN4  116 

'M  6  :■ 

42n 

GEN4  11' 

'*'•  1  ? 

HEIGHT  -=  HEIGHT  INDEX  -  1 

GEN  4  Id 

1  b  4 

4  4r, 

Z1  *  IHV  -1. 

GEN 4  11' 

0165 

IFdHV.Ev.0)GO  TO  491 

GEN41 1 9B 

0166 

3PP,  SDR,  STR-EIGMAS  AT  HEIGHT  7.1 

GEN4  120 

'  16'' 

SPR  -  SF  d,  IHV) 

GEN 4  121 
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0168 

SDR-SDC  IHV) 

GEN  4 

122 

0169 

STR-ST (I, IHV) 

GEN  4 

123 

0170 

IF(SPR.LE.0.0)SPR  -  0.0004 

GEN4123B 

0171 

IF(SDR.LE.0.0)SDR  -  0.0004 

GEN4123C 

0172 

IF(STR.LE.0.0)STR  -  0.0004 

GEN4123D 

0173 

IF ( IHV. GT. 12) GOTO  441 

GEN4123E 

0174 

WRITE (6, 442) IHV 

GEN4123F 

0175 

442 

FORMAT ('  ONABLE  TO  GENERATE  4-D  GRID.  IHV  -  ’,13) 

GEN4123G 

0176 

STOP 

GEN4123H 

0177 

441 

CONTINUE 

GEN4123I 

0178 

C 

.IF  HEIGHT  Z1  GEQ  20  KM,  USE  GROVES  AT  30  KM  FOR  INTERPOLATION,  GEN4 

124 

0179 

r" 

OTHERWISE  USE  GROVES  AT  25  KM 

GEN4 

125 

0180 

IF  (IHV.GE.21)  GO  TO  480 

GEN4 

126 

0181 

r 

.EVALUATES  GROVES  AT  25  KM  FOR  INTERPOLATION  AND 

GEN4 

127 

0182 

r 

FILL  IN  OF  ZERO  DATA 

GEN  4 

128 

0183 

CALL  GTERP (25, GLAT (I) , P2 , D2 , T2 , PG, DG, TG.DPY, DTY, DP2Y) 

GEN  4 

129 

0184 

IHP  -  IHV  +  1 

GEN4 

130 

0185 

DO  450  K-IHP,26 

GEN4 

131 

0186 

C 

.AVOIDS  INTERPOLATION  OF  P,D,T  IF  ONLY  SIGMAS  ARE  ZERO 

GEN  4 

132 

018" 

IF (F (I,  K)  . GT. O.O.AND.D (I, K)  . GT . 0 . 0 . AND . T ( I , K)  .GT .0.0) GO  TO 

445  GEN4 

133 

oiee 

H-K-1 

GEN4 

134 

0189 

r 

.INTERPOLATES  BETWEEN  4D  AT  HEIGHT  Z1  AND  GROVES  AT  25  TO  FILL  GEN4 

135 

019  0 

C' 

IN  MISSING  DATA 

GEN4 

136 

0191 

CALL  INTEP2  (P  (I,  IHV)  ,  D  (I,  IH\')  ,  T  (I,  IHV)  ,  Z1 ,  P2  ,  D2  ,  T2 , 25  .  ,  PH ,  DB ,  TH,  H)  GEN4 

137 

0192 

P (I ,  K) -PH 

GEN4 

138 

019? 

D (I , K) -DH 

GEN4 

139 

0194 

T (I , K) -TH 

ge:j4 

140 

0195 

445 

SP  (I,  K)  -  SPR 

GEN4 

141 

01 

SD  (I,  K)  -SDR 

GEN4 

142 

0197 

r 

.SETS  MISSING  SIGMAS  EQUAL  TO  SIGMAS  AT  HEIGHT  Z1 

GEN4 

143 

0198 

450 

ST (I, K) -STP 

GEN  4 

144 

0 1  acj 

GO  TO  491 

GEN  4 

145 

0  2  0  0 

C 

•EVALUATES  GROVES  AT  30  KM  FOR  INTERPOLATION  AND  FILL  IN  OF 

GEN4 

146 

0201 

c 

ZERO  DATA 

GEN  4 

147 

0202 

4  80 

CALL  GTERP (30,GLAT(I) , P2 , D2 , T2 , PG, DG, TG, DPY, DTY, DP2Y) 

GEN  4 

148 

0203 

■2 

COMPOTE  PERTURBATIONS  TO  GROVES  MODEL 

GEN  148B 

o 

o 

CALL  FDTtr.'(rSP,  DSP,  TSP,  GLAT(I)  ,  GLON(l)  ,  30,  DP,  DD,  DT,  DPX.DPY 

DTX, DTYGEN4 

149 

0205 

$  , DP2X, DF2Y, DPXY) 

GEN4 

151 

0206 

c 

.ADD  STATIONARY  PERTURBATIONS  TO  GROVES  MODEL 

GEN4 

152 

‘j  2  ’'.)  ■’ 

p;  -  F2* ( 1 .  +  DP) 

GEN4 

153 

02f^P 

Dz  ’  D2* ( i ,  +  DD) 

GEN  4 

154 

02  0? 

T2  -  T2* ( 1 .  +  DT) 

GEN4 

155 

0210 

IHP  -  IHV  4.  1 

GEN  4 

156 

0211 

DO  49G  K=IHP,26 

GEN4 

157 

'•Oil 

2 

.AVOIDS  INTERPOLATING  P,D,T  IF  ONLY  SIGMAS  ARE  ZERO 

GEN4 

158 

,j  2  1  ? 

IF(F (I,K) .GT.n.O. AND ,D ( I , K) . GT . 0 . 0 . AND . T ( I , K) . GT . 0 . 0 ) GO  TO 

485  GEN4 

150 

:  1  *3 

H-F.-l 

GEN  4 

160 

' ' :  1 5 

:2 

.INTERPOLATES  BETWEEN  4r  AT  HEIGHT  Z1  AND  GROVES  AT  30  KM  T; 

GEN 

161 

r-. : : 

: 

FILL  IN  MISSING  DATA 

GEN  4 

162 

Z  1 

CALL  INTER2  (  F  ( I ,  IHV)  , D ( I , IHV)  , T ( I , I HV)  , Z1 . P2 , D2 , T2 . 30 ., PH , DH , TH, H) GEN4 

lb? 

o''  ..  1 

P ( I , F) =FH 

■GFN4 

164 

;  1  ' 

r  ( I  .  =DH 

GEN  4 

16- 

'  z  ^  ' 

T ( I . F ) ^TH 

GEN«3 

166 

4P.^- 

*  SFF 

GEN«3 

lb" 

z  z  ^ 

Sr  '  T .  F  ' =32 F 

GEN  4 

1  6  " 

■’  2  2  ' 

3FT  M:33:!:3  ri'3MA3  AT  HE!  2517  1 

G.ENh 

:  ^  ‘ 

.  .  4 

4 

37  (  I  .  r'  !  *•  :'TF 

' 

4  '-J : 

GEN4 

1-1 

' ; .. 

IKF  =  IHV  -  ) 

GEN  4 

i”: 

>.  Z 

3?  =  3r  f  : ,  1  • 

G-ErJ4 

'  ^  i*  P 

ST"'  ^  SlG  I  ,  1  ' 

GEN  4 

.L  S 

■'  ^  2 

STC  ^  ST  f  I  .  I  ■' 

GEN  4 

c. 

IF  ( -OFO  .  LF. .  V  .  n  1  .^pv  ■■'  .00^! 

GEN  4 

■'  2  -  2 

IF  (  SDV  ,  LE  .  0  .  Ot  SDC'  =  r.  .nooi 

GEN  41 

''6E 
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0232 

IF (STO . LE . 0 . 0) STO  -  0.0001 

0233 

DO  492  K  -  1, 9 

0234 

IF(SP(I,K)  .LE.  0.)  SP(I,K)  -  SPO 

0235 

IF(SD(I,K)  .LE.  0.)  SD(I,K)  -  SDO 

0236 

492 

IF(ST(I,K)  .LE.  0.)  ST(I,K)  -  STO 

0237 

DO  495  K-10,IHP 

0238 

c . 

.SETS  ALL  ZERO  SIGMAS  TO  SIGMA  AT  HEIGHT  Z1 

0239 

IF  (SP(I,K)  .LE.O.O.AND.Pd.K)  .GT.O.) 

SPd.K) 

-  SPR 

0240 

IF  (SD(I,K)  .LE.O.O.AHD.Dd.K)  .GT.O.) 

SDd,K) 

-  SDR 

0241 

4  95 

IF  (STd,K)  .LE.O.O.AND.Td.K)  .GT.O.) 

STd,  K) 

•  STR 

0242 

500 

PA  -  P  (I,  1) 

0243 

TA  -  T  (1,  1) 

0244 

R  -287 . 05 

0245 

G  =  GZ* (1 .+ (Z/ (RI-Z) ) ) **2 

0246 

K  -  2 

0247 

510 

PB  -  P  d,K) 

0248 

TB  -  T  (I,  K) 

0249 

IF  ( (PB*TB)  .GT.  0.)  GO  TO  520 

0250 

K  -  K  +  1 

0251 

GO  TO  510 

0252 

520 

IF ( ABS ( TA-TB) .LE. 0.01) GOTO  570 

0253 

560 

IF(TA*TB.LE.O.O)GO  TO  570 

0254 

TZ  -  (TA-TB)  /  ALOG(TA/TB) 

0255 

GO  TO  575 

02  5  6 

570 

TZ  -  TA 

0257 

575 

HS  -  K  -  1. 

0258 

IF(PB*-PA.LE.O.O)GO  TO  576 

025? 

HS  -  K  -  1.  +  0.001*R*TZ*ALOG(PB/PA) /G 

0260 

576 

KM  -  K  -  2 

0261 

IF(ABS(K-1-HS) .GT.0.1)  GO  TO  578 

0262 

GAM-TB-Td,K+l) 

0263 

IF (ABS (GAM) .LE. 0.01) GOTO  590 

0264 

GO  TO  582 

02  6  5 

578 

IF(ABSdA-TB)  .LE.O.ODGOTO  590 

02  6  6 

580 

GAM» (TA-TB) / (K-l-HS) 

0267 

582 

KMl-KM+1 

0268 

IF  (ABS  (GAM)  .GT.G)  GAM-SIGN  (G,  GAM) 

0269 

DO  585  JD-1,KM1, 1 

0270 

J-JD-1 

0271 

TJ-TA-GAM* ( J-HS; 

0272 

P J=PA* (TJ/TA) ** (G/ (R*GAM*0. 001) ) 

0273 

DJ-PJ/ (R*TJ) 

02'4 

P  (I,  J+1)-PJ 

0275 

D(I,  J+1)“DJ 

0276 

585 

T (I,  J+1) -TJ 

0277 

GO  TO  599 

0278 

590 

KMl-KM+1 

027  9 

DO  595  JD-1,KM1, 1 

0280 

J-JD-1 

0281 

TJ-TA 

0282 

PJ-PA*EXP  (-G*  (J-HS)  /  (R*0.001’-TJ)  ) 

02  8  3 

DJ=PJ/  (R*TJ) 

0284 

P  d, J+3 ) 

02  8  5 

D (I,  J+1) “DJ 

0286 

595 

T(I, J+ll”TJ 

0  2  8'' 

IF(NSAME.EQ.21  NSAME=1 

'29? 

5  9  9 

HS  =  0  . 

r  2  8  9 

r.OUNT  =  I 

l-ALL  AD.TOET 

60  0 

COHTINDE 

0  2  92 

RETURN 

n  2  0  T 

END 

O'  2  9-; 

SUBROUTINE  GRID4D 

Cl  -)  c 

REAL  LAT.LON 

GEN4176C 

GEN4176D 

GEN4176E 

GEN4176F 

GEN41 7 6G 

GEN  4 

177 

GEN  4 

178 

GEN4 

179 

GEN  4 

180 

GEN  4 

181 

GEN  4 

182 

GEN  4 

183 

GEN  4 

184 

GEN  4 

185 

GEN  4 

186 

GEN4 

187 

GEN  4 

188 

GEN  4 

189 

GEN4 

190 

GEN  4 

191 

GEN  4 

192 

GEN  4 

193 

GEN4193B 

GEN4 

194 

GEN  4 

195 

GEN  4 

196 

GEN  4 

197 

GEN4197B 

GEN4197C 

GEN  4 

198 

GEN  4 

199 

GEN  4 

200 

GEN  4 

201 

GEK4201B 

GEN  4 

202 

GEN  4 

203 

GEN  4 

204 

GEN  4 

205 

GEN  4 

206 

GEN4 

207 

GEN4 

208 

GEN  4 

209 

GEN4 

210 

GEN  4 

211 

GEN4 

212 

GEN  4 

213 

GEN  4 

214 

GEN  4 

215 

GEN  4 

216 

GEN  4 

217 

GEN4 

218 

GEN  4 

219 

GEN  4 

220 

GEN4 

221 

GEN  4 

''22 

GEN4 

223 

GEtI4 

224 

GEN4 

0  C 

GEK4 

22^ 

GEN  4 

2 

GEN4 

2  2? 

GEN  4 

229 

GRID 

1 

GRID 

3 
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0296 

COMMON/C4/LAT(16) ,LON(16) ,NP,P(16,26) ,R(16,26) , 

T  (16,  26)  ,  SP  (16,  26)  ,  GRID 

4 

0297 

$  SR(16,  26)  ,  ST  (16, 26)  ,  DDl,  D02,  DOMMY 

GRID 

5 

0298 

COMMON  /PDTCOM/  IT, MONTH, DDMMYl (8118) 

GRID 

6 

0299 

C 

GRID 

7 

0300 

c 

GRID 

8 

0301 

c 

SUBROOTINE  TO  SELECT  PRESSORE,  TEMPERATORE,  AND 

DENSITY  PROFILES  (GRID 

9 

0302 

c 

TOGETHER  WITH  THE  NORMALIZED  VARIANCES  IN  EACH, 

AT  DP  TO  16  GRID  GRID 

10 

0303 

c 

AT  LAT/LONS  SELECTED  BY  CALLING  PROGRAM. 

GRID 

11 

0304 

c 

GRID 

12 

0305 

c 

OSES  NASA  HUNTSVILLE  MSEC  4-D  DATA  FILES 

GRID 

13 

0306 

c 

GRID 

14 

0307 

DIMENSION  IN (215) 

0308 

c 

GRID 

16 

0309 

COMMON  /lOTEMP/  lOTEMl , IOTEM2 , DOMMY2 ( 62 ) 

GRID 

17 

0310 

COMMON  /POINT/  IPT ( 16, 5 ) , LL ( 16) , DXY ( 16, 2 ) 

GRID 

18 

0311 

COMMON  /ORDER/  IPTN (16, 5) , IREAD (65, 3) 

GRID 

19 

0312 

COMMON  /INT/  D(208,5> , IG(5) ,DYX(2) ,DLA(4) ,DLO(4)  GRID 

20 

0313 

c 

GRID 

21 

0314 

INTEGER  lOTEMl 

GRID 

0315 

CiifiRACTER*6  M 

0316 

CHARACTER* 2  CMONTH 

0317 

c 

GRID 

23 

0318 

WRITE  (CMONTH, ' (12) ' )  MONTH 

0319 

IF ( MONTH . LT . 10 ) THEN 

0320 

OPEN (ONIT-IT, FILE- 'M' 

0321 

1  //CMONTH (2 : 2) // • . DAY ', RECL-213, STATUS- ’ OLD ' , 

0322 

2  FORM- ' UNFORMATTED ' ) 

0323 

ELSE 

0324 

OPEN (UNIT-IT, FILE-'M' 

0325 

1  //CMONTH// ' .DAT ' , RECL-213 , STATUS- ' OLD ' , 

0326 

2  FORM- ' UNFORMATTED ' ) 

0327 

ENDIF 

0328 

n 

24 

0329 

r 

INITIALIZE 

GRID 

25 

0330 

c 

GRID 

26 

0331 

ZERO-0 . 0 

GRID 

27 

0332 

ONE-1 . 0 

GRID 

28 

0333 

TEN-10.0 

GRID 

29 

0334 

HUNDR-100.0 

GRID 

30 

0335 

THOU-IOOO.O 

GRID 

31 

0336 

c 

GRID 

34 

0337 

N-MONTH-1- ( (2*MONTH) /9) *4 

GRID 

35 

0338 

IF (MONTH. EQ. 13)  N-0 

GRID 

36 

03  3  9 

NUMEOF  -  0 

GRID 

37 

0340 

c 

GRID 

41 

0341 

c 

CAUTION  :  APPROPRIATE  4-D  INPUT  DATA  FILE  MUST 

BE  ASSIGNED  TO  GRID 

42 

0342 

r 

PROPER  UNIT  BEFORE  PXADING  IN  DATA. 

GRID 

43 

0343 

n 

GRID 

44 

0344 

REWIND  (IT) 

0345 

r- 

0346 

20  CALL  SELEC4 

GRID 

45 

0  3  4  7 

r' 

GRID 

46 

03  4  8 

IRC-0 

GRID 

47 

0  3  4  3 

IPJ4-1 

GRID 

48 

rn  5  (' 

IF ( IPEAD ( IRN, 3) . EC. 0)  GO  3^ 

GRID 

4° 

O^Ol 

21  JT=IT 

GP.IC’ 

50 

0  3  5  2 

M- •  READ  ■ 

GRID 

51 

0  353 

22  READ ( IT, EPP“5n, END=39)  ( IN ( I ) , I-l , 2 13 ) 

GRID 

52 

7  3  5  4 

ipr-  =ip,-  +1 

GRID 

53 

f)  T  =  - 

GO  TC  F/i 

'I'  3^*7 

57  WPITE(6,23)  IT,  IPC 

GRID 

5 

0  3  5' 

23  F0P>1AT(1H  INPUT  UNIT  NO.  MS,'  IN  ERROR  FOR  RECORD  NO.  ’,15) 

n  0  C  p 

60  CONTINUE 

O  T  c 

12  1 .  InE'l.  ,  IRN,  3)  )  GO  To  22 

GRID 

58 
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0360 

IF(IRC.GT.IREAD(IRN,3) )  GO  TO  39 

GRID 

59 

0361 

24 

1-IREAD (IRN, 1) 

GRID 

60 

0362 

J-IREAD (IRN, 2) 

GRID 

61 

0363 

IF(IRN.EQ.l)  GO  TO  25 

GRID 

62 

0364 

IF(IREA0(IRN, 3) . EQ . IREAD { IRN-1 , 3) )  GO 

TO  27 

GRID 

63 

0365 

25 

IP-IN(212) 

GRID 

64 

0366 

MP-IN (213) 

GRID 

65 

0367 

1F( (MP.NE. MONTH) .OR. ( IP .NE . IPT ( I, J) ) ) 

GO  TO  39 

GRID 

66 

0368 

DO  26  K-213, 1,-1 

GRID 

67 

0369 

IN(K+2)-IN(K) 

GRID 

69 

0370 

26 

CONTINDE 

0371 

27 

IN(1)  -  I 

0372 

IN (2!  -  J 

GRID 

72 

0373 

JT-IOTEMl 

GRID 

73 

0374 

M-'  WRITE' 

GRID 

74 

0375 

WRITE (lOTEMl)  IN 

GRID 

75 

0376 

IRN-IRN+1 

GRID 

76 

0377 

IF(IREAD(IRN,3) .EQ.IRC)  GO  TO  24 

GRID 

77 

0378 

IF (IREAD (IRN, 3) .EQ. 0)  GO  TO  28 

GRID 

78 

0379 

C'~>  TO  2 1 

GRID 

79 

0380 

c 

GRID 

80 

0381 

c 

INTERPOLATE  TO  GIVEN  LAT/LON  FROM  GRID 

DATA 

GRID 

81 

0382 

c 

GRID 

82 

0383 

28 

M"'  READ  ' 

GRID 

83 

0384 

DO  38  II-1,NP 

GRID 

84 

0385 

DO  29  I-l, 208 

GRID 

85 

0386 

DO  29  J-1,5 

GRID 

86 

0387 

D(I,  J)-0.0 

GRID 

87 

0388 

29 

CONTINDE 

GRID 

88 

0389 

DO  32  J“l, 4 

GRID 

89 

0390 

IFdPTdl,  J)  .EQ.O)  GO  TO  32 

GRID 

90 

0391 

INDEXl  “  II 

03  92 

INDEX2  -  J 

0393 

REWIND  (lOTEMl) 

GRID 

93 

0394 

30 

READ (lOTEMl, END-39)  IN 

GRID 

94 

0395 

IFdN(l)  .NE.  INDEXl  .OR.  IN(2)  .NE. 

INDEX2)  GO  TO  30 

GRID 

95 

0396 

DO  31  1-3,210 

GRID 

96 

0397 

D(I-2,  J)  -  IN(I)  /HDNDB 

GRID 

99 

0398 

31 

CONTINDE 

GRID 

101 

0399 

DLA(J)  -  IN(211)  /TEN 

GRID 

102 

0400 

DLO(J)  -  IN  (212) /TEN 

GRID 

103 

0401 

32 

CONTINDE 

GRID 

104 

0402 

C 

GRID 

105 

0403 

C 

IF  NECESSARY,  INTERPOLATE 

GRID 

106 

0404 

c 

GRID 

107 

0405 

LALO-LL (II) 

GRID 

108 

0406 

DO  33  1-1,5 

GRID 

109 

0407 

IGd)-IPTdI,  I) 

GRID 

110 

0408 

33 

CONTINDE 

GRID 

111 

0409 

IFdG(2)  .NE.O)  GO  TO  35 

GRID 

112 

0410 

DO  34  1-1,208 

GRID 

113 

0411 

D(I,5)=Dd,l) 

GRID 

114 

0412 

34 

CONTINDE 

GRID 

115 

0413 

GO  TO  37 

GRID 

116 

0414 

3  5 

IFdG(5)  .NE.2)  go  TO  36 

GRID 

117 

0415 

DYX  ( 1  )  -DXY  dl ,  1  1 

GRID 

118 

0  416 

DYX(2)-DXYdI,2) 

GRID 

11? 

041' 

n 

GRID 

12C 

0  41" 

36 

CALL  INTP,F4  (LALCI 

GRID 

i:i 

^419 

r 

GRID 

i:: 

0  4  2  0 

37 

DO  38  1-1,26 

GRID 

12  3 

0421 

P(II,I)-D(I,5)  *HDNDF 

GRID 

124 

0  4  2  2 

11  1"  1  ‘^‘=,  5;  dnO'J 

GRID 

125 

04  2  3 

idl,l)  -Dd  +  52,5) 

GRID 

126 
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0424 

DIVIDE-ONE 

GRID 

12'’ 

0425 

IF(P  (II,  I)  .GT.ZERO)  DIVIDE-(P  (II,  I)  /HtJNDR)  **2 

GRID 

128 

0426 

SP (II, I)-D (1+26, 5) /DIVIDE 

GRID 

129 

0427 

DIVIDE-ONE 

GRID 

130 

0428 

IF(R(II,I) .GT.ZERO)  DIVIDE- (THOO*R ( II , I) ) **2 

GRID 

131 

0429 

SR(II,I)-D(I+182,5) /DIVIDE 

GRID 

132 

0430 

DIVIDE-ONE 

GRID 

133 

0431 

IF(T(II,I) .GT.ZERO)  DIVIDE-T (II, I) **2 

GRID 

134 

0432 

ST (II, I) -D (1+78, 5) /DIVIDE 

GRID 

135 

0433 

38  CONTINDE 

GRID 

136 

0434 

REWIND  (lOTEMl) 

GRID136B 

0435 

RETURN 

GRID 

137 

0436 

39  I  -  IREAD(IRN,1) 

GRID137B 

0437 

J  -  IREflD(IRN,2) 

GRID137C 

0438 

WRITE (6, 40)  JT, IRC, IREAD (IRN, 3) ,MP, MONTH, IP, I, J, IPT(I, J) , IRN,M 

GRID 

138 

0439 

0440 

0441 

0442 

40  FORMAT (IX, '*****  UNIT  NO.  ’,13,'  IN  ERROR  '.11,'  RECORDS  READ'/ 

1  'IREAD(IRN,3)  -',I5,'  MP  -  ',I3,'  MONTH  »  ',I3,'  IP  -  ',15, 

2  '  IPT ; ' , 12, ' , ’ , 11, ' )  -  ',15,'  IRN  -',13/'  STATUS:  ',A6) 

STOP  'EXECUTION  TERMINATED  DDE  TO  ERROR  CONDITION' 

GRID 

142 

0443 

END 

GRID 

143 

0444 

SUBROUTINE  ADJUST 

ADJD 

1 

0445 

COMMON/C4/DUN1  (32)  ,  NG,  P  ( 1 6,  2  6)  ,  D  (16,  26)  ,  T  ( 16 , 2 6)  ,  SP  ( 16 , 2 6) 

ADJU 

2 

0416 

$,  SD  (16, 26)  ,  ST(16,  26)  ,DU1,  DU2,  HS 

ADJU 

3 

0447 

COMMON/ADJCOM/A(26, 3) ,  B(26),  X(26),  KOUNT 

ADJU 

4 

0448 

DIMENSION  PQ( 26) ,  QQ(26),  DC(26),  VC(26),  WC(26),  U(26),  V(26), 

ADJU 

5 

0449 

$  W(26) 

ADJU 

6 

0450 

C 

ASSUMPTIONS0 

ADJU 

7 

0451 

c 

HS  IS  THE  SURFACE  LEVEL 

ADJU 

8 

0452 

c 

ALL  DATA  VALUES  ABOVE  SURFACE  LEVEL  ARE  IK  1  KM  INCREMENTS 

ADJU 

9 

0453 

El-0.075 

ADJU 

10 

0454 

E2-0.150 

ADJU 

11 

0455 

MAXIT-3 

ADJU 

12 

0456 

KSMAX-10 

ADJU 

13 

0457 

HSJ  -  HS 

ADJU 

14 

0458 

IF  (HS.LT.O.)  HSJ  -  0. 

ADJU 

15 

0459 

JJ-INT(HSJ+2.) 

ADJU 

16 

0460 

STEST-0 .05 

ADJU 

17 

0461 

ISS-1 

ADJU 

18 

0462 

CONST-28703. /980. 665 

ADJU 

19 

0463 

N-2  6 

ADJU 

20 

0464 

ITER-0 

ADJU 

21 

0465 

UC(1) -SORT (ABS (SP (KOUNT, 1) ) ) 

ADJU 

22 

0466 

VC (1) -SORT (ABS (SD (KOUNT, 1) ) ) 

ADJU 

23 

0467 

WC(1) -SORT (ABS (ST (KOUNT, 1) ) ) 

ADJU 

24 

0468 

DO  5  I-JJ.N 

ADJU 

25 

0469 

UC (I) -SORT (ABS (SP (KOUNT, I) ) ) 

ADJU 

26 

0470 

VC (I) -SORT (ABS (SD (KOUNT, I) ) ) 

ADJU 

27 

0471 

5  WC(I) -SORT (ABS (ST (KOUNT, I) ) ) 

ADJU 

28 

0472 

NM-N-1 

ADJU 

29 

04  7  3 

NP-N+1 

ADJU 

30 

0474 

c. 

. . . . SETS  UP  QUADRATURE  FACTORS 

ADJU 

31 

r  j-TC 

PQ( 1) -500 . * (FLOAT (INT (HSJ+1. ) ) -HS) / (CONST*! (KOUNT, 1) ) 

ADJU 

32 

0476 

yu(l) -30". * (FLOAT (INT (HSJ+1. ) ) -HS) / (CONST*! (KOUNT, JJ) ) 

ADJU 

33 

0  4  7" 

DO  15  I-JJ,NM 

ADJU 

3  4 

04‘'e 

IP-I+1 

ADJU 

35 

0  4  "  ? 

PQ ( I ) -500 . / (CONST*! (KOUNT, I) ) 

ADJ  J 

"■ 

04  8  0 

15  00(1)  =500  .  (CONST*!  (KOUNT,  IF)  ) 

ADJU 

37 

-  4  8  I 

GO  TO  59 

ADJU 

39 

04  92 

12  NM*N-1 

•»,  n  TT  + 

—  ^ 

04  5? 

NP^N+l 

ADJU 

4" 

DO  14  1=1,26 

ADJU 

41 

'"‘4  9  5 

D (I) =OC  (I)  *UC (I) 

ADJU 

42 

04  P  ^ 

V(I)  -VC  (I)  *'/C(I) 

ADJU 

43 

o  4  p  - 

W ( I ) -WC ( 1 1  *WC 1 1 ) 

ADJU 

44 
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0488 

0489 

0490 

0491 

0492 

0493 

0494 

0495 

0496 

0497 

0498 

0499 

0500 

0501 

0502 

0503 

0504 

0505 

0506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 

0519 

0520 

0521 

0522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

053S 

0537 

0538 

0530 

0540 

0541 

0542 

^54  3 

054  4 

05  4  3 

05  4  6 

n  r 

05  4  8 
0  5  4  9 
r  5  5<:' 


14  CONTINUE 

C . INITIALIZE  A(I,J) 

DO  20  1-1,26 
DO  20  J-1,3 
20  A(I,J)-0. 

C . SETS  UP  COEFFICIENTS 

12-0 

DO  35  I-1,NM 

IFd.GT.l.AND.I.LT.  JJ)  GO  TO  35 
AW-l./SP(KODNT,  I) 

BW-l./SD(KODNT,I) 

CW-1 . /ST (FOUNT, I) 

IM-I-1 

IF(l.EQ.JJ)  IM-1 
IP-I+1 

IF  (I.EQ.l)  IP-JJ 
I2-I2+1 

AWl-l./SP (FOUNT,  IP) 

BWl-l./SD (FOUNT, IP) 

CWl-1 . /ST (FOUNT, IP) 

IF (I.EQ.l)  GO  TO  25 

A(I2,  D  —  (l.-QQ(IM)  )  *(1.+PQ(I)  )  /AW+(1./BW+1./CW)  *PQ(I)  *QQ  ( IM) 

25  A(I2,2)-( (l.-QQ{I) ) **2) /AW1+ ( ( 1 . +PQ ( I ) ) *»2 ) /AW+ ( 1 . /BW+1 . /CW) 

S  * (PQ(I) **2)  +  {1./BW1  +  1 ./CWl) *00(1)  »*2 
IF(I.EQ.NM)  GO  TO  30 

A(I2, 3) — (1. -QQ(I) ) * (l.+PQ(IP) ) /AM1+ (l./BWl+l./CWl) * 

$  PQ(IP) *QQ(IP) 

30  B(I2)-0(IP)  -U(I)  -  (0(1)  -V(I)+W(I)  )*PQ(1)  -(C  (IP)  -V(IP)  +W(IP)  )  *QQ(I) 
35  CONIINUE 

CALL  DIAGEQ(I2) 

C . FINDS  CORRECTIONS 

AW- l./SP( FOUNT, 1) 

BW-1./SD( FOUNT, 1) 

CW-1 .  /ST  (FOUNT,  1) 

UC(l)-SQRT(ABS(n(l)  +X(1)  *  (l.+PQ'l)  )  /AW)  ) 

VC ( 1 ) -SORT ( ABS ( V (1 ) -X { 1 ) *PQ ( 1 ) /BW) ) 

WC(1)-SQRT(ABS(W(1)  +X(1)  *Pa(l)  /CW)  ) 

AW-l./SP (FOUNT, N) 

BW-l./SD (FOUNT,  N) 

CW-1. /ST (FOUNT, N) 

UC(N) -SORT (ABS(U(N) -X ( 12 ) * ( 1 . -QQ (NM) ) /AW) ) 

VC(N)-SQRT(ABS(V(N) -X ( 12 ) *QQ (NM) /BW) ) 

WC  (N)  -SORT  (ABS  (W  (N)  +X  ( 12  )  »QQ  (NM)  /CW)  ) 

12-1 

DO  40  I-JJ,NM 

I2-I2+1 

I2M-I2-'. 

AW-1 . /SP (FOUNT, I) 

BW-1 . /SD (FOUNT,  I) 

CW=1 . /ST (FOUNT, I) 

IM=I-1 

IF (I .EQ. JJ) IM-1 

UC(I)  -ABS  (U  (I)  *(-X(I2M)  *  (l.-QQ(IM)  )+X(I2)  *  ( 1 . +PQ  ( I )  )  )  /AW) 

UC(I)-SQP.T(UC(I)  ) 

VC (I) -ABS (V(I)  - (X (I2M) *QQ(IM) +X (12) *FQ(I) ) /BW) 

VC(I)”SQRT/VC(I(  ,1 

WC  { I)  -ABS  (W  (I )  +  {X  { I2M)  *QQ  (IM)  +X  (12  )  *F'.  ( I  )  )  ,'CW! 

4'J  WC  (  1)  -SORT  (WC  (I)  ) 

C . GETS  ADJUSTED  VALUES 


ADJU  45 
ADJU  46 
ADJU  4  7 
ADJU  48 
ADJU  49 
ADJU  50 
ADJU  51 
ADJU  52 
ADJU  53 
ADJU  54 
ADJU  55 
ADJU  56 
ADJU  57 
/iDJU  58 
ADJU  59 
ADJU  60 
AD.TU  61 
ADJU  62 
ADJU  63 
ADJU  64 
ADJU  65 
ADJU  66 
ADJU  67 
ADJU  68 
ADJU  69 
ADJU  70 
ADJU  71 
ADJU  7  2 
ADJU  7  3 
ADJU  74 
ADJU  75 
ADJU  76 
ADJU  77 
ADJU  76 
ADJU  79 
ADJU  80 
ADJU  81 
ADJU  82 
ADJU  83 
ADJU  84 
ADJU  85 
ADJU  86 
ADJU  87 
ADJU  88 
ADJU  89 
ADJU  90 
ADJU  91 
ADJU  92 
ADJU  93 
ADJU  94 
ADJU  95 
ADJU  96 
ADJU  97 
ADJU  98 
ADJU  99 
ADJ)j  IC'^ 
ADJU  ICl 
ADJU  102 
ADJU  103 


.  AJJ^’C  ^c  -  i.  jjj:  X  i  hS 

5  8  K-C 

DO  66  I-1,N 

IF (I  GT. 1 . AND . I . LT. JJ)  GO  TO  68 
AU-UC ( I ) 


AL  * 

ADJU  ICO 
ADJU  106 
ADJU  107 
ADJU  108 
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0552 

AV-VC ( I ) 

ADJD 

109 

0553 

AM-WC ( I ) 

ADJD 

110 

0554 

AMAX-AMAXl  (AD,AV,  AM) 

ADJD 

111 

0555 

EE-E1*AMAX 

ADJD 

112 

0556 

EF-E2*AMAX 

ADJD 

113 

0557 

AM-SP  (KOUNT,  I) 

ADJD 

114 

0558 

BM-SD (KOONT, I) 

ADJD 

115 

0559 

CW-ST (KOUNT, I) 

ADJD 

116 

0560 

COR-AD+AV-AM-EE 

ADJD 

117 

0561 

DIV-AW+BM+CW 

ADJD 

118 

0562 

IF(roR.GT. 0. )  GO  TO  60 

ADJD 

119 

0563 

COR- (AO+AV-AM-EF) /DIV 

ADJD 

120 

0564 

AD-AD-COR*AW 

ADJD 

121 

0565 

AV-AV-COR*BW 

ADJD 

122 

0566 

AM-AM+COR*CW 

ADJD 

123 

0567 

GO  TO  64 

ADJD 

124 

0568 

60 

COR-AO-AV+AM-EE 

ADJD 

125 

0569 

IF(COR.GT.O. )  GO  TO  62 

ADJD 

126 

0570 

COR-(AU-AV+AM-EF) /DIV 

ADJD 

127 

0571 

AD-AD-COR*AW 

ADJD 

128 

0572 

AV-AV+COR*BW 

ADJD 

129 

0573 

AM-AM-COR*CW 

ADJD 

130 

0574 

GO  TO  64 

ADJD 

131 

0575 

62 

COR— AO+AV+AM-EE 

ADJD 

132 

0576 

IF (COR.GT. 0 . )  GO  TO  66 

ADJD 

133 

0577 

COR-(-AD+AV+AM-EF) /DIV 

ADJD 

134 

0578 

AO-AU+COR*AW 

ADJD 

135 

0579 

AV-AV-COR*BW 

ADJD 

136 

0580 

AM«AM-COR*CW 

ADJD 

137 

0581 

64 

K-K+1 

ADJD 

138 

0582 

66 

DC (I ) -AD 

ADJD 

139 

0583 

VC ( I ) -AV 

ADJD 

140 

0584 

WC ( I ) -AM 

ADJD 

141 

0585 

68 

CONTINDE 

ADJD 

142 

0586 

KMAX-K 

ADJD 

143 

0587 

100 

IF( (ITER.EQ.O) .OR. (KMAX.NE.O) )  GO  TO  110 

ADJD 

144 

0588 

GO  TO  112 

ADJD 

145 

0589 

110 

ITER-ITER+1 

ADJD 

146 

0590 

IF(ITER.LE.MAXIT)  GO  TO  12 

ADJD 

147 

0591 

112 

IF  (ISS.NE.l)  GO  TO  999 

ADJD 

148 

0592 

114 

ITER-1 

ADJD 

149 

0593 

ISS-2 

ADJD 

150 

0594 

VTA- VC (1) 

ADJD 

151 

0595 

WTA-WC (1) 

ADJD 

152 

0596 

DO  120  I-JJ,NM 

ADJD 

153 

0597 

IM-I-1 

ADJD 

154 

0598 

IF(I.EQ.JJ)IM-1 

ADJD 

155 

0599 

VTB-VC (I) 

ADJD 

156 

0600 

WTB-WC ( I ) 

ADJD 

157 

0601 

VC(I)=(VC{I+l)+2. *VTB+VTA) *0.25 

ADJD 

158 

0602 

WC (I) - (WC (I+l) +2 . *WTB+WTA) *0.25 

ADJD 

159 

0603 

VTA'VTB 

ADJD 

160 

0604 

WTA-WTB 

ADJD 

161 

Ofns 

120 

CONTINDE 

ADJD 

162 

0  6  f 

GO  TO  12 

ADJD 

163 

060' 

c .  .  .  . 

.CALCULATE  THE  CORRECTED  VAP.IANCES 

ADJD 

164 

0608 

999 

DO  1010  1  =  1, N 

ADJD 

165 

O6'^o 

IE (I.GT.l.AND.I.LT.JJ)  GO  TO  1010 

ADJD 

166 

<^610 

SP (KOUNT, I) =UC (1) **2 

ADJD 

167 

^611 

SD(KOONT, I)=VC(1) **2 

ADJD 

168 

0612 

SKKOD..:,  ;■.  -wc(i)  **2 

ADJU 

16? 

0613 

1010 

CONTINDE 

ADJD 

170 

0614 

RETURN 

ADJD 

171 

0615 

END 

ADJD 

172 

91 


CHR/91-2750 


0616 

SUBRODTINE  SELEC4 

SELE 

1 

■^617 

INTEGER  IOTEM2 

5ELE 

2 

0618 

C0MM0N/C4/XL(16)  ,Y!.(16)  ,  NP,  DDMMY  (2499) 

SELE 

3 

0619 

c 

SELE 

4 

0620 

c 

S 

SELE 

5 

0621 

c 

SUBROUTINE  TO  SELECT  POINTS  FOR  INTERPOLATION 

SELE 

6 

0622 

c 

SELE 

7 

0623 

COMMON  /lOTEMP/  lOTEMl ,  IOTEM2  ,  DOMMY2  (  62 ) 

SELE 

8 

0624 

COMMON  /POINT/  IPT ( 16, 5 ) , LL (1 6) , DXY ( 16, 2 ) 

SELE 

9 

0625 

COMMON  /ORDER/  IPTN ( 1 6 , 5) , IREAD (65, 3 ) 

SELE 

10 

0636 

c 

SELE 

11 

0627 

DIMENSION  1C(4)  ,IL(2)  ,  Jl.(2)  LIML  ( 51 )  ,  LIMU  (51) 

SELE 

12 

0628 

c 

SELE 

13 

0629 

DATA  LIML/15, 14,  13 , 12 , 11 , 10 , 9, 8 , 7 , 6, 5, 4 , 3 , 2 , 23*1 , 2 , 3 , 4 , 5 , 6,  7 , 8 , 9 

,  SELE 

14 

0630 

110,  11, 12, 13, 14, 15/ 

SELE 

15 

0631 

DATA  LIMU/33,  34 , 35 ,  36,  37 ,  38 , 39,  40,  41 ,  42 ,  4 3 , 4 4 , 45 , 4  6,  23*4  7,  4  6,  4 5, 

SELE 

16 

0632 

144,  43, 42,  41, 40, 39, 38, 37, 36,  35, 34, 33/ 

SELE 

17 

0633 

DATA  PI/3.14159/ 

SELE 

18 

0634 

c 

SELE 

19 

0635 

c 

SELE 

20 

0636 

c 

INITIALIZE 

SELE 

21 

0637 

r 

SELE 

22 

0638 

PI4-PI/4 . 

SELE 

23 

0639 

DEGRAD-PI/ 180 , 

SELE 

24 

0640 

DO  1  I-l, 16 

SELE 

25 

0641 

DO  1  J-1, 5 

SELE 

26 

0642 

1  IPT(I,J)-0 

SELE 

27 

0643 

C 

SELE 

28 

0644 

C 

MAJOR  I'OOP  FOR  POINTS 

SELE 

29 

0645 

C 

SELE 

30 

0646 

DO  100  II“1,NP 

SELE 

31 

0647 

C 

SELE 

32 

0648 

LA-ABS (XL(II) ) *10 , +.5 

SELE 

33 

0649 

LO-YL{II) *10. +.5 

SELE 

34 

0610 

IF  (LO.LT.O)  LO  -  LO  +  3600 

SELE 

34B 

0651 

LL(II) -LA*10000+L0 

SELE 

35 

0652 

IF  (XL(II)  .LT.O.)  LL(II)— LL(II) 

SELE 

36 

0653 

c 

SELE 

37 

0654 

IF  (XL(II) -15.1)  15,30,30 

SELE 

38 

0655 

15  IF  (XL(II))  50,40,40 

SELE 

39 

0656 

c 

SELE 

40 

0657 

c 

NMC  GRID 

SELE 

41 

0658 

r 

SELE 

42 

0659 

30  IPT(II,5)-2 

SELE 

43 

0660 

YEL  =  YL(II) 

SELE 

43B 

0661 

IF  (YEL. LT.O.)  YEL  ■=  YEL  +  360. 

SELE 

43C 

0662 

EL-(350.-YEL) *DEGRAD 

SELE 

44 

0663 

PHI=XL(II) *DEGRAD 

SELE 

45 

0664 

R-31 .204359052* (SIN (PI  4 -PHI /2 . ) /COS (PI4-PHI/2 . ) ) 

SELE 

46 

0665 

XX-R*COS (EL) +24 . 

SELE 

47 

0666 

YY«R*SIN(EL) +26. 

SELE 

48 

0667 

I=XX 

SELE 

49 

0668 

J-YY 

SELE 

50 

066? 

DX-XX-I 

SELE 

51 

0  67r: 

DY-YY-J 

SELE 

52 

0671 

DXY  (II,  1)-DX 

SELE 

53 

0  67  2 

DXY ( II , 2 1 =DY 

SELE 

54 

0  67  3 

IF  (XL(II) .GT.17 .18)  GO  TO  31 

SELE 

55 

0674 

IF  ( ( J.LT. 1) .OR. ( J.GT.51) )  GO  TO  70 

SELE 

56 

0  6' 5 

IF  (  (  I  .  LT  .  LIML(  t  .OR.  (I  .GT  .  LIM'M-'')  !  1  O':'  T'  70 

SELE 

5  ' 

O'  6 ' 6 

31  IC  (  1  )  ■=I*100r!i  7 

SELE 

5P 

0  C  "  7 

IF  ( (ABS (DX) .GT. . 1) .OR. (ABS (DY) .GT. . 1) )  GO  TO  32 

SELE 

59 

0  6  7  P 

IP  =  1 

SELE 

60 

0  6  7? 

GO  TO  35 

SELE 

61 

92 


CHR/91-2750 


0680 

32 

CONTINUE 

SELE  62 

0681 

IF  (XL(II)  .GT.17.18)  GO  TO  34 

SELE  63 

0682 

IF  ( ( (I.GT. (LIMO(J)-l) ) .AND. ( (J.GE.15) .AND. 

(J.LE.37)))  SELE  64 

0683 

1  .OR. (J.GT.50) )  GO  TO  70 

SELE  65 

0684 

IF  ( (I+1.GT.LIMD(J+1) ) .OR. ( I . LT . LIML ( J+1) ) ) 

GO  TO  80  SELE  66 

0685 

IF  (  (I.EQ.I.IMU(J)  )  .OR.  (I.EQ.LIML(J)  )  )  GO 

TO 

80  SELE  67 

0686 

34 

IP-4 

SELE  68 

0687 

IC(2) - (I+l) *1000+J 

SELE  69 

0688 

IC(3)-I*1000+J+1 

SELE  70 

0689 

IC(4)-(I+1) *1000+J+1 

SELE  71 

0690 

35 

CONTINUE 

SELE  72 

0691 

REWIND  (IOTEM2) 

SELE  73 

0692 

DO  38  IPG-1,1977 

SELE  74 

0693 

READ'IOTEM2)  IJ 

SELE  75 

0694 

DO  38  K-1, IP 

SELE  76 

0695 

38 

IF(IC(K) .EQ.IJ)  IPT (II, K) -IPG 

SELE  77 

0696 

GO  TO  100 

SELE  78 

0697 

C 

SELE  79 

0698 

C 

EQUATORIAL  GRID 

SELE  80 

0699 

c 

SELE  81 

o 

o 

r 

o 

40 

IPT (II, 5) -1 

SELE  82 

0701 

Ll-XL(II) 

SELE  83 

0702 

L2-YL(II) 

SELE  84 

0703 

IF  (L2.LT.0)  L2  -  L2  +  360 

SELE  84E 

0704 

IL(l)-Ll/5 

SELE  85 

0705 

IL(2)-IL(1) +1 

SELE  86 

0706 

JL(1) = (L2/5) +1 

SELE  87 

C707 

JL(2) -JL(1) -1 

SELE  88 

0708 

DO  45  Kl-1, 2 

SELE  89 

0709 

DO  45  K2-1. 2 

SELE  90 

0710 

IF  ( (APS (XL(II) -IL(Kl) *5) .GT.0.1) .OR. (ABS(YL(II) -JL(K2) *5) .GT.O.DSELE  91 

0711 

1  )  GO  TO  45 

SELE  92 

0712 

IF  (JL(K2) .EQ.72)  JL(K2)-0 

SELE  93 

0713 

IPT (II, 1) -JL(K2) *4+IL(Kl) +1 

SELE  94 

0714 

GO  TO  100 

SELE  95 

0715 

45 

CONTINUE 

SELE  96 

0716 

IF  (JL(1)  .EQ.72)  JL(l)-0 

SELE  97 

0717 

IPT  (II,  l)-JL(l)  *4  +  IL(1)41 

SELE  98 

0718 

IPT(II,2)=JL(2) *4+IL(1)+1 

SELE  99 

0719 

IPT (II, 3) -JL(1) *4+IL(2) +1 

SELE  100 

0720 

IPT (II, 4)-JL(2) *4+IL(2)+1 

SELE  101 

0721 

GO  TO  100 

SELE  102 

0722 

C 

SELE  103 

0723 

C 

SOUTHERN  HEMISPHERE 

SELE  104 

0724 

c 

SELE  105 

0725 

50 

IPT (II, 5) -3 

SELE  106 

0726 

Ll-XL(II) 

SELE  107 

0727 

L2-YL(II) 

SELE  108 

0728 

IF  (L2.LT.0)  L2  -  L2  +  360 

SELE108B 

0729 

IF  (ABS (XL(II) ) .LT.85.0)  GO  TO  51 

SELE  109 

0730 

IPT  (II,  1'  -1 

SELE  110 

0  7  31 

IF  (ABS (XL (II) +90 . ) .LT.O. 11)  GO  TO  100 

SELE  111 

0  7  3  2 

51 

CONTINUE 

SELE  112 

0  7  3  3 

IL( 1 ) - (Ll/5) -1 

SELE  113 

07  34 

JL(1) - 'L2 /5) +1 

SELE  114 

n  o  3  c 

IL(2)-IL(1) +1 

SELE  115 

0 3  6 

JL (2 ( -JL ( 1 ) -1 

SELE  116 

07  3^ 

DO  32  Kl-1, 2 

SELE  117 

0738 

DO  52  K2=l, 2 

SEIE  HR 

fi  7  ^  a 

IF  ( (ABS (XL (TI) -IL{K1) *5) .GT.0.1) .OP . (ABS 

(YL(II)  -.7L(K2)  *5)  .GT.O.DSELE  11  + 

0  7  4  0 

] 

.  )  GO  TO  52 

SELE 

o-’41 

IF  (JL(K2) .EQ.72)  JL(K2)=0 

SELE  121 

0  7  4  2 

IPT (II, 1)-JL(K2) *17-IL(K1)+1 

SELE  122 

0  4  3 

IF  (IL{K1) .NE.O)  go  to  100 

SELE  123 
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0744 

IPT (II, 1) -JL(K2) *4+1 

SELE 

124 

0745 

IPT ;ii, 5) -1 

SELE 

125 

0746 

GO  TO  100 

SELE 

126 

0747 

52 

CONTINUE 

SELE 

127 

0748 

IF  (JL(1) .EQ.72)  JL(l)-0 

SELE 

128 

0749 

IF  (IPTdl,  1)  .EQ.l)  GO  TO  54 

SELE 

129 

0750 

IPT(II,1)-JL(1) *17-IL<1)+1 

SELE 

130 

0751 

IPT  (II,  2)  -JL(2)  *17-IL(1)  +1 

SELE 

131 

0752 

IF  (IL(7))  55,53,55 

SELE 

132 

0753 

53 

IPTdl, 3)-JL(l)*4  +  l 

SELE 

133 

0754 

IPT (II, 4) -JL(2) *4+1 

SELE 

134 

0755 

IPT (11, 5) -1133 

SELE 

135 

0756 

GO  TO  100 

SELE 

136 

0757 

54 

IPT(II,2)-JL(1) *17-IL(2)+1 

SELE 

137 

0758 

IPT (II, 3) -JL(2) *37-IL(2) +1 

SELL 

138 

0759 

IPT (II, 5) -333 

SELE 

139 

0760 

GO  TO  100 

SELE 

140 

0761 

55 

CONTINUE 

SELE 

141 

0762 

IPT  (II,  3)  -JUD  *17-IL(2)+1 

SELE 

142 

0763 

IPT (II, 4) -JL (2) *17-IL(2)+1 

SELE 

143 

0764 

GO  TO  100 

SELE 

144 

0765 

c 

SELE 

145 

0766 

c 

BODERLINE  POINTS 

SELE 

146 

0767 

r 

SELE 

147 

0768 

70 

CONTINUE 

SELE 

148 

0769 

r 

TWO  NMC,  TWO  EQUATORIAL 

SELE 

149 

0770 

IPT  (II, 5) -2211 

SELE 

150 

0771 

L-YLdI) 

SELE 

151 

0772 

IPTdl,  1)  -(  (L/5)  +2)  *4 

SELE 

152 

0773 

IPT (II, 2) -IPT (II, 1) -4 

SELE 

153 

0774 

IF  (L.GE.355)  IPTdl, l)-4 

SELE 

154 

0775 

C 

SELE 

155 

0776 

IF  (J.LT.l)  J-1 

SELE 

156 

0777 

IF  (J.GT.51)  J-51 

SELE 

157 

0778 

IF  (I.LT.LIML(J) )  I-LIML(J) 

SELE 

158 

0779 

IF  (I.GT.LIMU(J) )  I-LIMU(J) 

SELE 

159 

0780 

IC(1)-I*1000+J 

SELE 

160 

0781 

IF  ( (J.LT.15) .OR. (J.GT.37))  GO  TO  72 

SELE 

161 

0782 

IC(2) -I*1000+J+l 

SELE 

162 

0783 

GO  TO  76 

SELE 

163 

0784 

72 

IF  ( (J.NE.l) .AND. (J.NE.51) )  GO  TO  74 

SELE 

164 

0785 

IF  (I .EQ.LIMU ( J) )  GO  TO  73 

SELE 

165 

0786 

IC(2)-(I+1) *1000+J 

SELE 

166 

0787 

GO  TO  76 

SELE 

167 

0788 

73 

IC(2)  -d-l)  *1000  +  3 

SELE 

168 

0789 

GO  TO  76 

SELE 

169 

07  90 

74 

IF  (I.EO.LIML(J) )  GO  TO  75 

SELE 

170 

07  91 

IC(2)-LIMU(J+1) *1000+3+1 

SELE 

171 

0792 

GO  TO  76 

SELE 

172 

07  93 

75 

IC(2)-LIML(3+1) *1000+3+1 

SELE 

173 

0794 

r; 

SELE 

174 

0  7  95 

76 

REMIND  dOTEM2) 

SELE 

175 

0796 

DO  77  IPG-1 ,1977 

SELE 

176 

07  97 

READdOTEM2)  13 

SELE 

177 

0798 

DO  77  K=1 , 2 

SELE 

178 

r799 

7  “ 

IFdC'F)  .EQ'.IOi  IFT(II.K  +  2'=IF0 

SELE 

1’9 

08  00 

GO-  TO  l'j7 

SELE 

le-o 

0801 

C 

SELE 

181 

■'■'8  0  2 

8  0 

CONTINUE 

SELE 

182 

000? 

THPXE  NMC,  ONE  EQUATOPIAL 

SELE 

18;- 

0  8  04 

IPT ( 11 , 5 1 -2212 

SELE 

184 

0  8  0  5 

IC(2)  -  0 

SELE 

185 

0  80  6 

L-YLdI) 

SELE 

186 

080’ 

IPT ( i: , 2)  -  1  (L/5) +1) *4 

SELE 

187 
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0808 

IF  (L.GE.355)  IPT(II,2)-4 

SELE 

188 

0809 

IF  (I .EQ.LIML( J) )  GO  TO  94 

SELE 

189 

0810 

IF  (J.GT.37)  GO  TO  82 

SELE 

190 

0811 

IC(l)-I*1000f J 

SELE 

191 

0812 

IC (3) -I*1000+J+l 

SELE 

192 

0813 

IC  (4)  -d  +  l)  *1000  +  J+1 

SELE 

193 

0814 

GO  TO  88 

SELE 

194 

0815 

82 

IC(1)-(I+1) *1000+J 

SELE 

195 

0816 

IC(3)-I*1000+J 

SELE 

196 

0317 

IC(4)-I*1000+J+1 

SELE 

197 

0818 

GO  TO  88 

SELE 

198 

0819 

84 

IF  (J.GT.37)  GO  TO  86 

SELE 

199 

0820 

IC(1)-(I-1)*  ^00+J+l 

SELE 

200 

0821 

IC(3)-I*1000+J+1 

SELE 

201 

0822 

IC(4)-I*1000+J 

SELE 

202 

0823 

GO  TO  88 

SELE 

203 

0824 

86 

IC(1)-(I+1) *1000+J+1 

SELE 

204 

0825 

IC(3)-(I+1) *1000+J 

SELE 

205 

0826 

IC(4) -I*1000+J 

SELE 

206 

0827 

c 

SELE 

207 

0828 

88 

REWIND  (IOTEM2) 

SELE 

208 

0829 

DO  99  IPG-1,1977 

SELE 

209 

0830 

READ(IOTEM2)  IJ 

SELE 

210 

0831 

DO  89  K-1, 4 

SELE 

211 

083i 

IF(IC(K) .EQ.O)  GO  TO  89 

SELE 

212 

0833 

IF  (IC  (K)  .EQ.  IJ)  IPT(II,K)-IPG 

SELE 

213 

0834 

89 

CONTINUE 

SELE 

214 

0835 

c 

SELE 

215 

0836 

100 

CONTINUE 

SELE 

216 

0837 

DO  150  1-1,16 

SELE 

217 

0838 

DO  150  J-1, 5 

SELE 

218 

0839 

150 

IPTNd,  J)-IPT(1,  J) 

SELE 

219 

0840 

CALL  SORr4(NP) 

SELE 

220 

0841 

RETURN 

SELE 

221 

0842 

END 

SELE 

222 

0843 

SUBROUTINE  INTRP4  (LALON) 

INTR 

1 

0844 

c 

INTR 

2 

0845 

c 

SUBROUTINE  TO  INTERPOLATE  VALUES 

INTR 

3 

0846 

INTR 

4 

0847 

DIMENSION  XLL(4) , YLL(4) ,XC(4) ,YC(4) 

INTR 

5 

0848 

c 

INTR 

6 

0849 

COMMON/ INT/D  (200, 5)  ,  IG(5)  ,  DXY  (2)  ,DLA(4)  ,  DLO  (4) 

INTR 

7 

0850 

c 

INTR 

8 

0851 

DEGRAD-3.14159/180 . 

INTR 

9 

0852 

LALO-IABS ( LALON) 

INTR 

10 

0853 

Ll-LALO/10000 

INTR 

11 

0854 

L2-LALO-L1*10000 

INTR 

12 

(jb55 

XL-Ll/10. 

INTR 

13 

0856 

YL-L2/10. 

INTR 

14 

085^ 

IF  dG(5)-2)  30,20,10 

INTR 

15 

0858 

10 

IF  (IG(5)-3)  30,30,50 

INTR 

16 

0859 

r 

INTR 

17 

086" 

r~ 

INTEPBOLATE  FROM  NMC  GRID 

INTR 

18 

0061 

n 

INTR 

19 

0862 

20 

CONTINUE 

INTR 

2C 

08  6  3 

DC  25  L=1 , 26 

INTR 

”0  1 

0  8  6  4 

DC  2  2  J-1  ,  4 

INTF 

?2 

0065 

2  2 

IF  (D(L,  J)  .LI.C'.Ol)  GC  T-:-'  25 

INTR 

22 

0866 

DO  2  4  K-1 ,  8 

INTF 

24 

086- 

I-(E-l)  ♦264-l 

INTF. 

2  5 

0  8  6  » 

D  d,  5)  =  (1  .  -DXY  (2)  )  *  1  (1  .  -DXYd  )  <  *0  d  ,  1)  +DXY  d  )  *0  ( 1 ,  2)  )  INTR 

2  ^ 

08  6? 

1  +DXY  (2)  *  (  (  (1  .  -DXY  (1)  )  *D  (I,  3)  )  +DXY  (1)  *D  d,  4)  ) 

INTR 

-V  "7 

OS'’'' 

24 

CONTINUE 

INTR 

28 

08-1 

25 

CONTINUE 

INTR 

29 
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0872 

RETORN 

INTR 

30 

0877 

c 

INTR 

31 

0874 

c 

INTERPOLATE  FROM  EQUATION  FOR  SODTHERN  HEMISPHERE  GRID 

INTR 

32 

0875 

c 

INTR 

33 

0876 

30 

CONTINUE 

INTR 

34 

087-’ 

DO  32  J-1, 2 

INTR 

35 

0878 

XLL(J)-DLA(J) 

INTR 

36 

087  9 

YLL(J)  -DLO(  J) 

INI 

37 

0880 

IF  ( (YL.GE. 355. ) .AND. (YLL(J) .LT. 0.01) )  YLL(J)-360. 

INTR 

38 

0881 

32 

CONTINUE 

INTR 

39 

0882 

X-(YLL(1) -YI) /5. 

INTR 

40 

0883 

Y-(XL-XLL(1) ) /5. 

INTR 

41 

0884 

IF  (IG(5).EQ.3)  Y— Y 

INTR 

42 

0885 

DO  38  L-1, 26 

INTR 

43 

0886 

DO  3  6  J-1,  4 

INTR 

44 

088"’ 

36 

IF  (D(L, J) .LT.0.01)  GO  TO  38 

INTR 

45 

0888 

DO  37  K-1,  8 

INTR 

46 

088? 

I-(K-l) *26+L 

INTR 

47 

089"' 

D(I,  5) -D (I, 1) +X* (D(I,^) -D(l, 1) ) +Y* (D(I,3) -D(I, 1) ) +X*Y* 

INTR 

48 

0891 

1  (D  (I,  4) -D  (I,  3) -D  (I,  ?) +D  (I,  1)  ) 

INTR 

49 

0892 

37 

CONTINUE 

INTR 

50 

0893 

38 

CONTINUE 

INTR 

51 

0894 

RETURN 

INTR 

52 

0895 

c 

INTR 

53 

0896 

r 

INTERPOLATE  FROM  ACROSS  GRIDS 

INTR 

54 

089' 

r 

INTR 

55 

0898 

50 

CONTINUE 

INTR 

56 

0899 

IF  (IG(5) .NE.1133)  GO  TO  55 

INTR 

57 

0  900 

IG(5) -3 

INTR 

58 

0901 

GO  TO  30 

INTR 

59 

0902 

55 

CONTINUE 

INTR 

60 

0903 

IF  (IG (5) .NE.333)  GO  TO  60 

INTR 

61 

0904 

DLOd)  -  (DLO(2)  +DLO(3)  )  /2  . 

INTR 

62 

0905 

DO  52  I-l, 208 

INTR 

63 

0906 

52 

Dd,4)-D(I,3) 

INTR 

64 

0907 

DLA(4)-DLA(3) 

INTR 

65 

0908 

CLO(4)-DLO(3) 

INTR 

66 

0909 

60 

CONTINUE 

INTR 

67 

0910 

DO  62  I-l, 4 

INTR 

68 

0  911 

XLL(I)-DLA(I) 

INTR 

69 

0912 

YLL!I)-DLO(I) 

INTR 

70 

0913 

IF  ( (YL.GT. 350. ) .AND. (YLL(I) .LT. 0.01' )  yLL{I)-360. 

INTR 

71 

0914 

62 

CONTINUE 

INTR 

72 

0915 

ITH-0 

INTR 

73 

0916 

X-YLL(l) -YL 

INTR 

74 

0917 

Y-XL'XTL(l) 

INTR 

75 

0918 

63 

CONTINUE 

INTR 

76 

091  2 

DO  65  1-7,4 

INTR 

77 

n  Q2  n 

XC (I) -YLL(l) -YLL(I) 

INTR 

78 

0  921 

65 

YC{I)=XLLII) -XLL(l) 

IN"?, 

7  9 

??2  2 

TH2-3 .14159/4 

INTR 

80 

A  Q  2  J 

TH3  =  3 . 14159  d 

INTR. 

81 

"'92  4 

IF  (ABS (XC (2) ) .GT .0 .01)  TH2-ATAN ( YC ( 2 ) /XC ( 2 ' ) 

INTR 

82 

:-'2  5 

IF  (ABS (YC (3) ) .GT. 0.01)  TH3-ATAN ( XC ( 3 ) /YC ( 3 ) ( 

INTR 

83 

92  6 

IF  (XC (2) . LT . 0. >  TH2=3 . 14159+TH2 

INTR 

84 

-  72  ' 

IF  (  X-;- (  3  1  .  LT  .  0  .  ■  TH:’  =  /- .  14  15'7  +  TK3 

IN  IF 

9  A 

'■  o  2  t 

UNTI'a'-'  s  (TH2  7-T.H3  ! 

INTR 

86 

C  92  ? 

IF  (ABS  (DUN  1  .GT  .  9  . ':'01  ;  GO  T"  66 

IHTP 

8" 

A  A  ■ 

ITH-ITH*! 

INTR 

P  F 

A  o  A  2 

IF  IITH.EC.2i  G'  T'  61-' 

INTR 

R 

2  9  7  2 

XLL(3’~XLL(4' 

INTR 

OA 

/-  Q  T  7 

YLL ( 3 1  -YLL ( 4  1 

INTR 

91 

2  7  -<  4 

DO  61  1-1,208 

INTR 

92 

793? 

6 1 

D  (■  1 ,  3  )  -L  ( 1 ,  4  ) 

INTR 

97 
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0936 

GO  !>.  6? 

INTR 

94 

0  93  7 

66 

CONTINUE 

INTR 

95 

0938 

2A-SQRT (XC (2) **2+YC(2)**2) 

INTR 

96 

0939 

IF  (ITH.LT.2)  GO  TO  69 

INTR 

97 

0940 

Z-SQRT (X**2+Y**2) 

INTR 

98 

0941 

E-0  . 

INTR 

99 

0942 

Z4-0  . 

INTR 

100 

0943 

GO  TO  71 

INTR 

101 

0944 

6i' 

CO  ^TINUE 

INTR 

102 

0945 

EB-SJRT (XC (3) **2+YC (3) **2) 

INTR 

103 

j94  6 

Z4- (XC (4) *COS (TH3) -YC ( 4 ) *SIN (TH3) ) /DNN 

INTR 

104 

094 

E4- ( YC (4) *COS (TH2)  XC ( 4 ) *SIN (TH2) ) /DNN 

TNTR 

10  5 

0948 

Z-(X*COS(TH3) -Y*SIN(TH3) ) /DNN 

INTR 

106 

0  94  9 

E-(Y*''  JS(TH2)  -X*SIN(TH2)  )  /DNN 

INTR 

107 

0950 

B-0  . 

INTR 

108 

09^1 

C“C  . 

INTR 

109 

0  952 

OD-C  . 

INTR 

110 

0950 

c 

INTR 

111 

0954 

CONTINUE 

IN'^P. 

112 

0  95  5 

DC  70  L-1,26 

INTR 

113 

0  9  5  8 

DO  68  J-1 , 4 

INTR 

114 

0  95*’ 

68 

IF  (D(L,J) .LT.0.01)  GO  TO  70 

INTR 

115 

O'-SB 

DO  67  X-1 , 8 

INTR 

116 

0959 

I-(F-l)  *26  +  1, 

INTR 

117 

0  960 

A=D (1,1) 

INTR 

118 

0  9'‘1 

IF  (ZA.GT.0.01)  B- (D (I, 2' -D (I, 1) ' /ZA 

INTR 

119 

0962 

IF  (EE. GT. 0.01)  '--(Dd,  3) -D  (I,  1)  ) /EB 

INTR 

120 

096? 

IF  ( (ABS(Z4) .GT.0.01) .AND. (ABS(E4) .GT.0.01) ) 

INTR 

121 

0964 

1  DD- (D ( I, 4 ) -A-B*Z4-C*E4) / (Z4*E4) 

INTR 

122 

0965 

D (I, 5) -A+B*Z+C*E+DD*Z*E 

INTR 

123 

0966 

6" 

CONTINUE 

INTR 

124 

09"' 

70 

CONTINUE 

INTR 

125 

0968 

RETURN 

TNTR 

126 

0969 

END 

INTR 

127 

0970 

SUBROUTINE  DIAGEQ(N) 

DIAG 

1 

0971 

c 

A(I,J)-DIAG.  TERMS,  I-ROWNO.,  J-DIAG.  NO. 

DIAG 

2 

0972 

Q 

B  (I) -RIGHT  SI.UE  TERMS 

DIAG 

3 

097? 

c 

N-:.0.  OF  ROWS 

DIAG 

4 

0974 

r' 

R-NO.  OF  BORDER  DIAGONALS,  M-K+l-INDES  OF  PRIN.  DIAG 

DIAG 

5 

09’’5 

z 

2Kfi-TOTAL  NO.  OF  DIAGS. 

DIAG 

6 

0976 

n 

X (I) -SOLUTION 

DIAG 

7 

0977 

C0MM0N/ADJC0M/A(26, 3) ,  B(26),  X(26),  KOUNT 

DIAG 

8 

0978 

K  =  1 

DIAG 

9 

0  9"  9 

M-K  +  1 

DIAG 

10 

0990 

DO  30  L-1,N 

DIAG 

11 

7  01 

ALM-A(L,M) 

DIAG 

12 

98  2 

A (L,  M) -1 . 

DIAG 

13 

098? 

IF(L.EQ.N)  GO  TO  15 

DIAG 

14 

0984 

I2-MIN0 (K, N-L) 

DIAG 

15 

0  98  5 

DO  10  1=1 , 12 

DIAG 

16 

098^ 

MPI-M+I 

DIAG 

1~ 

‘00';’ 

10 

A'L  MP  I)  =A  (L,  MPI ) /ALM 

DIAG 

18 

OOfiP 

1  5 

B  (LI  -B  (L)  ,'ALM 

DIPG 

19 

(■'98  9 

iriL.EO.N)  GO'  TO  ’0 

DIAG 

2  0 

'■  9  0  :’■ 

D„  25  1=1,1: 

DIAG 

-  1 

n  0  0  j 

LF  T  =  L  *  i 

r  TAG 

2: 

9  9^ 

rA  'T  =  A  (  LF  :  .  M-I) 

n  AG 

2  " 

0  0 

r'  r  7-: ,  1; 

DIA 

24 

0^94 

r  I  AG 

**  c, 

9  7  V 

2  ■’ ' 

A  (  Lf  I  ,  .M  j  :  '  =A  (  LF  J  .  .M  JI  '  -  A  (  L  ,  .M,*  1  *  FACT 

i:iA2 

2 

■ 

2  5 

B  (  Lt  I  1  =B  '  LF  I  )  -  E  (  Ll  'FA'OT 

DIAG 

9  9" 

J  C' 

CONTINUE 

DIAG 

28 

"  ,•*  7  0 

X  (Ni  -B (Hi 

DIAG 

2 

.'.0  i-* 

tJMi-N-l 

DIAG 

3  0 
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1000 

DO  50  L-1,NM1 

DIAG 

31 

1001 

NML-N-L 

DIAG 

32 

1002 

SOM-0. 

DIAG 

33 

1003 

I2-MIN0 (K, L) 

DIAG 

34 

1004 

DO  40  1-1,12 

DIAG 

35 

1005 

40 

SDM-SOM+A(NML,M+I) *X(NML+I) 

DIAG 

3  6 

1006 

50 

X{NML) -B(NML) -SOM 

DIAG 

37 

1003 

RETORK 

DIAG 

38 

1009 

END 

DIAG 

39 

1009 

SOBROOTINE  SORT4(NP) 

SORT 

1 

1010 

c 

SORT 

2 

1011 

r 

SORTS  POINTS  FOR  SEQCENTIAL  TAPE  READING 

SORT 

3 

1012 

C 

SORT 

4 

1013 

C 

ASSIGNS  POINT  NOMBERS  BY  ORDER  ON  TAPE,  NOT  BY  GRID 

SORT 

5 

1014 

C 

SORT 

6 

1015 

CC»4MON  /ORDER/  IPT  ( 1 6 , 5)  ,  IREAD  ( 65 ,  3 ) 

SORT 

7 

1016 

0 

SORT 

8 

ICl’ 

DO  1  I-l, 65 

SORT 

9 

icie 

DO  1  J-1,3 

SOFT 

10 

1019 

1 

IREAD  (I,  J)  -0 

SORT 

11 

1070 

DO  9  I-1,NP 

SORT 

12 

1021 

IF (IPT (I, 5) . LT. 1)  GO  TO  10 

SORT 

13 

1022 

IF(IPT{I, 5) .EQ.l)  GO  TO  9 

SORT 

14 

1023 

IFdPTd,  5)  .EQ.2)  GO  TO  2 

SORT 

15 

1024 

IF ( IPT (I, 5) .EQ. 3)  GO  TO  4 

SORT 

1  6 

1025 

IFdPTd,  5)  .EQ.1133)GO  TO  6 

SORT 

17 

1026 

IFdPTd,  5)  .EQ.2211)  GO  TO  3 

SORT 

18 

1023 

IF (IPT d, 5) .EQ.2212)GO  TO  8 

SORT 

19 

1028 

IF  (IPTd,  5)  .EQ.333)  GO  TO  4 

SORT 

20 

1029 

GO  TO  10 

SORT 

21 

1030 

2 

DC  3  J-1, 4 

SORT 

22 

1031 

IFdPTd,  J)  .LT.l)  GO  TO  3 

SORT 

23 

1032 

IPT  d, J)-IPT (I,  J) +288 

SORT 

24 

103? 

3 

CONTINUE 

SORT 

25 

1034 

GO  TO  9 

SORT 

26 

1035 

4 

DO  5  J-1,  4 

SORT 

27 

1036 

IFdPTd,  J)  .LTd)  GO  TO  5 

SORT 

28 

1033 

IPT  d,  J) -IPT  (I,  J) +22  65 

SORT 

29 

1038 

5 

CONTINUE 

SORT 

30 

1039 

GO  TO  9 

SORT 

31 

104 '■ 

6 

IFdPTd,  1)  .GT.O)  IPTd,  1) -IPTd,  1)  +2265 

SORT 

32 

1041 

IF  (IPT  (1,2)  .GT.O)  IPTd,  2) -IPTd.  2)  +2265 

SORT 

33 

1042 

GO  TC  9 

SORT 

34 

104  3 

3 

IFdPTd,  3)  .GT.O)  IPT  (1,3) -IPTd,  3) +288 

SORT 

35 

1044 

IF  (IPT  d,  4)  -  GT.O)  IPTd  ,  4)  -IPT  (I,  4)  +288 

SORT 

36 

104  5 

GO  TO  9 

SORT 

37 

104  6 

8 

IF  (IPT  (I,  1)  .GT.O)  IPTd,  1)  -IPT  d,  1)  +288 

SORT 

38 

104" 

IF  (IPX  (I,  3)  .GT.O)  IPTd,  3)  -IPTd,  3)  +288 

SORT 

3  9 

1048 

IF (IPX (I, 4 )  .GT.O) IPT (I, 4) -IPT  d, 4) +2  88 

SORT 

40 

104  9 

9 

CONTINUE 

SORT 

41 

10  5'- 

SORT 

42 

1^51 

REORDERS  POINT  NUMBERS  FOP,  READ 

SORT 

43 

lO  5  2 

r- 

SORT 

44 

1  5 

1 

IF-'’ 

SORT 

45 

1 0  5  4 

DC  13  K-l.NI 

SOFT 

46 

1 '  5  5 

[■'  1?  L-:,4 

SOFT 

4  ' 

MP-IF+  ly,'.' 

SOFT 

48 

1  n  r 

IF  (MF.  LT.l'  G'  T5  1- 

SOFT 

49 

1^58 

1  1 

:  I-F 

SORT 

5” 

5'^PT 

f,  1 

1  5 

3  L 

1  6  - 

l\  12  l-l,tli 

SCPT 

f,  ■ 

1  0  6  1 

DC  12  J-1, 4 

SORT 

5-" 

ire  ; 

IF  dPT  d  ,  J)  .  LT  .  1  )  G'-'  TC  12 

SOFT 

5  4 

1  r.  e 

IF  dPT  d  ,  J)  .  GT.  34  90;  GO  TO  12 

SOFT 

55 
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1064 

IF(IPT(I, J) .GE.MP)  GO  TO  12 

SORT 

56 

1065 

II-I 

SORT 

57 

1066 

JJ-J 

SORT 

58 

1067 

MP-IPT  (I,  J) 

SORT 

59 

1068 

12 

CONTINUE 

SORT 

60 

1069 

IF(IPT(II, JJ) .GT.3490)  GO  TO  14 

SORT 

61 

1070 

IR-IR+1 

SORT 

62 

1071 

IRZADdR,  1)-II 

SORT 

63 

1072 

IREAD  (IR,  2)  -  JJ 

SORT 

64 

1073 

IREAD  (IR,  3)  -IPT  (II,  JJ) 

SORT 

65 

1074 

IPT  ( II ,  JJ)  -IPT  (II ,  JJ)  +9000 

SORT 

66 

1075 

MP-IPT  (K,  L) 

SORT 

67 

1076 

XF(MP. GT.3490)  GO  TO  13 

SORT 

68 

1077 

GO  TO  11 

SORT 

69 

1078 

13 

CONTINUE 

SORT 

70 

1079 

14 

RETURN 

SORT 

71 

1080 

END 

SORT 

72 

1081  !!T72- 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0  03  3 

Pi  0  4 

0  03  5 

on-jr 

00  3  8 
0  0  3  '* 

0041 

0^41 


c . Load  a  file  of  STROCTDRE  and  PARAMETER  definitiona  at  compile  time 

!!G  toolbox2 . f inc 

c . Load  the  ToolBox  traps 

! ! M  Inlines . f 


c - 

subroutine  GetStringWidth  (  ChrStr  ,  Ingth  ,  nch*r  ,  ividth  ,  ixchar  ) 

o - - - - - - - 

c  determine  the  width  fiwidthj  of  the  character  string  [ChrStrJ  and  the 

c  distance  each  character  is  offset  from  the  beginning  [ixchar] .  The 

c  character  string  is  also  left  justified. 


integer*2 
integer*2 
integer*! 
integer *2 
character  * { * ) 
character*! 


ixchar (») 

Ingth 

nchar 

iwidth 

ChrStr 

onechr 


c . determine  the  number  of  characters  in  the  string  and  left  justify  it 


nchar  -  NumChr  (  ChrStr  ,  Ingth  ) 

c . determine  the  width  of  the  string  and  the  individual  position  of  each 

c  character 

if  (  nchar. gt.O  )  then 
iwidth  “  0 
do  i  =  1  ,  nchar 

ixchar  (i)  ■=  iwidth 

onechr  =  chrstr(i:i) 

iwidth  —  iwidth  +  CharWidth  <  'val (onechr)  ' 
en  3  dc 

else  if  (  nchar. eq.O  )  then 
iwidth  “  0 
end  if 

return 

end 
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0001  c . Load  a  file  of  STROCTORE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !!G  toolbox! . fine 

0004 

0005  c . lioad  the  ToolBox  traps 

0006 

0007  ! !M  Inlines  .  f 

0008 

0009  c . Put  the  following  code  in  the  Initialize  segment 

0010 

0011  !!S  Initialize 

0012  - - 

0013  subroutine  initialize 

0014  - - 

0015 

0016  !!SETC  DSINGINCLDDES  -  FALSE 

0017  implicit  none 

0018 

0019  c . common  block  definition  files 

0020 

0021  include  ' AppleMenu . inc ' 

0022  include  ' FileMenu . inc ' 

0023  include  ' EditMenu . inc ' 

0024  include  ' MapMenu . inc ' 

0025  include  'MBar.inc' 

0026  include  ’ Globals . inc ' 

0027 

0028  integor*2  kSysEnvironsVersion  /!/ 

0029  integer*!  os_err 

0030 

0031  c . declare  TrapAvailable  routine  as  a  logical  function  (I  wrote  it) 

0032 

0033  logical  TrapAvailable 

0034 

0035  c . set  up  a  1-byte  integer  for  a  2-item  enumerated  type; 

0036  c . a  value  of  "1"  means  the  second  of  the  two  enumerations 

0037 

0038  integer*!  ToolTrap  /!/ 

0039 

0040  - - 

0041 

0042  gTnRsckground  *  .false. 

0013 

0044  c . call  LSC  FORTRAN  routine  to  initialize  their  data  structures 

0045 

0046  call  InitFORTRAN 

0047 

0048  os_err  >•  SysEnvirons  (  %ref  (kSysEnvironsVersion)  ,  %val  (gMac)  ) 

0049  if (  gMac .machineXype  <  0  )  call  AlortOser  !  RLH  must  provide  this  subroutine 

0050 

0051  c . see  if  WaitNoxtEvent  is  available 

00  52 

0053  gHasWaitNextEvent  -  TrapAvailable  (  TWaitNextEvont ,  ToolTrap  ) 

0  O'  5  4 

C'055  c . set  up  a  handle  value  in  the  menuHandle  record 

005’’  MenuBar  . menuH  ^  GetNewMBar  (  'val  (MenuPar^T)  ) 

005?  call  SetMenuBar  (  tval (MenuBar .menuH )  ! 

005?  call  DispcsHandle  (  »val  (MenuBar  .men-jH I  i 

r-'-.t.''- 

0061  c . set  up  the  menu  handles  for  the  menus 

0  0  62 

0063  AppleMenuHndl . menuH  -  GetMHandle  (  *val ( AppleMenuID)  ) 

Of064  FileMenuHndl  .  menuH  =  GetMHandle  (  %val  (FileMenuID)  ) 
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0065  EditMenuElndl . menus  —  GetMHandle  (  %val  (EditMenuID)  ) 

0066  MapMenuHndl .menus  -  GetMSandle  (  %val (MapMenuID)  ) 

0067 

0068  c . add  desk  accessories  io  t.he  Apple  Menu 

0069 

0070  call  AddResMenu  (  %val {  AppleMenuBndl  ),  %val (  'DRVR'  )  ) 

0071 

0072  c . draw  the  menu  bar 

0073 

0074  call  DrawMenuBar 

0075 

0076  return 

0077  end 

0001  ! ! s  LngDat 

0002  c - 

Segment  LngDat 

0003  block  data  LngDat 

0004  c - 

0005  c  array  of  longitude  values 

0006 

0007  include  'LngCom.inc' 

0008 

0009  data  (Longitude ( i) , i-  1,  80)/ 

OOlj  .-128.138,-128.654,-128.769,-129.544,-130.079, -130.481,-130.130,-129.754, 

0011  .-130.129,-130.006, -141 . 010 , -139 . 591 , -138 . 504 , -137 . 337 , -135 . 975 , -134 . 596 , 

0012  .-134.116,-132.957,-132.889, -132.890, -131.579, -130.247,-130.839, -132.135, 

0013  .-132.882,-131.805, -130.525, -129.357, -128.856, -128.856, -127.615, -126.750, 

0014  .-125.934,-125.206, -124.425,-123.125,-122.745, -122.186,-122.578,-122.752, 

0015  .-122.854,-123.628,-123.533,-123.534,-123.847,-124.271,-124.618,-124.860, 

0016  .-125.573, -125.515, -126.161, -126.177, -126.178, -126.972, -127.691, -127 .495, 

0017  .-126. 688, -127.497, -127.389, -126.984, -127 . 611, -128 . 185, -128 . 139, -130 . 005, 

0018  .-130.055,-130.327,-130.872,-131.023,-131.916, -131.976,-132.410,-133.169, 

0019  .-133.453,-133.760, -133.769, -133.769, -134.687,-135.131,-135.364,-135.274/ 

0020  data  (Longitude (i) , i=  81,  160)/ 

0021  .-135.049, -135.889, -136.489, -136.081,-137.018, -137.769, -138.427, -139.235, 

0022  .-139.852,-139.852, -139.055,-140.043,-141.043,-141.943, -142.946,-143.933, 

0023  .-144.756,-145.703,-146.633,-147.432,-147.726,-147.726,-148.301,-148.125, 

0024  . -148 . 626, -149. 609, -150.297,-151.232,-151.830, -151 .467, -151.400, -150.578, 

0025  .-149.550, -149.467, -150.439, -151.355, -151.743, -151.743,-152.315, -152.628, 

0026  .-153.311,-154.122,-153.475,-153.917,-154.326, -155.163,-155.734,-155.737, 

0027  .-156.553,-157.044,-157.864,-158.559,-159.005,-159.684,-160.565,-161.410, 

0028  .-162.187,-163.065,-163.329,-163.329,-162.545,-162.069,-161.261,-160.444, 

0029  .-160.334, -159. 623, -158.869, -158.325, -157.459, -157.623, -157.495, -156.981, 

0030  . -156. 779, -156.779, -157 .462,-158.434,-159.397,-160.300, -161.231,-162.148/ 

0031  data  ( Longitude ( i) , i“  161,  240)/ 

0032  . -161 . 633, -161.786, -162.208,-162.225,-162.483, -163.378,-164.273,-164.647, 

0033  . -164. 648, -164.940, -163.909, -164.879, -165.061,-166.114,-165.731,-165.289, 

0034  .-164.845,-164.122,-163.112,-162.801,-162.803,-161.810,-160.839,-160.945, 

0035  .-160.787,-161.972,-162.768,-163.788,-164.944,-166.109, -166.705,-167.424, 

0036  . -167 . 846, -167 .846, -166.785, -165.582, -164,761, -163.887, -162.678, -161.538, 

OOO”  , -162 . 189, -161 . 054, -161 . 802,-163.039, -163.883,-164. 690, -164.764,-164.756, 

0038  .-165.867,-166.235, -165.072,-163.767, -163,067, -162.515,-161.291,-160.172, 

003?  .-159. 070, -159. 770, -159. 934, -158. 446, -157. 184, -155. 644, -154. 586, -153. 069, 

004':  .-152. 216, -152. 216, -151. 316, -149. 838. -148. 441, -147. 024,  -145. 578,  -144. 0  98, 

0041  .-142.628,-141.494,-141.010,  -67.240,  -66.401,  -65.335,  -64.039,  -64.687, 

0'"'42  data  ( Longit  ude  ( i )  ,  i=  241,  320),' 

0043  .  -63.403,  -63.822,  -63.816,  -62.57?.  -61.419,  -61.887,  -63.062,  -62.595, 

0044  .  -63.500,  -63.499,  -63.302,  -63.511,  -64,404,  -65.307,  -64.798,  -65,490, 

0045  .  -65.480,  -66.731,  -67.936,  -67.282,  -62.447,  -66.070,  -67.128,  -66.736, 

0046  .  -66.698,  -66.698,  -65.715,  -65.070,  -64.507,  -65.079,  -65.269,  -65.269, 

0040  _  .66.379,  -67.242,  -67.858,  -68.992,  -68.993,  -68.995,  -68.359,  -67.511, 

0048  .  -66.733,  -66.149,  -67.116,  -68.123,  -69.121,  -69.795,  -70.873,  -70.829, 
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0049 

.  -70 

832, 

-71 

.775, 

-72 

195, 

-73 

.081, 

-73 

609, 

-74 

622, 

-74 

648, 

-74 

649, 

0050 

.  -74 

673, 

-75 

.747, 

-76 

648, 

-77 

.785, 

-78 

.066, 

-77 

.462, 

-76 

.264, 

-75 

.602, 

0051 

.  -75 

090, 

-74 

.716, 

-74 

711, 

-73 

.501, 

-74 

.079, 

-73 

.872, 

-72 

.898, 

-71 

671, 

0052 

.  -71 

184, 

-69 

.961, 

-69 

227, 

-69 

.227, 

-70 

.422, 

-71 

.664, 

-72 

.915, 

-72 

.275/ 

0053 

data 

(Longitude (i) 

,  i“ 

321, 

400)  / 

0054 

.  -72 

621, 

-72 

.941, 

-78 

501, 

-77 

.770, 

-77 

.158, 

-76 

.658, 

-76 

.523, 

-76 

.549, 

0055 

.  -76 

760, 

-77 

.145, 

-77 

863, 

-78 

.076, 

-78 

.074, 

-78 

.541, 

-77 

.884, 

-77 

.541, 

0056 

.  -77 

514, 

-77 

.641, 

-77 

885, 

-77 

.885, 

-77 

.743, 

-78 

033, 

-78 

.124, 

-77 

.162, 

0057 

.  -76 

143, 

-75 

.093, 

-74 

023, 

-73 

.017, 

-72 

.795, 

-72 

.798, 

-71 

.78" 

-71 

.557, 

0058 

.  -70 

580, 

-69 

.542. 

-69 

654, 

-69 

.622, 

-70 

«12, 

-71 

032, 

-71 

031, 

-70 

.050, 

0059 

.  -69 

700, 

-69 

.483, 

-68 

538, 

-68 

.225, 

-68 

.794, 

-69 

369, 

-69 

.369, 

-68 

.536, 

0060 

.  -68 

178, 

-67 

.678, 

-67 

035, 

-66 

.460, 

-66 

.091, 

-66 

.023, 

-65 

.567, 

-65 

.491, 

0061 

.  -65 

488, 

-64 

.897, 

-64 

156, 

-63 

.871, 

-63 

.125, 

-62 

989, 

-62 

.990, 

-63 

.393, 

0062 

.  -62 

574, 

-61 

.991, 

-61 

894, 

-61 

.346, 

-61 

.346, 

-62 

138, 

-61 

.601, 

-61 

.145, 

0063 

.  -60 

393, 

-60 

.531, 

-59 

777, 

-59 

.775, 

-59 

827, 

-59 

260, 

-58 

756, 

-57 

.896/ 

0064 

data 

(Longitude (i) 

,  i” 

401, 

480)  / 

0065 

.  -58 

250, 

-59 

.056, 

-59 

769, 

-60 

.598, 

-60 

.151, 

-59 

.458, 

-59 

.024, 

-59 

.024, 

0066 

.  -58 

372, 

-57 

551, 

-57 

127, 

-56 

.307, 

-55 

746, 

-56 

004, 

-55 

793, 

-56 

142, 

0067 

.  -56 

764, 

-122 

.747, 

-121 

322, 

-120 

.264, 

-lie 

.907, 

-117 

742, 

-116 

365, 

-114 

.978, 

0068 

.-114 

076, 

-115 

143, 

-115 

114, 

-115 

.114, 

-113 

816, 

-112 

497, 

-111 

222, 

-109 

.890, 

0069 

.-108 

92  7, 

-107 

.943, 

-107 

938, 

-107 

.200, 

-107 

735, 

-107 

891, 

-106 

757, 

-106 

.756, 

0070 

.-105 

722, 

-107 

.051, 

-108 

290, 

-108 

.156, 

-106 

.855, 

-105 

487, 

-105 

040, 

-103 

.857, 

0071 

.-102 

656, 

-101 

.346, 

-100 

588, 

-100 

.588, 

-99 

277, 

-97 

957, 

-98 

424, 

-97 

283, 

0072 

.  -96 

747, 

-96 

.436, 

-95 

490, 

-95 

.803, 

-95 

327, 

-95 

558, 

-95 

443, 

-88 

365, 

0073 

.  -87 

846, 

-86 

.635, 

-86 

317, 

-85 

.843, 

-85 

.198, 

-85 

432, 

-85 

511, 

-85 

584, 

0074 

.  -85 

586, 

-84 

.126, 

-82 

727, 

-82 

.068, 

-81 

310, 

-82 

254, 

-82 

125, 

-81 

349/ 

0075 

data 

(Longitude (i) 

,  i= 

481, 

560)/ 

0076 

.  -81 

495, 

-82 

.154, 

-82 

170, 

-83 

.201, 

-83 

886, 

-85 

155, 

-84 

177, 

-85 

140, 

0077 

.  -86 

269, 

-85 

980, 

-86 

710, 

-87 

.682, 

-88 

704, 

-88 

412, 

-88 

412, 

-89 

516, 

0078 

.  -90 

747, 

-89 

.653, 

-88 

833, 

-87 

.638, 

-87 

299, 

-87 

866, 

-88 

649, 

-89 

786, 

0079 

.  -90 

124, 

-90 

124, 

-90 

156, 

-91 

.283, 

-92 

389, 

-93 

413, 

-92 

424, 

-91 

424, 

0080 

.  -90 

677, 

-91 

411, 

-92 

356, 

-92 

.479, 

-68 

183, 

-68 

827, 

-69 

286, 

-69 

977, 

0081 

.  -70 

711, 

-69 

996, 

-69 

981, 

-70 

505, 

-70 

979, 

-71 

299, 

-71 

299, 

-70 

650, 

0082 

.  -70 

129, 

-69 

675, 

-69 

193, 

-68 

604, 

-67 

955, 

-67 

709, 

-84 

100, 

-83 

224, 

0083 

.  -82 

378, 

-82 

318, 

-82 

253, 

-82 

205, 

-82 

296, 

-81 

986, 

-81 

989, 

-81 

542, 

0084 

.  -80 

973, 

-80 

530, 

-80 

887, 

-80 

141, 

-79 

543, 

-79 

333, 

-79 

332, 

-79 

740, 

0085 

.  -79 

411, 

-78 

944, 

-78 

961, 

-78 

570, 

-78 

725, 

-78 

936, 

-78 

919, 

-78 

920/ 

0086 

data 

(Longitude (i) 

,  i- 

561, 

640)/ 

0087 

.  -79 

062, 

-79 

346, 

-79 

761, 

-78 

957, 

-78 

500, 

-56 

7  64, 

-57 

552, 

-58 

306, 

0088 

.  -58 

997, 

-59 

463, 

-60 

005, 

-60 

783, 

-61 

563, 

-61 

590, 

-61 

589, 

-62 

359, 

0089 

.  -6? 

148, 

-63 

935, 

-64 

719, 

-65 

501, 

-66 

276, 

-66 

959, 

-67 

229, 

-67 

924, 

0090 

.  -68 

183, 

-67 

709, 

004, 

-66 

299, 

-65 

537, 

-64 

781, 

-64 

212, 

-64 

539, 

0091 

.  -65 

126, 

-65 

866, 

-66 

596, 

-66 

848, 

-66 

849, 

-66 

099, 

-65 

476, 

-64 

739, 

0092 

.  -64 

979, 

-64 

875, 

-64 

579, 

-63 

895, 

-63 

772, 

-63 

772, 

-63 

304, 

-62 

591, 

0093 

.  -61 

931, 

-61 

364, 

-61 

650, 

-61 

882, 

-61 

884, 

-62 

542, 

-63 

200, 

-63 

859, 

0094 

.  -64 

436, 

-64 

884  , 

-65 

408, 

-65 

757, 

-65 

756, 

-66. 

161, 

-66 

009, 

-65 

454, 

0095 

.  -64 

934, 

-64 

221, 

-63 

567, 

-64 

273, 

-64 

536, 

-64 

574, 

-92 

470, 

-93 

408, 

0096 

.  -93 

950, 

-94 

166, 

-94 

556, 

-94 

764, 

-94 

788, 

-94 

803, 

-94 

291, 

-93 

357/ 

0097 

data 

( Longitude ( i ) 

,  i“ 

641, 

720)/ 

0098 

.  -93 

166, 

-93 

158, 

-92 

955, 

-92 

696, 

-92 

426, 

-91 

530, 

-90 

609, 

-89 

813, 

0099 

.  -88 

927, 

-88 

247, 

-87. 

664, 

-86 

865, 

-86. 

047, 

-85. 

338, 

-84. 

4  92, 

-84 

098, 

01  on 

.  -64 

574, 

-65 

112, 

-65 

725, 

-66 

402, 

-67 

112, 

-67 

221 , 

-67 

877, 

-68 

053, 

0101 

.  -68 

053, 

-68 

754, 

-69 

191, 

-69 

807, 

-70 

362, 

-70 

730, 

-70 

881, 

-70 

623, 

0102 

.  -70 

064, 

-69 

936, 

-69 

941, 

-70 

505, 

-71 

164  , 

-71. 

803, 

-72. 

467, 

-73. 

117, 

0103 

719, 

-74 

208, 

-74 

258, 

-74 

248, 

-74 

01?, 

-74 

299, 

-74 

66?, 

-"5  . 

29?, 

0104 

.  -75 

413, 

-75 

420, 

-75. 

191  . 

-75 

041. 

_  *7  C 

n41. 

-75. 

371  , 

-'5 . 

602  . 

_  ^ 

950 , 

0105 

.  -75 

876, 

-75 

820, 

-76 

303, 

-76 

214  . 

-75 

841 , 

-76  . 

481  , 

-7  6  , 

507  , 

-'6  . 

4  53, 

0 1 0  6 

.  -77 

07  6, 

-77 

251, 

-77 

246, 

-76 

653, 

-■76 

310, 

-7  6 

849, 

-7  6 

42?, 

-76. 

28?  , 

OlO" 

.  -76 

896, 

-76 

509, 

-75 

914  , 

-75 

851, 

-75 

851, 

-75. 

674  , 

-75  . 

882, 

-■^6. 

195 

0 10  8 

dat  a 

( Lon 

gitud© ( i ) 

,  i  = 

721, 

800  J  . 

010? 

.  -76 

138, 

-76 

139, 

-76 

635, 

-76 

75  9, 

-77  ^ 

247, 

-77  . 

437, 

-77. 

434, 

-  7  . 

'32  , 

0110 

.  -78 

062  , 

-78 

663, 

-79 

093, 

-79 

340, 

-79. 

342, 

-79. 

757, 

-80. 

261, 

-80 

856, 

0111 

.  -80 

897, 

-81 

154, 

-81 

4  90, 

-81 

489, 

-81 

4  93, 

-81 

392, 

-81 

279, 

-81 . 

082, 

0112 

.  -80 

836, 

-80 

549, 

-80 

524, 

-80 

448, 

-80. 

447, 

-80. 

621, 

-80. 

487, 

-80. 

291, 
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0113 

.  -80.072, 

-80.060, 

-8C.120, 

-80.343, 

-80.398, 

-80.399, 

-80.955, 

-81.229, 

0114 

.  -81.621, 

-81.845, 

-81.777, 

-81.778, 

-82.242, 

-82.579, 

-82.408, 

-82.713, 

0115 

.  -82.679, 

-83.045, 

-83.153, 

-83.154, 

-83.494, 

-83.923, 

-84.483, 

-85.014, 

0116 

.  -85.504, 

-85.978, 

-86.453, 

-86.453, 

-87.019, 

-87.598, 

-88.007, 

-88.417, 

0117 

.  -88.997, 

-89.528, 

-90.070, 

-90.304, 

-90.304, 

-89.756, 

-89.512, 

-89.149, 

0118 

.  -89.410, 

-89.410, 

-89.778, 

-90.354, 

-90.899, 

-91.338, 

-91.338, 

-91.664/ 

0119 

data  (Longitude (i) 

,i-  801, 

880)/ 

0120 

.  -92.205, 

-92.778, 

-93.333, 

-93.885, 

-93.886, 

-94.414, 

-94.964, 

-95.054, 

0121 

.  -95.457, 

-95.956, 

-96.526, 

-96.800, 

-96.800, 

-97.183, 

-97.292, 

-97.723, 

0122 

.  -97.539, 

-97.373, 

-97.166, 

-97.165, 

-97.137, 

-117.122, 

-117.281, 

-117.282, 

0123 

.-117.613, 

-118.083, 

-118.554, 

-119.154, 

-119.646, 

-120.253, 

-120.447, 

-120.447, 

0124 

.-120.654, 

-120.844, 

-121.294, 

-121.644, 

-121.941, 

-121.745, 

-121.745, 

-122.221, 

0125 

.-122.488, 

-122.349, 

-121.711, 

-122.331, 

-122.949, 

-123.035, 

-123.034, 

-123.424, 

0126 

.-123.707, 

-123.764, 

-124.073, 

-124.339, 

-124.096, 

-124.069, 

-124.243, 

-124.242, 

0127 

.-124.404, 

-124.501, 

-124.371, 

-124.125, 

-124.097, 

-124.042, 

-123.997, 

-123.995, 

0128 

.-123.945, 

-123.952, 

-123.307, 

-123.992, 

-123.752, 

-123.751, 

-124.159, 

-124.348, 

0129 

.-124.672, 

-124.712, 

-124.713, 

-124.025, 

-123.279, 

-122.612, 

-123.056, 

-122.565/ 

0130 

data  (Longitude (i ) 

,i-  881, 

960)/ 

0131 

.-122.528, 

-122.330, 

-122.186, 

-128.535, 

-128.535, 

-128.881, 

-128.540, 

-129.071, 

0132 

.-128.881, 

-128.824, 

-128.824, 

-129.231, 

-129.231, 

-130.176, 

-129.592, 

-130.286, 

0133 

.-130.176, 

-130.391, 

-129.778, 

-130.498, 

-130.391, 

-130.272, 

-130.272, 

-130.336, 

0134 

.-130.336, 

-130.165, 

-130.165, 

-131.783, 

-131.828, 

-131.260, 

-131.943, 

-132.496, 

0135 

.-131.783, 

-131.663, 

-131.916, 

-132.166, 

-132.842, 

-133.115, 

-132.309, 

-132.600, 

0136 

.-132.044, 

-131.663, 

-139.313, 

-139,313, 

-135.936, 

-135.012, 

-134.671, 

-135.936, 

0137 

.-127.470, 

-128.242, 

-127.553, 

-127.907, 

-127.121, 

-126.603, 

-126.068, 

-125.621, 

0138 

.-124.869, 

-124 . 809, 

-124.808, 

-125.180, 

-124.532, 

-123.831, 

-123.583, 

-124.023, 

0139 

.-124.717, 

-125.127, 

-125.494, 

-126.256, 

-127.024, 

-127.477, 

-123.100, 

-123.100, 

0140 

.-122.896, 

-122.896, 

-123.577, 

-123.577, 

-123.675, 

-123.675, 

-124.609, 

-124.609/ 

0141 

data  ( Longitude (i) 

,i-  961, 

1040)/ 

0142 

.-124.983, 

-124.983, 

-125.245, 

-125.245, 

-125.273, 

-125.273, 

-126.252, 

-126.252, 

0143 

.-126.127, 

-126.127, 

-127.998, 

-127.998, 

-127.953, 

-127.953, 

-127.240, 

-127.699, 

0144 

.-127.271, 

-127.240, 

-127.962, 

-127.962, 

-128.148, 

-128.148, 

-128.373, 

-128.373, 

0145 

. -126.768, 

-126.768, 

-64.383, 

-64.383, 

-65.068, 

-65.068, 

-64.660, 

-64.660, 

0146 

.  -70.588, 

-70.588, 

-73.412, 

-74.746, 

-73.412, 

-73.412, 

-75.010, 

-75.037, 

0147 

.  -75.879, 

-77.147, 

-77.204, 

-76.469, 

-75.130, 

-75.010, 

-77.625, 

-77.625, 

0148 

.  -76.571, 

-76.571, 

-77.501, 

-78.564, 

-77.496, 

-77.501, 

-82.186, 

-82.411, 

0149 

.  -83.360, 

-83.559, 

-82.541, 

-82.186, 

-79.541, 

-79.454, 

-80.027, 

-79.541, 

0150 

.  -78.661, 

-78.661, 

-79.127, 

-79.107, 

-79.973, 

-79.505, 

-79.127, 

-79.556, 

0151 

.  -79.556, 

-78.227, 

-78.227, 

-74.481, 

-74.481, 

-67.949, 

-67.949, 

-64 . 640/ 

0152 

data  (Longitude (i) 

, i-  1041, 

1120)/ 

0153 

.  -64.640, 

-61.355, 

-61.355, 

-57.941, 

-57.941, 

-119.734, 

-118.123, 

-116.623, 

0154 

.-115.491, 

-116.614, 

-117. 938, 

-119.186, 

-120.169, 

-120.395, 

-121.793, 

-122.892, 

0155 

.-123.701, 

-124,877, 

-125.516, 

-125.245, 

-125.264, 

-124.479, 

-124.396, 

-124.245, 

0156 

.-123.695, 

-121.849, 

-120.231, 

-119.745, 

-114.599, 

-113.321, 

-111.676, 

-111.677, 

0157 

.-110.085, 

-110.681, 

-109.112, 

-108.571, 

-108.232, 

-107.809, 

-107.806, 

-107.660, 

0158 

.-107.961, 

-108.274, 

-106.582, 

-105.446, 

-105.140, 

-104.801, 

-104.305, 

-104.414, 

0159 

.-104.414, 

-103.523, 

-102.218, 

-100.989, 

-102.293, 

-103.136, 

-101.857, 

-102.734, 

0160 

.-104.123, 

-104.266. 

-104.265, 

-105.546, 

-106.571, 

-107.257, 

-108.551, 

-109.743, 

0161 

.-110.009, 

-110.013, 

-111.379, 

-112.714, 

-113.618, 

-114.329, 

-115.757, 

-116.897, 

0162 

.-117.433, 

-117.431, 

-116.085, 

-114.617, 

-113.136, 

-111.645, 

-112.908, 

-114.378/ 

0163 

data  (Longitude 

i-  1121, 

1200)/ 

0164 

.-115.871, 

-117.3 

118.415, 

-117.046, 

-116.816, 

-116.816, 

-115.364, 

-116.949, 

0165 

.-118.412, 

-118.70? 

■118.224, 

-116.993, 

-115.516, 

-114.048. 

-114.605, 

-83.015, 

0166 

.  -82.042, 

-81.592, 

-80.532, 

-80.936, 

-82.012, 

-82.904, 

-83.872, 

-84.572, 

0167 

,  -85.609, 

-85.710, 

-85.711, 

-86 . 769, 

-86.384, 

-86.380, 

-86. IQ?, 

-86.080, 

0168 

.  -85.014, 

-83 .888, 

-83 . 022, 

-111.529, 

-111.52?. 

-110.728, 

-110.728, 

-110.817, 

016? 

, -110 .817 , 

-109 . 883 , 

-109.883, 

-109.577, 

-109.577. 

-109.447, 

-109.447, 

-108 . ?51 , 

ni70 

. -108 . 951, 

-107 . 983, 

-107 . 983, 

-107.883, 

-107.883, 

-107 . 582 , 

-107.532, 

-104.682, 

0171 

.-104.682, 

-101 . 694 , 

-101 . 694 , 

-100.086, 

-100 . 086, 

-100.324, 

-100.324, 

-100.096, 

0172 

.-100.096. 

-101.520, 

-101 . 520, 

-101 . 053, 

-101.053. 

-100.461, 

-100.461, 

-104 .490, 

017  3 

. -104 . 975, 

-106.343, 

-105.284, 

-10-.  .  490, 

-107 . 645, 

-107.645, 

-97 .875, 

-96 . 917 

0174 

data  ( Longitude ( i ) 

, i-  1201 , 

1280) / 

0175 

.  -96.234, 

-96.079, 

-97.447, 

-98.634, 

-98.500, 

-98.221, 

-97 . 875, 

-96.136, 

0176 

.  -96.136, 

-95 . 489, 

-95 .489, 

-86.435, 

-86.435, 

-83.577, 

-83.577, 

-82 . 936, 
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0177 

.  -82 

.936, 

-83 

.348, 

-83 

.348, 

-83 

.921, 

-83 

.921, 

-84 

.910, 

-84 

.910, 

-90 

.620, 

0178 

.  -90 

.620, 

-90 

.720, 

-90 

.720, 

-55 

.617, 

-55 

.975, 

-56 

.100, 

-56 

.504, 

-56 

.840, 

0179 

.  -56 

.238, 

-55 

.492, 

-55 

.491, 

-56 

.070, 

-55 

.348, 

-54 

.574, 

-53 

.817, 

-53 

.457, 

0180 

.  -53 

.456, 

-53 

.978, 

-54 

.134, 

-53 

.438, 

-53 

.  941, 

-53 

.830, 

-53 

.227, 

-52 

.917, 

0181 

.  -52 

.920, 

-S3 

.177, 

-52 

.808, 

-52 

.965, 

-53 

.637, 

-53 

.920, 

-54 

.250, 

-54 

.487, 

0182 

.  -55 

.129, 

-55 

.386, 

-55 

.385, 

-55 

.269, 

-55 

.988, 

-56 

.721, 

-57 

.468, 

-58 

.209, 

0183 

.  -58 

.429, 

-58 

.431, 

-59 

.170, 

-59 

.139, 

-58 

.  604, 

-58 

.520, 

-57 

.859, 

-57 

.  997, 

0184 

.  -57 

.996, 

-57 

.713, 

-57 

.438, 

-56 

.978, 

-56 

.636, 

-55 

.937, 

-55 

.615, 

-81 

.088/ 

0185 

data 

(longitude (i) 

,  i- 

1281, 

1360)/ 

0186 

.  -80 

.671, 

-81 

.479, 

-81 

.088, 

-79 

.297, 

-79 

.297, 

-63 

.492, 

-62 

.766, 

-62 

.115, 

0187 

.  -62 

..02, 

-63 

.511, 

-64 

.077, 

-63 

.492, 

-55 

.467, 

-55 

.467, 

-54 

.530, 

-54 

.530, 

0188 

.  -54 

.081, 

-54 

.081, 

-53 

.564, 

-53 

.564, 

-54 

.125, 

-54 

.125, 

-56 

.289, 

-56 

.289, 

0189 

.  -60 

.309, 

-60 

.509, 

-60 

.  980, 

-60 

.322, 

-60 

.229, 

-60 

.939, 

-61 

.517, 

-61 

.181, 

0190 

.  -60 

.834, 

-60 

.309, 

-61 

.408, 

-61 

.951, 

-61 

.408, 

-63 

.985, 

-63 

.865, 

-63 

.156, 

0191 

.  -62 

432, 

-62 

510, 

-63 

.138, 

-63 

.833, 

-64 

.413, 

-63 

.985, 

-64 

.483, 

-64 

.483, 

0192 

.  -60 

095, 

-60 

095, 

-133 

.102, 

-132 

.733, 

-133 

.197, 

-133 

.102, 

-133 

.586, 

-132 

900, 

0193 

.-132 

346, 

-131 

969, 

-132 

.117, 

-132 

.557, 

-133 

.124, 

-133 

.245, 

-133 

.586, 

-133 

.297, 

0194 

.-’33 

297, 

-133 

286, 

-133 

.286, 

-131 

.238, 

-131 

.238, 

-131 

.467, 

-131 

.467, 

-131 

.819, 

0195 

.-131 

819, 

-131 

.232, 

-130 

.982, 

-131 

.663, 

-131 

.232, 

-132 

.390, 

-132 

.390, 

-132 

.336/ 

0196 

data 

(Longitude (i) 

,  i“ 

1361, 

1440)/ 

0197 

.-132 

336, 

-132 

703, 

-132 

.703, 

-132 

.802, 

-132 

.802, 

-133 

.052, 

-133 

.126, 

-133 

.793, 

0198 

.-133 

052, 

-134 

.087, 

-133 

.875, 

-134 

.406, 

-134 

.087, 

-135 

.105, 

-134 

.734, 

-134 

.622, 

0199 

.-135 

319, 

-135 

571, 

-135 

.105, 

-135 

700, 

-135 

700, 

-135 

738, 

-134 

912, 

-135 

862, 

0200 

.-135 

033, 

-135 

668, 

-136 

.228, 

-135 

.857, 

-135 

.738, 

-136 

454, 

-136 

454, 

-134 

872, 

0201 

.-134 

132, 

-133 

792, 

-134 

.232, 

-133 

.930, 

-134 

376, 

-134 

645, 

-134 

754, 

-134 

872, 

0202 

.-145 

781, 

-145 

781, 

-146 

.097, 

-146 

.097, 

-146 

938, 

-147 

477, 

-147 

199, 

-146 

938, 

0203 

.-152 

342, 

-152 

342, 

-152 

.091, 

-152 

766, 

-152 

140, 

-152 

091, 

-153 

261, 

-152 

379, 

0204 

.-153 

026, 

-153 

608, 

-154 

.521, 

-154 

653, 

-153 

778, 

-153 

915, 

-153 

261, 

-152 

895, 

0205 

.-152 

895, 

-153 

876, 

-153 

876, 

-153 

457, 

-153 

457, 

-154 

083, 

-154 

083, 

-154 

421, 

0206 

.-154 

421, 

-155 

557, 

-155 

.557, 

-159 

872, 

-159 

872, 

-159 

516, 

-159 

516, 

-160 

696/ 

0207 

data 

(Longitude (i) 

,i-  1441, 

1520)/ 

0208 

.-160 

696, 

-162 

233, 

-162 

.233, 

-162 

754, 

-162 

754, 

-163 

493, 

-164 

085, 

-164 

908, 

0209 

.-164 

494, 

-163 

644, 

-163 

.493, 

-160 

710, 

-160 

710, 

-74 

250, 

-74 

250, 

-75 

321, 

0210 

.  -75 

321, 

-75 

314, 

-75 

.482, 

-75 

693, 

-75 

714, 

-75 

7  98, 

-75 

798, 

-76 

053, 

0211 

.  -76 

053, 

-76 

225, 

-76 

.225, 

-76 

703, 

-76 

703, 

-77 

359, 

-77 

359, 

-77 

949, 

0212 

.  -77 

949, 

-80 

432, 

-80 

.244, 

-80 

444, 

-80 

432, 

-80 

187, 

-80 

187, 

-80 

2  68, 

0213 

.  -80 

268, 

-80 

699, 

-80 

699, 

-80 

789, 

-80 

789, 

-80 

940, 

-80 

940, 

-81 

052, 

0214 

.  -81 

052, 

-81 

413, 

-81 

413, 

-81 

492, 

-81 

492, 

-81 

547, 

-81 

547, 

-81 

654, 

0215 

.  -81 

654, 

-81 

757, 

-81 

.757, 

-82 

184, 

-82 

184, 

-84 

709, 

-84 

709, 

-86 

559, 

0216 

.  -87 

135, 

-86 

556, 

-86 

559, 

-88 

095, 

-88 

095, 

-88 

553, 

-88 

553, 

-88 

820, 

0217 

.  -88 

820, 

-89 

236, 

-89 

236, 

-91 

724, 

-91 

724, 

-94 

813, 

-94 

813, 

-96 

244/ 

0218 

data 

(Longitude (i) 

,i-  1521, 

1600)/ 

0219 

.  -96 

244, 

-96 

404, 

-96 

404, 

-96 

839, 

-96 

839, 

-97 

053, 

-97 

325, 

-97 

076, 

0220 

.  -97 

053, 

-97 

380, 

-97 

320, 

-97 

188, 

-97 

338, 

-97. 

392, 

-97. 

380, 

-82. 

115, 

0221 

.  -82 

115, 

-66 

765, 

-66 

765, 

-68 

241, 

-68 

241, 

-70. 

019, 

-70. 

019, 

-70. 

557, 

0222 

.  -70 

557, 

-71 

912, 

-72 

514, 

-73 

159, 

-73 

803, 

-73 

319, 

-72. 

655, 

-71. 

998, 

0223 

.  -71 

912, 

-81 

657, 

-82 

305, 

-82 

989, 

-82. 

307, 

-81 

657, 

-83. 

337, 

-83 

337, 

0224 

.  -83 

625, 

-83 

625, 

-83 

921, 

-83 

921, 

-85. 

502, 

-85. 

502, 

-86. 

987, 

-87 

288, 

0225 

.  -87. 

073, 

-86. 

987, 

-87 

974, 

-87. 

974, 

-88. 

471, 

-89. 

068, 

-88. 

497, 

-88. 

471, 

0226 

.  -87. 

767, 

-87 

767, 

-90 

601, 

-90. 

601, 

-90. 

531, 

-90. 

531, 

-90. 

413, 

-90 

413, 

0227 

.-118. 

530, 

-lie. 

530, 

-118 

517, 

-118. 

517, 

-119. 

493, 

-119. 

493, 

-119. 

868, 

-119. 

868, 

0228 

.-120. 

109, 

-120  . 

109, 

-120 

328, 

-120. 

328, 

-122. 

588, 

-122 

588, 

-123. 

4  92, 

-122 

7  55/ 

0229 

data 

(Longitude (i) 

,  i- 

601, 

1680)/ 

0230 

.-122. 

105, 

-’23. 

260, 

-124 

506, 

-123. 

4  64, 

-122. 

251, 

-121. 

176, 

-119. 

95  9, 

-120. 

270, 

0231 

.-119 

157, 

-118  . 

079, 

-117 

994  , 

-118 

512, 

-119. 

667  , 

-119. 

936, 

-120. 

826, 

-120. 

357, 

0232 

.  -121 

554, 

-12  7 

399, 

-123 

4  92  , 

-98 

431 , 

-98  . 

55? , 

-90  . 

110, 

-  Q7  _ 

326, 

-  97  . 

203  , 

0233 

.  -96. 

944  , 

-96 

95  9, 

-96 

356, 

-96 

446, 

-96 

695, 

-96. 

6  92  , 

-  9”  . 

069, 

-  97  . 

232  , 

0234 

.  -97  . 

4d4  , 

-97 

814  , 

-98 

159, 

-98 

916, 

-  99 . 

152, 

-98  . 

540  , 

-98  . 

452  , 

-115. 

027, 

0235 

. -114  . 

009, 

-113 

445, 

-112 

434  , 

-111 

735. 

-Ill . 

104  , 

-110. 

075  , 

-111. 

131, 

-110  . 

126, 

02  3  6 

. -109. 

0  94  , 

-109 

233, 

-109 

233, 

-110 

32''', 

-111. 

3  ?3 . 

-Ill  . 

914  , 

-112. 

804  , 

-113  . 

051  , 

02  37 

.  -114 

702  , 

-115 

747, 

-115 

166, 

-115 

061, 

-115. 

851, 

-116  . 

811 , 

-116. 

054  , 

-115. 

022  , 

0238 

.  -86. 

229, 

-86 

259, 

-86 

534, 

-87 

008, 

-87. 

620, 

-87  . 

816, 

-87. 

841, 

-87  . 

8  65, 

0239 

.  -75. 

812, 

-76 

311, 

-76 

214, 

-76. 

754, 

-77  . 

440, 

-78  . 

115, 

-78. 

799. 

-79. 

058/ 

0240 

data 

f  Longitude ( i ) 

681, 

1760)  / 
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0241 

.  -79 

058, 

-79 

748, 

-79 

.338, 

-78 

711, 

-78 

.027, 

-77 

328, 

-76 

.713, 

-76 

.047, 

0242 

.  -75 

812, 

-81 

655, 

-81 

.014, 

-SO 

343, 

-79 

772, 

-79 

.088, 

-79 

.452, 

-79 

.731, 

0243 

.  -82 

423, 

-82 

575, 

-82 

.760, 

-83 

406, 

-83 

.408, 

-83 

.301, 

-83 

.427, 

-84 

.084, 

0244 

.  -84 

698, 

-84 

990, 

-84 

.  990, 

-85 

.313, 

-85 

.482, 

-86 

.180, 

-86 

.349, 

-86 

.456, 

0245 

.  -86 

357, 

-86 

230, 

-87 

.866, 

-87 

.796, 

-87 

.696, 

-87 

.497, 

-87 

.847, 

-87 

.429, 

0246 

.  -87 

067, 

-86 

355, 

-86 

.354, 

-85 

674, 

-84 

951, 

-84 

229, 

-84 

.306, 

-85 

.036, 

0247 

.  -85 

713, 

-86 

146, 

-86 

.145, 

-86 

806, 

-87 

485, 

-88 

108, 

-88 

727, 

-89 

.311, 

0248 

.  -89 

993, 

-90 

412, 

-90 

.413, 

-90 

930, 

-91 

609, 

-91 

353, 

-90 

.835, 

-90 

.153, 

0249 

.  -89 

579, 

-89 

580, 

-89 

.205, 

-88 

549, 

-87 

874, 

-87 

.151, 

-86 

.389, 

-86 

.330, 

0250 

.  -86 

329, 

-86 

064, 

-85 

.394, 

-84 

935, 

-84 

776, 

-84 

.592, 

-83 

.938, 

-83 

.598/ 

0251 

data 

(Longitude (i) 

,  i- 

1761, 

1840) / 

0252 

.  -83 

599, 

-82 

891, 

-82 

.168, 

-81 

476, 

-80 

754, 

-80 

395, 

-80 

005, 

-79 

.660, 

0253 

.  -79 

660, 

-80 

232, 

-80 

.893, 

-81 

316, 

-81 

2  95, 

-81 

606, 

-81 

723, 

-81 

.885, 

0254 

.  -82 

415, 

-83 

102, 

-82 

.440, 

-83 

114, 

-83 

175, 

-79 

731, 

-80 

.324, 

-80 

.952, 

0255 

.  -81 

533, 

-82 

184, 

-82 

.854, 

-83 

432, 

-83 

175, 

-83 

102, 

-82 

536, 

-81 

.986, 

0256 

.  -81 

655, 

-112 

766, 

-112 

.458, 

-112 

.198, 

-112 

751, 

-112 

953, 

-112 

.766, 

-35 

.816, 

0257 

.  -34 

735, 

-33 

933, 

-33 

.612, 

-32 

970, 

-32 

035, 

-32 

427, 

-31 

704, 

-30 

362, 

0258 

.  -29 

110, 

-28 

356, 

-28 

.359, 

-27 

012, 

-25 

816, 

-25 

146, 

-23 

988, 

-22 

807, 

0259 

.  -24 

014, 

-25 

394, 

-26 

.848, 

-28 

214, 

-26 

931, 

-28 

335, 

-29 

236, 

-29 

234, 

0260 

.  -28 

008, 

-26 

614, 

-25 

.411, 

-26 

815, 

-28 

395, 

-28 

429, 

-27 

209, 

-25 

735, 

0261 

.  -24 

566, 

-24 

100, 

-22 

.882, 

-21 

606, 

-21 

742, 

-21 

742, 

-21 

763, 

-22 

606/ 

0262 

data 

( Longitude ( i) 

,  i* 

1841, 

1920) / 

0263 

.  -23 

866, 

-25 

456, 

-24 

.  662, 

-26 

334, 

-25 

086, 

-26 

750, 

-25 

404, 

-25 

739, 

0264 

.  -25 

689, 

-25 

691, 

-24 

.561, 

-22 

786, 

-21 

070, 

-21 

154, 

-22 

479, 

-20 

694, 

0265 

.  -20 

719, 

-21 

440, 

-22 

.472, 

-22 

476, 

-20 

745, 

-19 

578, 

-21 

406, 

-22 

244, 

0266 

.  -20 

928, 

-18 

735, 

-18 

.286, 

-20 

539, 

-20 

489, 

-21 

729, 

-21 

727, 

-21 

639, 

0267 

.  -21 

135, 

-19 

915, 

-19 

.791, 

-17 

916, 

-20 

462, 

-17 

595, 

-19 

532, 

-16 

467, 

0268 

.  -14 

935, 

-14 

941, 

-13 

.031, 

-14 

471, 

-17 

818, 

-20 

926, 

-22 

522, 

-23 

956, 

0269 

.  -23 

141, 

-22 

095, 

-25 

.526, 

-27 

370, 

-30 

751, 

-27 

880, 

-24 

176, 

-21 

320, 

0270 

.  -22 

016, 

-22 

018, 

-24 

.  965, 

-29 

136, 

-33 

046, 

-29 

158, 

-31 

653, 

-36 

134, 

0271 

.  -38 

143, 

-42 

303, 

-43 

.  999, 

-43 

987, 

-41 

496, 

-39 

814  , 

-42 

204, 

-43 

365, 

0272 

.  -44 

367, 

-47 

045, 

-49 

.752, 

-49 

918, 

-53 

087, 

-54 

004, 

-55 

989, 

-55 

983/ 

0273 

data 

{ Longitude ( i ) 

,  i“ 

1921, 

2000)  / 

0274 

.  -59 

225, 

-57 

507, 

-60 

.092, 

-60 

842, 

-63 

364, 

-65 

386, 

-67 

272, 

-64 

934, 

0275 

.  -63 

787, 

-63 

778, 

-64 

.932, 

-65 

710, 

-68 

273, 

-70 

230, 

-72 

526, 

-72 

342, 

0276 

.  -70 

087, 

-68 

390, 

-66 

.661, 

-66 

662, 

-68 

309, 

-66 

171, 

-68 

447, 

-70 

726. 

0277 

.  -69 

839, 

-69 

082, 

-67 

.326, 

-65 

319, 

-63 

412, 

-61 

498, 

-60 

119, 

-60 

116, 

0278 

.  -58 

424, 

-58 

239, 

-56 

.944, 

-56 

143, 

-55 

773, 

-55 

258, 

-55 

096, 

-55 

098, 

0279 

.  -54 

676, 

-55 

635, 

-55 

.415, 

-55 

520, 

-53 

946, 

-53 

4  85, 

-52 

219, 

-51 

346, 

0280 

.  -51 

346, 

-52 

551, 

-51 

.071, 

-50 

860, 

-52 

321, 

-53 

794, 

-53 

163, 

-52 

Oil, 

0281 

.  -50 

542, 

-50 

837, 

-50 

.434, 

-51 

044, 

-52 

412, 

-52 

500, 

-67 

231, 

-68 

314, 

0282 

.  -67 

846, 

-69 

096, 

-67 

.725, 

-68 

594, 

-70 

018, 

-70 

024, 

-70 

023, 

-68 

604, 

0283 

.  -67 

181, 

-67 

686, 

-68 

.  958, 

-70 

384, 

-69 

483, 

-68 

284, 

-69 

728, 

-71 

078/ 

0284 

data 

(Longitude (i) 

,  i— 

2001, 

2080)  / 

0285 

.  -70 

519, 

-71 

967, 

-72 

.623, 

-72 

623, 

-71 

984, 

-72 

134, 

-73 

180, 

-73 

745, 

0286 

.  -74 

787, 

-74 

549, 

-75 

.894, 

-75 

799, 

-77 

3  92, 

-77 

805, 

-76 

997, 

-76 

997, 

0287 

.  -78 

533, 

-77 

907, 

-78 

985, 

-80 

470, 

-80 

755, 

-80 

583, 

-81 

209, 

-82 

783, 

0288 

.  -84 

284, 

-83 

659, 

-83 

.636, 

-83 

634, 

-85 

323, 

-84 

007, 

-85 

592, 

-85 

515, 

028? 

.  -84 

370, 

-85 

981, 

-84 

959, 

-84 

803, 

-86 

292, 

-84 

973, 

-85 

889, 

-86 

431, 

i~’2  90 

.  -86 

7  03, 

-86 

405, 

-86 

.404, 

-85 

664, 

-86 

931, 

-88 

394, 

-89 

252, 

-89 

746, 

02  91 

.  -89 

682  , 

-89 

992  , 

-88 

.894  , 

-87 

459, 

-87 

375, 

-89 

332, 

-88 

336, 

-86 

844, 

0292 

.  -85 

871 , 

-84 

394  , 

-82 

930, 

-81 

470, 

-80 

009, 

-78 

800, 

-78 

800, 

-79 

287, 

02  93 

.  -77 

843  , 

-77 

616, 

-76 

.188, 

-75 

594, 

-76 

537, 

-75 

152, 

-74 

221, 

-73 

137  , 

0294 

.  -72 

941, 

-88 

357, 

-87 

.833, 

-88 

279, 

-89 

644, 

-89 

920, 

-90 

618, 

-90 

437/ 

0295 

data 

(  Lon 

aitude ( i ) 

,  i  = 

2081 . 

2160)  / 

0  2  9  f- 

.  -91 

865  , 

-?2 

OQl  , 

-?1 

.514, 

-?1 

511. 

-  ^2 

1?^, 

-?2 

876, 

-  ?? 

300, 

-94 

501 . 

C29~ 

.  -95 

833  , 

-?6 

3--  _ 

-  96 

.410, 

-96 

409, 

-  96  . 

203  , 

-96 

532. 

-  95 

595  , 

-94 

369, 

0298 

.  -94 

38”  , 

-93 

402, 

-94 

.211 , 

-95 

431. 

_  00 

QOk 

-98 

270, 

-  97 

167  , 

-98 

34P, 

02  99 

.  -  97 

02  3  , 

-96 

615, 

-97 

.001 . 

-98 

181, 

-98 

738, 

-98 

1?°. 

-  9? 

614  , 

-100 

514  , 

n  3  r-  n 

,  -101 

88?, 

-102 

715, 

-101 

.081, 

-100 

228, 

-101 

581. 

-100 

477  , 

-  99 

998  , 

-112 

42”  , 

0  3  0  1 

.  -Ill 

422, 

-10  9 

588, 

-109 

.431, 

-10? 

707, 

-loe 

3?6, 

-10? 

C03, 

-105 

677, 

-106 

7  92  , 

0302 

.  -107 

772  , 

-IQT 

772, 

-109 

.  494  , 

-Ill 

0  94, 

-112. 

794  , 

-114  . 

429, 

-112. 

911, 

-111. 

087, 

030  3 

.-113 

024, 

-114 

906, 

-116 

.773, 

-115 

737, 

-116. 

506, 

-115. 

475, 

-113. 

639, 

-112. 

433, 

0  3  0  4 

.  -92 

005, 

-90 

217, 

-91 

.071, 

-89 

167, 

-87 

568, 

-85. 

583, 

-84. 

144, 

-82. 

115, 

105 
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0305 

.  -80 

256, 

-79 

955, 

-79 

.331, 

-79 

.334, 

-80 

.753, 

-82 

.615, 

-84 

.496, 

-86 

.374/ 

0306 

data 

(Longitude (i) 

,  i* 

2161, 

2240) / 

0307 

.  -88 

264, 

-90 

125, 

-90 

.814, 

-90 

.817, 

-92 

384, 

-92 

.036, 

-92 

.734, 

-94 

.743, 

0308 

.  -96 

403, 

-94 

729, 

-93 

.260, 

-92 

.013, 

-76 

248, 

-77 

227, 

-73 

.447, 

-70 

.207, 

0309 

.  -66 

391, 

-63 

226, 

-61 

.219, 

-63 

.625, 

-66 

686, 

-68 

.990, 

-70 

.024, 

-70 

.023, 

0310 

.  -67 

208, 

-67 

584, 

-69 

.281, 

-71 

.446, 

-73 

745, 

-74 

952, 

-77 

667, 

-77 

.926, 

0311 

.  -77 

923, 

-75 

308, 

-77 

.987, 

-75 

.975, 

-75 

234, 

-76 

.490, 

-77 

890, 

-79 

.861, 

0312 

.  -81 

738, 

-81 

788, 

-81 

.783, 

-79 

.544, 

-77 

872, 

-78 

925, 

-80 

638, 

-82 

.032, 

0313 

.  -84 

181, 

-85 

97  P, 

-86 

.  629, 

-86 

.629, 

-88 

616, 

-89 

107, 

-87 

129, 

-88 

.181, 

0314 

.  -85 

856, 

-83 

794, 

-82 

.723, 

-84 

.580, 

-85 

530, 

-84 

804, 

-86 

688, 

-87 

.001, 

0315 

.  -84 

683, 

-82 

543, 

-82 

.245, 

-82 

.248, 

-84 

065, 

-84 

684, 

-86 

442, 

-85 

.897, 

0316 

.  -83 

267, 

-81 

768, 

-82 

.658, 

-80 

.301, 

-78 

025, 

-78 

033, 

-78 

552, 

-80 

.577/ 

0317 

data 

(Longitude (i) 

,  i“ 

2241, 

2320) / 

0318 

.  -83 

697, 

-86 

578, 

-85 

.075, 

-87 

.174, 

-85 

907, 

-89 

081, 

-88 

406, 

-87 

.291, 

0319 

.  -87 

288, 

-90 

501, 

-90 

.610, 

-87 

.063, 

-85 

502, 

-82 

674, 

-79 

578, 

-81 

855, 

0320 

.  -81 

285, 

-77 

439, 

-76 

.261, 

-94 

.334, 

-91 

414, 

-89 

.816, 

-87 

963, 

-87 

344, 

0321 

.  -85 

020, 

-86 

741, 

-87 

.  969, 

-90 

.308, 

-92 

790, 

-93 

902, 

-91 

830, 

-90 

3  62, 

0322 

.  -90 

371, 

-92 

951, 

-95 

.676, 

-96 

.599, 

-94 

209, 

-96 

027, 

-94 

943, 

-94 

342, 

0323 

.  -87 

354, 

-88 

874, 

-89 

.331, 

-25 

.684, 

-25 

900, 

-27 

378, 

-26 

568, 

-25 

684, 

0324 

.  -23 

112, 

-21 

930, 

-23 

.588, 

-24 

.473, 

-23 

112, 

-21 

904, 

-23 

613, 

-21 

917, 

0325 

.  -21 

904, 

-24 

418, 

-22 

.944, 

-24 

.640, 

-24 

418, 

-20 

493, 

-20 

4  93, 

-17 

969, 

0326 

.  -17 

969, 

-45 

139, 

-47 

.163, 

-44 

.777, 

-45 

139, 

-51 

699, 

-51 

699, 

-54 

302, 

0327 

.  -52 

996, 

-51 

913, 

-52 

.783, 

-54 

.201, 

-54 

872, 

-54 

509, 

-54 

302, 

-51 

002/ 

0328 

data 

( Longitude ( i) 

,  i— 

2321, 

2400)  / 

0329 

.  -51 

002, 

-80 

772, 

-79 

.038, 

-77 

.319, 

-76 

353, 

-77 

904, 

-79 

526, 

-80 

143, 

0330 

.  -80 

798, 

-80 

772, 

-77 

.114, 

-77 

.114, 

-78 

459, 

-78 

840, 

-78 

471, 

-78 

459, 

0331 

.  -78 

142, 

-78 

142, 

-80 

.479, 

-80 

479, 

-95 

088, 

-93 

327, 

-91 

571, 

-90 

725, 

0332 

.  -91 

477, 

-92 

374, 

-94 

.058, 

-93 

.862, 

-95 

161, 

.05 

13b, 

-95 

653, 

-95 

684, 

0333 

.  -95 

326, 

-95 

088, 

-97 

.654, 

-99 

.141, 

-97 

654, 

-94 

827, 

-93 

4  93, 

-93 

439, 

0334 

.  -95 

344, 

-96 

091  , 

-34 

.827, 

-104 

.155, 

-104 

155, 

-101 

989, 

-101 

989, 

-102 

652, 

0335 

.  -1  02 

652 , 

-104 

134, 

-104 

.134, 

-100 

.297, 

-100 

297, 

-105 

649, 

-104 

463, 

-106 

023, 

032C 

.-105 

649, 

-117 

623, 

-118 

.222, 

-117 

.662, 

-117 

623, 

-118 

651, 

-116 

488, 

-116 

257, 

0337 

.-116 

794, 

-118 

944, 

-119 

.491, 

-121 

.549, 

-121 

422, 

-120 

200, 

-118 

694, 

-lie 

651, 

0338 

.-114 

190, 

-114 

190, 

-109 

.792, 

-110 

.163, 

-112 

057, 

-113 

262, 

-111 

364, 

-109 

792/ 

0339 

data 

(Longitude (i) 

,  i“ 

2401, 

2480)/ 

0340 

.-114 

284, 

-114 

284, 

-110 

.394, 

-111 

.410, 

-110 

431, 

-110 

394, 

-101 

672, 

-101 

672, 

0341 

.-103 

703, 

-102 

620, 

-100 

.143, 

-99 

.501, 

-101 

969, 

-104 

445, 

-103 

412, 

-105 

543, 

0342 

.-103 

703, 

-93 

175, 

-95 

.204, 

-93 

.175, 

-97 

951, 

-96 

009, 

-94 

948, 

-97 

039, 

0343 

.  -97 

868, 

-98 

341, 

-97 

.951, 

-90 

.844, 

-90 

844, 

-89 

983, 

-89 

983, 

-78 

893, 

0344 

.  -78 

893, 

-99 

733, 

-98 

.792, 

-99 

.733, 

-75 

224, 

-75 

224, 

-100 

384, 

-98 

214, 

0345 

.  -97 

518, 

-97 

412, 

-97 

.  640, 

-99 

.517, 

-100 

531, 

-102 

499, 

-101 

478, 

-99 

530, 

0346 

.-100 

691, 

-100 

384, 

-20 

.231, 

-20 

.231, 

-18 

923, 

-18 

629, 

-19 

056, 

-18 

923, 

03  4  7 

.  -17 

675, 

-17 

675, 

-19 

.314, 

-19 

.314, 

-19 

194, 

-19 

194, 

-17 

721, 

-17 

721, 

034  8 

.  -19 

086, 

-19 

086, 

-72 

.236, 

-72 

.236, 

-71 

239, 

-71 

239, 

-53 

438, 

-53 

438, 

0349 

.  -53 

584, 

-53 

584, 

-52 

.971, 

-52 

.971, 

-90 

195, 

-90 

195, 

-90 

692, 

-90 

692/ 

0350 

data 

( Longitude ( i ) 

,  i= 

2481, 

2560)  / 

0351 

.  -91 

476, 

-91 

476, 

-96 

.772, 

-96 

.772, 

-21 

192, 

-21 

192, 

-18 

323, 

-18 

323, 

0352 

.  -18 

152, 

-18 

152, 

-54 

.  971, 

-54 

.971, 

-35 

818, 

-36 

870, 

-37 

427, 

-38 

146, 

0353 

.  -39 

025, 

-40 

214, 

-40 

.217, 

-40 

.256, 

-40 

566, 

-41 

567, 

-40 

622, 

-40 

865, 

0354 

.  -41 

749, 

-41 

747, 

-41 

.538, 

-42 

.590, 

-42 

242, 

-42 

407, 

-43 

079, 

-43 

078, 

0355 

.  -42 

694, 

-42 

97  6, 

-43 

.  990, 

-43 

.127, 

-44 

096, 

-45 

088, 

-44 

486, 

-45 

173, 

0356 

.  -44 

774, 

-44 

633, 

-44 

.635, 

-45 

.547, 

-45 

466, 

-46 

503, 

-47 

519, 

-47 

770, 

0357 

.  -47 

769, 

-48 

699, 

-48 

935, 

-49 

.701, 

-50 

072, 

-49 

701, 

-49 

701, 

-50 

769, 

0  358 

.  -51 

382, 

-50 

984  , 

-50 

.  176, 

-49 

.595, 

-49 

586, 

-50 

129, 

-50 

902, 

-50 

997, 

035  9 

.  -51 

737, 

-51 

941  , 

-52 

069, 

-51 

533, 

-50 

551, 

-50 

551, 

-51 

771  , 

-52 

986, 

0360 

.  -52 

041, 

-53 

230. 

-52 

.  700 , 

-51 

.765. 

-50 

566 . 

-51 

7  92  , 

-  5  2 

701  , 

-  53 

053/ 

036: 

data 

( Longitude ( i ) 

,  i  = 

2561, 

264 

3)  , 

0362 

.  -52 

647, 

-51 

370 , 

-50 

.350. 

-50 

34?, 

-51 

579, 

-52 

873, 

-52 

07  8, 

-50 

848, 

0363 

.  -52 

035, 

-53 

292, 

-52 

.287, 

-50 

.955. 

-50 

770. 

-51 

945  , 

-52 

491, 

-37 

024  , 

0364 

.  -3" 

024  , 

_  T  7 

191 . 

-3- 

.  191  . 

_  T  7 

98'’ , 

_  ^  - 

9  8  7, 

-40 

447  , 

-40. 

447, 

-41  . 

03  6, 

0365 

.  -41 

036, 

-4  0 

819, 

-40 

.  819, 

-41 

4  61, 

-41 

461  , 

-41 

941, 

-41 

941, 

-42  . 

404  , 

0366 

.  -42 

404, 

-42 

215, 

-42 

.215, 

-42 

248, 

-42 

248, 

-43 

818, 

-43. 

818, 

-43. 

366, 

036^ 

.  -43 

366, 

-43 

507, 

-43 

.507, 

-44 

.116, 

-44 

116, 

-44 

005, 

-44. 

005, 

-44  . 

265, 

0368 

.  -44 

265, 

-45 

152, 

-45 

.152, 

-44 

931, 

-44 

931, 

-45 

008, 

-45. 

008, 

-45. 

438, 

106 
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0369 

.  -45 

.438, 

-45 

.357, 

-45 

.357, 

-46 

.277, 

-46 

.277, 

-46 

.538, 

-46 

.538, 

-47 

.005, 

0370 

.  -47 

.005, 

-46 

.330, 

-46 

.330, 

-46 

.207, 

-46 

.207, 

-47 

.084, 

-47 

.084, 

-47 

.082, 

0371 

.  -47 

082, 

-47 

.270, 

-47 

.270, 

-47 

.758, 

-47 

.758, 

-53 

.188, 

-53 

.188, 

-97 

.137/ 

0372 

data 

(Longitude (i) 

, 

2641, 

2-’20)/ 

0373 

.  -97 

.269, 

-97 

.517, 

-97 

.644, 

-97 

.716, 

-97 

.747, 

-97 

.741, 

-97 

.846, 

-97 

.737, 

0374 

.  -97 

.408, 

-97 

.753, 

-97 

.604, 
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.  -29 

844, 
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308, 
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361, 
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-29 

366, 
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366, 
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029, 
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.  -60 

311, 

-59 

773, 

-59 

.850, 

-60 

517, 

-61 

030, 

-59 

720, 

-59 

221, 

-58 

705, 

0598 

.  -57 

906, 

■58 

300, 

-59 

.039, 

-59 

715, 

-61 

106, 

-61 

107, 

-109 

406, 

-109 

406, 

0599 

.  -106 

.•63, 

-105 

463, 

-80 

.757, 

-80 

757, 

-78 

987, 

-78 

987, 

-79 

882, 

-79 

862, 

0  600 

.  -80 

082, 

-80 

082, 

-90 

.523, 

-90 

523, 

-89 

658, 

-89 

658, 

-89 

362, 

-89 

362, 

0601 

.  -90 

261, 

-90 

261, 

-90 

.479, 

-90 

479. 

-90 

800, 

-90 

800, 

-91 

495, 

-91 

284, 

0602 

.  -91 

473, 

-90 

988, 

-90 

959, 

-91 

205, 

-91 

495, 

-91 

666, 

-91 

666, 

-90 

7  93/ 

0  60  3 

data 

{ Longituda ( i ) 

4321, 

4400) / 

0604 

.  -90 

793, 

-69 

524, 

-69 

.135, 

-68 

864, 

-69 

379, 

-69 

765. 

-69 

944, 

-69 

523, 

0605 

.  75 

820, 

76 

884, 

77 

905, 

78 

214, 

79 

201, 

80 

424. 

81 

462, 

82 

327, 

0606 

.  83 

602, 

84 

893, 

86 

.170, 

87 

397, 

88 

125, 

88 

917, 

110 

733, 

111 

802, 

0  bC 

.  112 

9'’P, 

114 

044. 

114 

.711. 

115 

937. 

lib 

846, 

117 

981, 

119 

272. 

120 

539, 

ObL 

.  121 

719, 

121 

973, 

136 

.242, 

137 

485, 

138 

676, 

139 

890, 

141 

139, 

142 

331, 

0609 

.  143 

607, 

144 

568, 

144 

637, 

162 

059, 

1  63 

411, 

164 

897, 

166 

396, 

167 

900. 

0610 

.  168 

703, 

169 

906. 

170 

.  794  , 

169 

874, 

169 

867  , 

169 

109, 

169 

187, 

162 

796, 

'0  611 

.  163 

065, 

163 

506, 

164 

.419, 

164 

916, 

166 

907. 

164 

3  95, 

162 

640, 

160 

54'. 

'  6 1 : 

.  81 

462  , 

82 

240, 

82 

321 , 

-'5 

980, 

-74 

216, 

592, 

-70. 

967, 

-6? 

25'  . 

■0613 

.  -67 

988  , 

-66 

93', 

-66 

963, 

-6' 

501. 

-67 

509, 

-6' 

829, 

-68 

423  , 

-68 

5'5 

■'^614 

dat  a 

! Longitude  1 i ) 

1401. 

4480) , 

"  ^ 

.  -68 

-<=4 

071  , 

-^4 

'  ^  ? 

1  . 

1^2. 

43", 

'  *■  1 

.  -61 

428  , 

■*  b  C 

®  . 

-  5  9 

.  a  •?  4  . 

ap  a 

- 

15. , 

-5b 
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-  " 

. 

-  5  0 
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5  '  Q 
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-61 
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r.  0  R 
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“  b : 

2  2  0. 
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b"  b  . 

- 

0 "  r 

'  ^  1  9 

.  -63 
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-63 

56'  , 

-64 

144  . 

-64 

r  ?  . 

331  , 

-  ^5 

40^, 
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•  1 5 

a  4  . 

-16 

3  31 

-15 

2  C  * 

-14 

2  : 

- 12 
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-11 

505  . 

_  1  1 

•*  3  “  , 

- 1  c 

b  1 1 
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.  -10 
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-  9 
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-a 
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- 

-  H 
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-5 
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-4 
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-1 
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1 
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2 
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4 
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C 
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8 
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9 

.989. 

9 
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11 
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1 2 

423. 

13 

748, 

15 
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*' 
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19 
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20 

'34  . 
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23 
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15 

136, 

26 
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2  - 

9'9. 

28 

138, 

28 

.  141 , 

29 
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32 
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33 

Oil, 

33 

452 
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0  62  5 

data  ( Longitude ( i) 

,  1-  4481, 

0  62  6 

34.81', 

35.537, 

-167 .004, 

0  62’ 

.-143.126, 

-148. 133, 

-151 . 897 , 

06  2  8 

.-155.330, 

-152. 605, 

-149.649, 

0  62  3 

. -106. 161, 

-104 . 316, 

-102.378, 

063i' 

.  -99.180, 

-99 . 180, 

-100 . 672. 

0  631 

-96. 926, 

-95.188, 

-93 .446, 

0  6  3  2 

.  -85.96', 

-85 . 669, 

-83 . 929, 

0  6  3 

.  -■'5  .  980  , 

-68.255, 

-66.902, 

0634 

.  -64.0^0, 

-63 . 832, 

-63 .566, 

0635 

.  -61.088, 

-61.712, 

-62.264, 

0  6^6 

data  < Longitude ( i ) 

, i-  4561, 

063  ' 

.  -61.552, 

-61.064, 

-61.061, 

0633 

.  -68.424, 

-69. 988, 

-72.146, 

'0639 

.  -■8.400, 

-77.455, 

-76.273, 

0  64  0 

.  -09.045, 

-77 .643, 

-79.074, 

0  6  1 

.  -80.580, 

-78 . 641, 

-76. 169, 

0642 

.  -70.199, 

•67.469, 

-65.034, 

0  64  3 

.  -56.409, 

-54.249, 

-51.063, 

0644 

.  040, 

-31.114, 

-31.086, 

'645 

.  -36.099, 

-36.051, 

-34 .992, 

0646 

.  -26.449, 

-26.446, 

-24.561, 

06-1" 

data  ( Longitude ( i) 

, 1-  4641, 

0  64  8 

.  -15.865, 

-14.593, 

-13  <’31, 

0649 

.  -66.879, 

69.690, 

69.261, 

0650 

60.790, 

67 . 735, 

69.328, 

C'651 

.  03.726, 

74.985, 

75.823, 

0652 

.  95.170, 

96.440, 

97 .706, 

0653 

.  104.112, 

104 . 119, 

105.298, 

0  654 

.  110.033, 

121.973, 

123.171, 

0655 

.  129.309, 

130 .116, 

131.354, 

0656 

.  135.029, 

135.912, 

136.242, 

065' 

.  149.999. 

151.012, 

152.409, 

0  65  8 

data  ( Longitude (i) 

, i-  4721, 

0659 

.  158.318. 

159.436, 

160.454, 

0  6  60 

.  164.067, 

165 . 333, 

163.750, 

0661 

.  159.109, 

158.400, 

161 .200, 

06£: 

.  169.917, 

172.596, 

176.784, 

0663 

.  37.561, 

38.063, 

39.449, 

0664 

.  45,143, 

46.292, 

47 .436, 

0665 

.  50.169, 

50 . 986, 

51  903, 

0  6  6  6 

.  58.206, 

59.130, 

60.436, 

'366' 

68.257, 

69.538, 

69. 775, 

0668 

. -148 . 609, 

-147.243, 

-145.523, 

0669 

data  ( Longitude ( i) 

, i-  4801, 

0<=^"0 

.-153.866, 

-155.955, 

-158.103, 

0  6'1 

.-151.258, 

-149.662, 

-147.816, 

0  6 ' 2 

.-144.243, 

-142 . 629, 

-142 . 631, 

?  6“’  3 

.  -132 .045, 

-1^0.142, 

-128.290, 

;  6  ^  4 

.-119.461, 

-117 . 919, 

-116.167, 

'  b  *"  5 

. 10 . 959, 

-110.089, 

-148 . 001, 

Ok  -  ^ 

.  167.108, 

169 . 897 , 

169.897, 

.  162.500, 

92 . 403 , 

93 .403, 

:■  -  ■'  9 

.  -74.351, 

-75 . 966, 

-■’5.386, 

-  j 

.  -69.;:i. 

-68  654  , 

•  K  a  * 

ia*'  3  (  Lcnaitude  <  i  ^ 

, i -  4901. 

93  * 

-  66 . 1 62  . 

- b  6 . 162 . 

-63.542. 

- a  : 

.  -62.81-. 

-62  61^, 

-bi . 141 . 

6  H  ^ 

.  -  5  9  .  6 ' 4  , 

-59 . 6'4 , 

-  5  ? . 2  OC . 

t-  p  4 

-55.  '  '  3  . 

-  5  5  .  4  3  . 

-54.133, 

■  p  a  = 

.  -56.413, 

-56. 416, 

-56.000, 

3  6  9b 

.  -5'.4'5, 

-57  .  4’’5, 

-59.517, 

'  K  a  - 

,  -2. '62. 

-2 .762, 

2.92J, 

'■  kP  H 

,  -100  .  9'=1 , 

-99.187, 

-100 . 850, 

456?' 


-162 . 638, 

-156.730, 

-150 .411, 

-146.292, 

-140.434, 

-153.221, 

-152.959, 

-152.298, 

-153.093, 

-154.883, 

-148.609, 

-145.584, 

-145.584, 

-110.090, 

-108 .113, 

-1C9 . 491, 

-100.198, 

-101.489, 

-102. 4d1, 

-100 .796, 

-102.434, 

-103.541, 

-101.850, 

-100.124, 

-98 .395, 

-91.714, 

-90. 839, 

-90.830, 

-89.350, 

-87 . 641, 

-82.328, 

-81.301, 

-80.191, 

-70.870, 

-77 . 143, 

-67.366, 

-66.866, 

-66.470, 

-65.006, 

65.498, 

-63.153, 

-62.517, 

-62.005, 

-62.222, 

-62.214, 

-60.799, 
4640) / 

-60.567, 

-59.848, 

-61.577, 

-60 . 689/ 

-61.948, 

-  63.373, 

-63.290, 

-64.838, 

-66.483, 

-74.282, 

-76.197, 

-77.430, 

-77.805, 

-77 . 803 , 

-74 . 140, 

-73.654, 

-76.074, 

-78.424, 

-80 .480, 

-81 . 564, 

-83.062, 

-83.281, 

-81.517, 

-80.576, 

-77.044, 

-79.892, 

-77.304, 

-75.182, 

-73.095, 

-62.399, 

-59.518, 

-59.100, 

-58.521, 

-58.526, 

-47.725, 

-44.187, 

-42.074, 

-39.365, 

-36.715, 

-28.503, 

-29.061, 

-28.658, 

-31.364, 

-34.056, 

-33.567, 

-31.653, 

-30.069, 

-28.578, 

-26.643, 

-22.515, 
4720) / 

-20.472, 

-18.483, 

-18.061, 

-17.223/ 

-67.364, 

-66 . 935, 

-66.839, 

-67.597. 

-67.223, 

67 . 989, 

67.673, 

69.145, 

69.146, 

68.237, 

70 . 492, 

71.309, 

71.427, 

72.306, 

72 . 631, 

88.917, 

90.187, 

91.404, 

92.653, 

93.915, 

98.966, 

100.091, 

100.899, 

102.071, 

103.304, 

106.453, 

107,706, 

108.688, 

109.960, 

110.721, 

124.289, 

125.524, 

126.790, 

127.243, 

128.469, 

132.588, 

133.827, 

12 1.113, 

134.176, 

135.182, 

144.637, 

145.477, 

146.711, 

148.049, 

148.668, 

153.732, 
4800)  / 

153.633, 

154.559, 

155.532, 

156.950/ 

161.724, 

162.059, 

169.187, 

167.438, 

166.033, 

16-.625, 

162.927, 

162.796, 

160.551, 

160.467, 

160.741, 

161.997, 

163.766, 

165.240, 

167 . 090, 

-179.982, 

-174 . 942, 

-174.102, 

35.537. 

36.289, 

39.812, 

40.536, 

41.678, 

42 . 745, 

44 .013 . 

4  8.607, 

48.642, 

49.918, 

50.858, 

50.860, 

53.106, 

54.338, 

55.537, 

56.301, 

57.339, 

61.684, 

63.000, 

64 .322, 

65.622, 

66.938, 

69.718, 

69.  692, 

-174.097, 

-169. 169, 

-167 . 007, 

-146.363, 
4880) / 

-148.448, 

-150.827, 

-153. '03, 

-155.216/ 

-158.083, 

-153.083, 

-157 . 806, 

-155.593, 

-153.423, 

-145.982, 

-146.135, 

-148.164, 

-146.051, 

-146.051, 

-140.622, 

-139.349, 

-137.428, 

-135.882, 

-133 . 961, 

-127.006, 

-127.006, 

-125.113, 

-123.225, 

-121.318, 

-11  J. 794, 

-113.188, 

-112.103, 

-111.547, 

-110.078, 

-148.001, 

167.108, 

169.286, 

167.207, 

166.602, 

164.852, 

164.852, 

163.118, 

163.118, 

162 .500, 

-90.808, 

-91.143, 

-91 . 619, 

-90.808, 

-74 . 221 , 

-74.221, 

-73.502. 

-73.502. 

-67.742, 

-67 . 742 , 

-67.673. 

4  960' 

-68.401. 

-69.221 . 

-SS  .  8<'7  , 

-6^.800 

-63 . 54; . 

-64 .254. 

-63 . 532 , 

-63.5?'’. 

-64 .254 . 

-60.118. 

-  6  i  .  1  ?  6  . 

-61 . 141 , 

-59.89', 

-50.03-, 

-  5  •?  .  2  0  0  . 

-5B . 9'6 . 

-58 . O'l , 

-58.944, 

-59 . 9'6. 

-54.13?, 

-C-C.  lip 

-56.319. 

-56.416. 

-55.526 

_  c.  1;  nno 

-  5- , 95  6. 

-59.285, 

-5' . 16~ . 

-5' . 956 

-59.517, 

5. 99C, 

-5 . 996, 

-2.719, 

-2. '19 

2.92-, 

13.145, 

13.145, 

16.134, 

16.134 

100.851, 

-102 .466, 

-101 .030, 

-99.450, 

-9' . 916 

Ill 
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0689 

.  -96 

566, 

-9' 

784  , 

-99 

.443, 

-100 

981, 

-102 

466, 

-90 

379, 

-90 

379, 

-78 

326, 

0  6  90 

.  -78 

326, 

-79 

191, 

-79 

.085, 

-77 

559. 

-78 

802, 

-79 

191, 

-76 

519, 

-75 

341,' 

0691 

dat  a 

Longitude  ( i) 

,  i» 

4961, 

5040)  / 

0690 

.  -’4 

006, 

-74 

799, 

-76 

.299, 

-76 

519, 

-75 

587, 

-75 

587, 

-72 

677, 

-72 

677, 

0  6  93 

.  -72 

491, 

-71 

087, 

-71 

.620, 

-73 

237, 

-74 

816, 

-75 

142, 

-73 

550, 

-73 

066, 

0  6  94 

.  --’1 

497, 

-’1 

985, 

-71 

.392, 

-71 

634, 

-72 

166, 

-71 

279, 

-69 

994, 

-69 

472, 

0695 

.  -69 

081  , 

-68 

503. 

-68 

.278, 

-68 

164, 

-68 

427, 

-69 

171, 

-70 

749, 

-7: 

*  1  . 

06  96 

“  ^ 

491 , 

-57 

376, 

-57 

.376, 

-60 

934, 

-60 

934, 

-62 

174, 

-62 

360, 

-61 

j76. 

0  6  9^ 

.  -62 

174, 

-61 

076, 

-61 

.076, 

-60 

722, 

-60 

722, 

-71 

7  65, 

-71 

392, 

-69 

576, 

0698 

.  -67 

391, 

-68 

516, 

-69 

.791, 

-71 

765, 

-62 

441, 

-64 

417, 

-67 

031, 

-64 

094, 

0699 

.  -61 

714, 

-60 

334, 

-62 

.441, 

-52 

938, 

-54 

551, 

-52 

426, 

-51 

101, 

-50 

677, 

0  700 

.  -50 

258, 

-49 

166, 

-47 

.303, 

-44 

988, 

-43 

899, 

-43 

799, 

-43 

360, 

-43 

625, 

C'Oi 

.  -45 

216, 

-49 

047, 

-51 

.036, 

-52 

938, 

-37 

.802, 

-40 

346, 

-37 

797, 

-37 

802,' 

-~'02 

data 

( Longitude ( i ) 

,  i- 

5041, 

512U) / 

0  7  0  3 

.  -20 

294, 

-21 

565, 

-20 

.073, 

-20 

294, 

-105 

176, 

-105 

176, 

-60 

665, 

-60 

665, 

0*^04 

.  -61 

474, 

-61 

474, 

-60 

.452, 

-60 

452, 

71 

831, 

71 

831, 

96 

543, 

96 

543, 

5 

100 

496, 

100 

496, 

103 

,  318, 

103 

318, 

48 

321, 

48 

321, 

47 

408, 

47 

408, 

0^06 

.-159 

152, 

-161 

832, 

-163 

.  654. 

-163 

031, 

-160 

590, 

-159 

009, 

-159 

152, 

-149 

220, 

0*^0“ 

.  -149 

220, 

-132 

372, 

-132 

.372, 

-130 

896, 

-130 

896, 

-127 

118, 

-127 

118, 

-124 

0  92, 

07oe 

.-125 

676, 

-127 

163, 

-125 

.  809, 

-124 

441, 

-123 

730, 

-124 

092, 

-118 

651, 

-120 

269, 

n  g 

.  -122 

076, 

-122 

406, 

-120 

.  630, 

-118 

814, 

-118 

651, 

-115 

989, 

-115 

989, 

28 

833, 

0710 

.  28 

636, 

28 

583, 

28 

.582, 

28 

110, 

27 

900, 

27 

485, 

27 

909, 

28 

013, 

C  7  11 

28 

013, 

28 

243, 

28 

.  840, 

28 

227, 

27 

572, 

27 

128, 

26 

587, 

26 

0  64, 

0“'12 

.  26 

032, 

26 

032, 

25 

.408, 

24 

749, 

24 

111, 

24 

297, 

23 

63  9, 

23 

000/ 

O' 13 

data 

( Longitude ( i) 

,  i» 

5121, 

5200  / 

0  7  14 

2  2 

721, 

22 

729, 

22 

.729, 

23 

109, 

23 

0X1, 

23 

330, 

23 

884, 

24 

064, 

O' 15 

24 

064  , 

23 

475, 

23 

.314, 

22 

899, 

23 

041, 

22 

4  92, 

22 

489, 

22 

489, 

O'lb 

.  22 

263, 

21 

657, 

21 

.  618, 

21 

158, 

21 

637, 

22 

278, 

22 

847, 

22 

507, 

C'l' 

.  21 

867, 

21 

230, 

21 

.176, 

21 

176, 

20 

891, 

20 

549, 

20 

172, 

20 

009, 

O'lS 

.  20 
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18 

676, 

19 

004, 

19 

313, 

19 

313, 

0942 

.  19 

225, 

19 

225, 

24 

.586, 

24.586, 

21 

418, 

21 

418, 

22 

954, 

22 

954, 

0843 

.  19 

906, 

19 

906, 

21 

.656, 

21.656, 

21 

856, 

21 

856, 

22 

446, 

22 

446, 

0844 

.  -14 

559, 

-14 

653, 

-13 

.805, 

-13.605, 

-14 

417, 

-14 

746, 

-14 

746, 

-15 

804/ 

0845 

data 

( Longj  tude i i) 

,  i- 

6081, 

6160)/ 

0846 

.  -16 

667, 

-17 

777, 

-18 

.612, 

-19.709, 

-20 

714, 

-21 

365, 

-21 

365, 

-22 

502, 

0847 

.  -21 

705, 

-22 

361, 

-23 

.454, 

-24,060, 

-24 

058, 

-22 

896, 

-21 

755, 

-22 

503, 

0848 

.  -23 

694, 

-23 

677, 

-22 

.454, 

-23.139, 

-21 

927, 

-21 

377, 

-21 

380, 

-21 

446, 

0849 

.  -20 

325, 

-19 

429, 

-18 

.239, 

-17.256, 

-16 

270, 

-15 

137, 

-14 

558, 

-6 

717, 

0850 

.  -6 

717, 

-6 

744, 

-6 

.  744, 

-6.887, 

-6 

887, 

-6 

542, 

-6 

542, 

-7 

173, 

0851 

.  -7 

173, 

-7 

409, 

-7 

.409, 

19.247, 

19 

894, 

19 

262, 

19 

247, 

5 

044, 

0852 

5 

082, 

5 

871, 

5 

.412, 

5.376, 

32 

305, 

31 

882, 

31 

882, 

31 

315, 

0853 

.  30 

788, 

30 

788, 

30 

.228, 

30.290, 

30 

290, 

29 

728, 

29 

225, 

29 

029, 

0854 

.  33 

554, 

33 

850, 

34 

.010, 

34.255, 

34 

544, 

34 

778, 

34 

999, 

35 

278, 

0855 

.  35 

661, 

35 

498, 

35 

663, 

36.044, 

36 

446, 

36 

568, 

29 

028 

28 

503/ 

0856 

data 

(Longituda (i) 

.  i” 

6161, 

6240) / 

0857 

.  27 

922, 

27 

374, 

26 

.815, 

26.241, 

25 

649, 

25 

152, 

33 

555, 

33 

422, 

0858 

33 

047, 

32 

752, 

32 

.752, 

32.603, 

32 

410. 

32 

580, 

25 

152, 

24 

753, 

0859 

24 

161. 

23 

609, 

23 

.093, 

22.643, 

22 

075, 

21 

488, 

20 

909, 

20 

403, 

0860 

.  20 

005, 

19 

953, 

20 

.143, 

20.143, 

19 

954, 

19 

530, 

18 

966, 

18 

478, 

0861 

.  18 

002, 

17 

461, 

16 

.901 

16.315, 

15 

757, 

15 

429, 

15 

289, 

14 

724, 

0862 

14 

205, 

13 

613, 

13 

.017, 

12.421, 

11 

889, 

11 

528, 

11 

528, 

11. 

113, 

0863 

.  10 

524, 

10 

059, 

10 

.343, 

10.784, 

11 

0  94, 

11 

098, 

11 

098, 

10. 

820, 

0864 

.  10 

456, 

10 

828, 

11 

.072, 

10.503, 

10 

208, 

9 

588, 

8 

999, 

8 

622, 

0865 

8 

622, 

8 

004, 

7 

.488, 

7.487, 

6 

894, 

6 

289, 

5 

716, 

5 

107, 

0866 

4 

527, 

3 

899, 

3 

.293, 

2.693, 

2 

308, 

2 

308, 

1 

692, 

1 

074  / 

0867 

data 

( Longituda (i) 

i“ 

6241, 

6320)/ 

0068 

0 

517, 

0 

063, 

-0 

.529, 

-1.117, 

-1 

558, 

-2 

139, 

-2 

199, 

-2 

199, 

0869 

-2 

806, 

-3 

424, 

-4 

.037, 

-4.654, 

-5 

148, 

-5 

621, 

-5 

929, 

-5 

928, 

0  8  7  0 

.  -6 

114, 

-6 

318, 

-6 

.590, 

-6.917, 

-7 

430, 

-7 

971, 

-8 

51  9, 

-8 

881, 

OS"! 

-9 

251. 

-9 

352, 

-9 

.  352, 

-9.689, 

-9 

838, 

-  9 

888, 

-  9 

639, 

-9 

908, 

'8’2 

.  -10 

221 , 

-10 

616, 

-11 

.104  , 

-11.485, 

-12 

010. 

-12 

558, 

.  1  1 

055 

-13 

176, 

0  8  ■’3 

.  -15 

678, 

-15 

935, 

-16 

.197, 

-16.346, 

-16 

714, 

-16 

960  , 

-1' 

02  9, 

-1' 

0  92  , 

007  4 

.  -17 

056, 

-13 

176, 

-13 

.394  , 

-13 . 578, 

-14 

03  7, 

-14 

489, 

-14 

664  , 

-14 

945  , 

08^5 

.  -14 

896, 

-15 

289, 

-15 

.678, 

-17 . 055, 

-16 

553, 

-16 

201  , 

-16 

288, 

-16. 

361, 

087  6 

.  -16 

149, 

-16 

051, 

-16 

.  041 , 

-16.172, 

-16 

388, 

-16 

528, 

-16 

528, 

-16 

528  , 

08'" 

.  -16 

661 , 

-16 

949, 

-17 

.336, 

-17 .005, 

-16 

782  , 

•16 

548, 

-16 

037, 

-15 

525 

08' 9 

dat  a 

(Longituda ( ij 

,  i" 

6321, 

6400) / 

08' 9 

.  -16 

027, 

-16 

529, 

-16 

.783, 

-16.364, 

-15 

851, 

-15 

3  90, 

-15 

815, 

-16. 

328, 

08  80 

.  -16 

720, 

-16 

720, 

-16 

206, 

-15.779, 

-15 

272, 

-15 

477, 

-15 

254, 

-14  . 

746, 
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0881 

.  -14.664, 

-14.276, 

-13.852, 

-13.518, 

-13.306, 

-13.302, 

-13.298, 

-13.181, 

0882 

.  -12.924, 

-12.642, 

-12.306, 

-11.833, 

-11.419, 

-11.012, 

-10.640, 

-10.189, 

0883 

.  -9.816, 

-9.456, 

-9.053, 

-8.604, 

-8.148, 

-7.682, 

-7.526, 

-7.526, 

0884 

.  -7.057, 

-6.596, 

-6.124, 

-5.639, 

-5.134, 

-4.630, 

-4.129, 

-4.634, 

0885 

.  -4.137, 

-3.652, 

-3.182, 

-3.104, 

-3.104, 

-2.611, 

-2.147, 

-1 , 57  o , 

0886 

.  -1.198, 

-0.721, 

-0.271, 

0.185, 

0.685, 

1.115, 

1.199, 

1.199, 

0887 

1.688, 

2 . 191, 

2.695, 

3.202, 

3.672, 

4.141, 

4.617, 

4.981, 

0888 

5.432, 

5.492, 

5.583, 

5.995, 

6.500, 

6.753, 

7.160, 

7.664/ 

0889 

data  (Longitude (i) 

,  i-  6401, 

6480)/ 

0890 

7.764, 

7.764, 

8.270, 

8.775, 

8.988, 

8.988, 

9.385, 

9.810, 

0891 

9.942, 

9.844, 

9.815, 

9.815, 

9.752, 

9.486, 

9.849, 

9.804, 

0892 

9.804, 

9.622, 

9.985, 

9.492, 

9.298, 

9.113, 

9.113, 

8.982, 

0893 

9.288, 

9.560, 

9.587, 

10.045, 

10.292, 

10.642, 

10.981, 

11.18  , 

0894 

9.557, 

9.107, 

9.317, 

9.580, 

9.587, 

11.160, 

11.512, 

11.811, 

0895 

.  12.011, 

13.182, 

12.685, 

12.216, 

12.162, 

12.011, 

12.989, 

12.735, 

0896 

.  12.518, 

12.353, 

12.282, 

12.106, 

11.997, 

11.787, 

11.819, 

11.762, 

0897 

.  11.755, 

13.182, 

12.695, 

12.446, 

12.7-6, 

12.912, 

13.108, 

13.322, 

0898 

.  13.367, 

12 . 990, 

13.145, 

13.145, 

13.284, 

13.504, 

13.773, 

13.829, 

0899 

.  13.786, 

13.657, 

13.364, 

12.988, 

11.754, 

11.732, 

11.898, 

12.179/ 

0900 

data  ( Longitude ( i) 

i-  6481, 

bS60) / 

0901 

.  12.490, 

12.737, 

12.989, 

13.235, 

13.392, 

13.685, 

13.952, 

14.267, 

0902 

14.509, 

14.528, 

14.528, 

14.448, 

14 . 449, 

14.500, 

14.469, 

14.642, 

0903 

.  14.858, 

14.874, 

14 . 982, 

15.156, 

15.241, 

15.445, 

15.705, 

16.106, 

0904 

16.409, 

16.488, 

16.739, 

16.980, 

17.148, 

17.336, 

17.593, 

17.885, 

0905 

.  18.221, 

18.340, 

18.188, 

18.079, 

18.400, 

18.313, 

18.492, 

18.491, 

0906 

.  19.101, 

19.529, 

20.137, 

20.662, 

21.269, 

21.871, 

22.368, 

22.974, 

0907 

.  23.567, 

24.170, 

24.756, 

25.314, 

25.705, 

25.706, 

26.204, 

26.796, 

0»08 

.  27.316, 

27.804, 

28.251, 

28.695, 

29.098, 

29.471, 

29.934, 

30.298, 

0909 

.  30.600, 

30.864, 

31.063, 

31.063, 

31.300, 

31.680, 

32.146, 

32.454, 

0910 

.  32.602, 

32.746, 

32.884, 

32.893, 

32.892, 

32.927, 

32.546, 

32.858/ 

0911 

data  (Longitude (i) 

i«  6561, 

6640)/ 

0912 

.  33.304, 

33.822, 

34.343, 

34.484, 

34.485, 

34.997, 

35.369, 

35.534, 

0913 

.  35.480, 

35.504, 

35.540, 

35,296, 

35.118, 

35.121, 

35.121, 

34.777, 

0914 

.  34.754, 

34.590, 

35.107, 

35.489, 

35.852, 

36.253, 

40.738, 

40.647, 

0915 

.  40.599, 

40.591, 

40.477, 

40.549, 

40.487, 

40.457, 

40.547, 

40.438, 

0916 

.  36.253, 

36.590, 

36.949, 

37.280, 

37.747, 

38.224, 

38.723, 

39.193, 

0917 

.  39.645, 

40.007, 

40.299, 

40.622, 

40.642, 

40.738, 

40.438, 

40.056, 

0918 

.  39.740, 

39.632, 

39,445, 

39.286, 

39.446, 

39.350, 

39.336, 

38.989, 

0919 

.  38.787, 

38.974, 

39.096, 

39.205, 

39.204, 

39.570, 

39.809, 

39.961, 

0920 

.  40.166, 

40.486, 

40.885, 

41.315, 

41.559, 

41.557, 

41.836, 

42.105, 

0921 

42.449, 

42.796, 

42.894, 

42.891, 

43.234, 

43.579, 

43.967, 

44.336/ 

0922 

data  ( Longitude (i) 

i-  €641, 

6720)  / 

0923 

.  44.743, 

45.173, 

45.611, 

46.040, 

46,392, 

46.756, 

47.096, 

47.453, 

0924 

.  47.491, 

47.491, 

4‘'.819, 

48.111, 

48.385, 

48.681, 

48.944, 

49.095, 

0925 

.  49.311, 

49.588, 

49.587, 

49.019, 

50,102, 

50.326, 

50.610, 

50.817, 

0926 

.  50.904, 

51.182, 

51.413, 

51.413. 

51.122, 

51.096, 

51.150, 

50.640, 

0927 

50.2;8, 

49.785, 

49.287, 

48.925, 

48.924. 

48.416, 

47.930, 

47.411, 

0928 

.  46.968, 

46.506, 

45.999, 

45.490, 

45,033, 

44.524, 

44.055, 

43.678, 

0929 

.  43.401, 

43.101, 

43.120, 

43.379, 

43.105, 

42.681, 

43.101, 

38.612, 

0930 

.  38.831, 

39.020, 

39.161, 

43.121, 

42.729, 

42.347, 

42.023, 

41.612, 

0931 

.  41.310, 

41.252, 

41.252, 

40.763, 

40,290, 

40.057, 

39.566, 

39.288, 

0932 

.  39.188, 

39.159, 

38.611, 

38.137, 

37.792, 

37.412, 

37.280, 

37.198/ 

0933 

data  ( Longitude (i ) 

i-  6721, 

6800) / 

0  93  4 

.  37.230, 

37 . 122, 

36.977, 

36.841, 

36.565, 

33.473, 

33.472, 

33.256, 

0935 

.  33.256, 

11.279, 

11.279, 

11.057, 

11.057, 

8.  947, 

8.947, 

-3.02'’, 

0936 

-3.02'’, 

-13.455, 

-13.455, 

-14.088, 

-14 .423, 

-13 . 902 . 

-14 . 088, 

-15.818, 

0  93  7 

.  -15.818, 

-16.236, 

-16.758, 

-16.202. 

-16.236, 

-17.269, 

-17.269, 

-18 . 05’ , 

0938 

.  -18. 05^, 

-17. 'SS, 

-17,783, 

-16.020, 

-16.020, 

-16.997, 

-16.997, 

-I6.3':i, 

0939 

.  -16.371, 

-24 . 701, 

-24 . 701 , 

-24 .468, 

-24 . 468, 

-23.720, 

-23.728, 

-23.216, 

0940 

.  -23.216, 

-22.909. 

-22 . 909, 

-22.991. 

-22 . 991 . 

-24 .425, 

-24.425, 

-25.046. 

0941 

.  -25.046, 

-25.317, 

-25.317, 

-16.336, 

-16.336, 

-15. 985, 

-15.985, 

-15.4''l. 

0942 

.  -15.471, 

-15.942, 

-15.942. 

-16.239, 

-16.239, 

-16.151, 

-16.151, 

-16 . 059, 

0943 

.  -16.059, 

-15. 981, 

-15.981, 

-15. 946. 

-15. 946, 

-15. 661, 

-15.661, 

-12 .885/ 

0944 

data  ( Longitude ( i) 

i-  6801, 

6880) / 
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0945 

.  -12.885, 

5.634, 

5.634, 

6.083, 

6.683, 

7.424, 

7.424, 

8.919, 

0946 

8.744, 

8.902, 

8 . 919, 

11.754, 

11.754, 

32.972, 

32.972, 

35.476, 

0947 

.  35.476, 

43.290, 

43.478, 

43.274, 

43.290, 

43.652, 

43.652, 

44.207, 

0948 

.  44.207, 

45.097, 

45.097, 

45.283, 

45.283, 

46.280, 

46.280, 

46.448, 

0949 

.  46.448, 

39.722, 

39.722, 

39.189, 

39.428, 

39.356, 

39.189, 

39.696, 

0950 

.  39.678, 

39.767, 

39.696, 

39.669, 

39.669, 

41.003, 

41.003, 

39.978, 

0951 

.  'S.97S, 

55  .  1 10 , 

55  .•'1C, 

55.712 

5*' .  ■’13 

55 .464 , 

55.464, 

56.284, 

0952 

.  56.284, 

56.532, 

56.532, 

56.564, 

56.564, 

57.750, 

57.333, 

57.750, 

0953 

63.478, 

63.478, 

48.217, 

48.217, 

42.741, 

42.741, 

45.614, 

45.051, 

0954 

44.542, 

44.073, 

43.852, 

43.663, 

43.746, 

43.597, 

43.319, 

43.287/ 

0955 

data  (Longituda (i) 

i-  6881, 

6960) / 

0956 

43.421, 

43.758, 

43.946, 

44.250, 

44.251, 

44.251, 

44.481, 

44.465, 

0957 

.  44.231, 

44.089, 

44.004, 

43.937, 

44.209, 

44.416, 

44.753, 

45.209, 

0958 

.  45.699, 

46.223, 

46.649, 

47.171, 

47.261, 

47.286, 

48.433, 

48.301, 

0959 

.  48.116, 

47.915, 

47.816, 

47 . 674, 

47.537, 

47.322, 

47.127, 

46,689, 

0960 

.  46.131, 

45.653, 

45.614, 

47.287, 

47.754, 

47.956, 

47.890, 

48.403, 

0961 

.  48.816, 

48.940, 

49.039, 

49.274, 

49.274, 

49.544, 

49.800, 

49.976, 

0962 

.  50.140, 

50.206, 

50.239, 

50.486, 

50.368, 

50.166, 

50.166, 

49.903, 

0963 

.  49.688, 

49.861, 

49.590, 

49.447, 

49.460, 

49.365, 

49.171, 

48.999, 

0964 

.  48.834, 

48.654, 

48.502, 

48.433, 

51.759, 

51.759, 

50.223, 

50.223, 

0965 

.  37.654, 

37 . 654, 

-9.892, 

-9.892, 

-12.210, 

-12.210, 

-5.715, 

-5.715/ 

0966 

data  (Longituda (i) 

i-  6961, 

7040)/ 

0967 

.  -14.392, 

-14.392, 

30.532, 

30.502, 

30.869, 

31.267, 

31.241, 

30 . 840. 

0968 

.  30.531, 

29.046, 

29.122, 

29.287, 

29.369, 

29.570, 

29.596, 

29.806, 

0969 

.  29.920, 

29.945, 

29.945, 

29.861, 

30.317, 

30.561, 

30.616, 

30.884, 

0970 

.  31.146, 

30.644, 

30.463, 

30.299, 

30.299, 

30.185, 

29.805, 

2  9.492, 

0971 

.  29.320, 

29.340, 

29.149, 

29.100, 

29.237, 

29.046, 

27.022, 

27.326, 

0972 

.  27.569, 

27.968, 

28.430, 

28.954, 

28.482, 

28.051, 

27.614, 

27.249, 

0973 

.  27.022, 

33.926, 

34.071, 

34.201, 

34.215, 

34.325, 

34.054, 

34.179, 

0974 

.  34.334, 

34.424, 

34.544, 

35.048, 

34.857, 

34.809, 

34.821, 

34.708, 

0975 

.  34.959, 

34.963, 

34.963, 

34.663, 

34.657, 

34.553, 

34.308, 

33.928, 

0976 

.  31.613, 

31.752, 

31.848, 

31.792, 

31.976, 

32.254, 

32.254, 

32.735/ 

0977 

data  ( Longituda ( i) 

i-  7041, 

7120)/ 

0978 

.  33.213, 

33.714, 

34.022, 

34.186, 

34.186, 

34.678, 

34.425, 

34.131, 

0979 

.  33.816, 

33.566, 

33.203, 

33.704, 

33.432, 

33.426, 

33.426, 

32.952, 

0980 

.  32.832, 

32.665, 

32.161, 

31.844, 

31.631, 

31.614, 

37.325, 

37.001, 

0981 

.  37.438, 

37.451, 

37.325, 

49.827, 

49.827, 

35.922, 

35.911, 

36.068, 

0982 

.  35.590, 

34.987, 

34.370, 

33.975, 

33.368, 

32.806, 

32.805, 

32.277, 

0983 

.  31.790, 

31.228, 

30.601, 

30.523, 

29.915, 

29.295, 

29.014, 

28 . 622, 

0984 

28.622, 

28.019, 

27.406, 

29.012, 

27.449, 

27.222, 

27.244, 

26.674, 

0985 

,  26.349, 

26.894, 

27.015, 

26.628, 

26.074, 

26.073, 

26.168, 

26.638, 

0986 

.  27.269, 

27.927, 

28.564, 

29.123, 

29.778, 

29.158, 

29.734, 

30.281, 

0987 

.  30.281, 

30.921, 

31.487, 

32.073, 

32.656, 

33.293, 

33.968, 

34.641/ 

0988 

data  ( Longitude ( i ) 

i-  7121, 

7200)/ 

0989 

.  35.021, 

35.021, 

35.418, 

36.087, 

36.462, 

37.117, 

37.780, 

38 .390, 

0990 

.  39.036, 

39.701, 

39.997, 

35.896, 

35.821, 

35.922, 

35.896, 

35.973, 

0991 

.  35.973, 

35.649, 

35.448, 

35.213, 

35.100, 

35 . 100, 

34.914, 

34.782, 

0992 

.  34.547, 

34 . 490, 

34,490, 

34.219, 

34.219, 

33.684, 

33.102, 

32 .769, 

0993 

.  32.770, 

32 . 306, 

32.580, 

32.721. 

33.071, 

33.220, 

33.564, 

33.564, 

0994 

33.931, 

34.448, 

34.516, 

34.516, 

34 . 677, 

34.891, 

34.961, 

34.961, 

0995 

.  34.979, 

34.978, 

34 . 961, 

34.961, 

34.841, 

34.734, 

34.708, 

34 .708, 

0996 

.  35.233, 

35.233, 

35.518, 

35.822, 

36.163, 

36.436, 

36.695, 

37.075, 

099' 

37.279, 

37.424, 

37.843, 

37.843. 

38.298, 

38.636, 

38.789, 

39.063. 

0998 

.  39.037, 

39.088, 

39.191, 

39.504, 

39.569, 

39.568, 

40.006, 

40.456, 

0  99  9 

data  ( Longituda ( i) 

i-  7201. 

7280) / 

lO^'O 

40. '9', 

41.049, 

41.213, 

41 . 509. 

41 .  ■’84  , 

42 . 20? , 

4  2  .  ’  5  '  , 

4  1  .  '  1  6  . 

1001 

42.821, 

42 . 696, 

42 .795, 

42 . 955, 

43 .07P, 

43.255, 

4? .228, 

43.2;?, 

]_  0  n  0 

.  43.476, 

43 . 931, 

44 .436, 

44 . 934 , 

45.393, 

45.799, 

46.  j13, 

46.923, 

100  3 

47.314, 

47  .  742 , 

48.253, 

48.759, 

49.073, 

49.183, 

49.182, 

49.639, 

10  0  4 

.  50.149, 

50. 622 , 

51.130, 

51.623. 

52. 

52.195, 

52.543. 

53 . 031  , 

1005 

.  53.542, 

54.010, 

54.531. 

55.059, 

55.204, 

55.204, 

55.331, 

55  .  795, 

10  0“^ 

.  56.320, 

56.613, 

56.884, 

57.393, 

57.747, 

57.741, 

57 .813, 

57.813, 

1 0  0  ' 

.  58.037, 

53.476, 

50.826, 

50.546, 

50.239, 

49.993, 

50.007, 

49,686, 

1 

.  304  , 

48 . 834 , 

48 . 632, 

48.420, 

48,417, 

58.476, 

58.707, 

59,034, 

116 


CHR/91-2750 


1009 

.  59 

.429, 

59 

.681, 

59 

.811, 

59 

.336, 

59 

.007, 

58 

674, 

58 

143, 

57 

601/ 

1010 

data 

(Longitude (i) 

,  i" 

7281, 

7360) / 

1011 

.  57 

090, 

56 

.734, 

56 

.454, 

56 

.383, 

56 

.270, 

56 

271, 

56 

371, 

56 

080, 

1012 

.  56 

081, 

55 

745, 

55 

.331, 

54 

.938, 

54 

606, 

54 

108, 

53 

630, 

53 

080, 

1013 

.  52 

523, 

51 

.994, 

51 

.616, 

51 

.219, 

51 

.218, 

51 

592, 

51 

489, 

51 

388, 

1014 

.  50 

899, 

50 

758, 

50 

.826, 

48 

.410, 

48 

164, 

47 

802, 

47 

982, 

47 

944, 

1015 

.  47 

944  , 

48 

517, 

48 

.537, 

48 

.538, 

48 

877, 

49 

405, 

49 

986, 

50 

2  93, 

i.  ^  *  c 

e 

669 

900, 

51 

107. 

51 

.264, 

34 

■^82, 

34 

goT 

■a  -a 

"’18, 

■a  -a 

■>ri 

1017 

.  32 

598, 

32 

549, 

33 

.122, 

33 

.736, 

34 

.311, 

34 

502, 

26 

oil. 

26 

oil. 

1018 

.  26 

420, 

26 

420, 

26 

.161, 

26 

.161, 

26 

361, 

26 

361, 

27 

065, 

27 

0  65, 

1019 

.  27 

038, 

27 

038, 

27 

.355, 

27 

.355, 

27 

.863, 

27 

8  63, 

28 

207, 

27 

.916, 

1020 

.  28 

207, 

27 

231, 

27 

.231, 

41 

.861, 

41 

861, 

41 

754, 

42 

178, 

41 

754/ 

1021 

data 

( Longitude (i) 

,  i» 

7361, 

7440)/ 

1022 

.  52 

092, 

52 

092, 

54 

.221, 

53 

.832, 

53 

353, 

53 

854, 

54 

221, 

56 

052, 

1023 

.  56 

052, 

50 

902, 

58 

.728, 

58 

900, 

58 

902, 

53 

862, 

53 

862, 

54 

479, 

1024 

.  54 

479, 

54 

467, 

54 

.467, 

53 

.335, 

53 

335, 

50 

502, 

50 

502, 

48 

186, 

1025 

48 

187, 

47 

149, 

47 

.149, 

47 

.132, 

47 

132, 

46 

814, 

46 

814, 

46 

750, 

1026 

46 

751, 

46 

905, 

46 

.  905, 

46 

.898, 

46 

898, 

32 

299, 

32 

299, 

32 

385, 

1027 

.  32 

387, 

47 

630, 

47 

.051, 

47 

.632, 

47 

630, 

32 

307, 

32 

319, 

32 

319, 

1028 

.  32 

300, 

32 

299, 

32 

.355, 

32 

.568, 

32 

580, 

77 

567, 

77 

567, 

77 

534, 

1029 

77 

534, 

70 

078, 

69 

.344, 

68 

.765, 

68 

919, 

69 

587, 

70 

349, 

69 

803, 

1030 

.  70 

078, 

69 

326, 

69 

.326, 

73 

.234, 

73 

234, 

3 

354, 

3 

354, 

172 

661, 

1031 

.  172 

661, 

173 

469, 

173 

.469, 

177 

.639, 

177 

639, 

178 

694, 

179 

398, 

178 

661/ 

1032 

data 

(Longitude (i) 

,  i“ 

7441, 

7520)  / 

1033 

.  178 

694, 

-178 

784, 

-178 

.  784, 

-177 

.925, 

-177 

925, 

-177 

046, 

-177 

046, 

-17b 

549, 

1034 

.-176 

549, 

-176 

276, 

-176 

.276, 

-176 

.160, 

-176 

160, 

-176 

032, 

-176 

032, 

-176 

042, 

1035 

.-176 

042, 

-175 

865, 

-175 

.865, 

-175 

.718, 

-175 

718, 

-174 

159, 

-174 

706, 

-174 

159, 

1036 

.-174 

Oil, 

-173 

191, 

-174 

.011, 

-174 

.011, 

-172 

407, 

-172 

407, 

-171 

250, 

-171 

250, 

1037 

.  -170 

602, 

-170 

602, 

-170 

.104, 

-170 

.104, 

-169 

693, 

-169 

693, 

-169 

678, 

-169 

678, 

1038 

.-167 

795, 

-160 

369, 

-169 

.042, 

-168 

.625, 

-167 

896, 

-167 

795, 

-166 

258, 

-166 

653, 

1039 

.-167 

423, 

-166 

816, 

-166 

.250, 

-165 

.659, 

-165 

659, 

-165 

268, 

-165 

268, 

-164 

935, 

1040 

.-164 

935, 

-165 

514, 

-165 

.514, 

190 

274, 

190 

274, 

189 

857, 

189 

857, 

193 

891, 

1041 

.  194 

386, 

193 

418, 

192 

.619, 

193 

.530, 

193 

891, 

107 

086, 

187 

086, 

190 

334, 

1042 

.  189 

621, 

188 

506, 

189 

.340, 

190 

332, 

190 

334, 

190 

923, 

190 

923, 

179 

663/ 

1043 

data 

(Longitude ( i) 

,  i“ 

7521, 

7600)/ 

1044 

.  179 

663, 

-155 

823, 

-155 

.336, 

-154 

971, 

-155 

276, 

-155 

6to, 

-155 

886, 

-155 

910, 

1045 

.-155 

823, 

-156 

270, 

-156 

.270, 

-156 

568, 

-156 

560, 

-156 

914, 

-156 

914, 

-157 

175, 

1046 

.-157 

175, 

-157 

967, 

-157 

.967, 

-159 

318, 

-159 

318, 

-160 

057, 

-160 

057, 

-160 

534, 

1047 

.-160 

534, 

-161 

938, 

-161 

,938, 

-164 

697, 

-164 

697, 

-167 

995, 

-167 

995, 

-171 

721, 

1048 

.-171 

721, 

-173 

94  7, 

-173 

.947, 

-177 

322, 

-177 

322, 

-177 

358, 

-177 

358, 

-178 

2  94, 

1049 

.  -178 

294, 

-169 

543, 

-169 

.543, 

28 

833, 

29 

489, 

29 

661, 

351 

674, 

351 

674, 

1050 

18 

984, 

18 

984, 

25 

.414, 

25 

414, 

23 

075, 

23 

928, 

21 

619, 

21 

284, 

1051 

.  23 

075, 

21 

996, 

21 

.996, 

26 

614, 

26 

614, 

28 

654, 

28 

654, 

24 

852, 

1052 

.  27 

137, 

25 

845, 

24 

.147, 

21 

606, 

19 

481, 

17 

880, 

20 

329, 

22 

214, 

1053 

24 

747, 

24 

852, 

33 

,095, 

33 

095, 

10 

679, 

11 

765, 

12 

248, 

13 

799/ 

1054 

data 

(Longitude (i) 

,  i- 

7601, 

7680)  / 

1055 

.  14 

497, 

16 

591, 

14 

.643, 

16 

883, 

14 

849, 

14 

406, 

16 

499, 

17 

625, 

1056 

.  18 

373, 

19 

045, 

21 

.203, 

19 

822, 

18 

686, 

17 

008, 

15 

886, 

16 

369, 

1057 

.  15 

359, 

12 

632, 

10 

679, 

19 

247, 

19 

894, 

19 

2  62, 

19 

247, 

56 

808, 

1058 

.  57 

069, 

57 

184, 

57 

.429, 

57 

980, 

58 

529, 

59 

038, 

59. 

594, 

60 

144. 

1059 

.  60 

696, 

61 

232, 

61 

.610, 

61 

610, 

62 

163, 

62 

718, 

63 

270, 

63 

804  . 

1060 

64 

354, 

64 

90  6, 

65 

458, 

66 

Oil, 

66 

438, 

66 

438, 

66. 

739, 

67 

070, 

1061 

.  67 

359, 

67 

532, 

67 

.531, 

67 

647, 

67 

647, 

67 

857, 

67 

857, 

68 

oil. 

1062 

.  68 

Oil, 

68 

196, 

68 

196, 

68 

741, 

68 

433, 

68 

806, 

69. 

289, 

69 

834  , 

1063 

.  70 

371, 

70 

023, 

69 

.513, 

69 

211, 

69 

211, 

69 

403  . 

69 

803. 

70 

142  , 

1064 

TO 

592, 

71 

117  , 

71 

606, 

71 

92  8, 

71 

92  9, 

72 

258, 

72 

0  99 . 

-  ; 

55 

1065 

data 

( Longitude  f i) 

,  i- 

7601, 

1760)  ; 

1066 

72 

556, 

73 

101, 

72 

631, 

72 

846, 

7 

885, 

72 

704  , 

72  . 

716, 

1  3 

047  , 

1067 

7  3 

046, 

72 

851, 

73 

.014, 

73 

104. 

73 

234, 

73 

306, 

73. 

386, 

7  3 

617  , 

1068 

"3 

890, 

74 

030, 

74 

.304, 

74 

511. 

14 

509, 

74 

631, 

74  . 

731, 

74 

855  , 

10  6  9 

.  75 

074  , 

75 

397, 

75 

617, 

75 

844. 

76 

021, 

76 

194  , 

76 

417, 

76 

395, 

1070 

76 

296, 

76 

395, 

76 

416, 

76 

296, 

76 

431, 

76 

693, 

77  . 

015, 

77 

446, 

1071 

77 

914  , 

78 

112, 

78 

.112, 

78 

384  , 

78 

868, 

79 

373, 

78. 

925, 

79 

143, 

1072 

79 

236, 

79 

236, 

79 

733, 

79 

845, 

79 

839, 

79. 

786, 

79. 

988, 

80 

225, 
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1073 

.  80 

314, 

80 

057, 

80 

.141, 

80 

.147, 

80 

147, 

80 

049, 

80 

209, 

80 

592, 

1074 

.  81 

108, 

81 

384, 

81 

.  908, 

82 

.334, 

82 

446, 

82 

906, 

83 

334, 

83 

690, 

1075 

.  84 

124, 

84 

123, 

84 

.  474, 

84 

.732, 

85 

153, 

85 

427, 

85 

954, 

86 

435/ 

1076 

data 

(Longitude (i) 

i“ 

7761, 

7840)  / 

1077 

.  86 

808, 

86 

921, 

86 

.981, 

87 

.471, 

87 

961, 

87 

933, 

88 

079, 

88 

077, 

1078 

88 

204, 

88 

624, 

88 

.707, 

89 

037, 

89 

037, 

89 

4  62, 

89 

545, 

89 

870, 

1079 

89 

984, 

90 

044, 

89 

.915, 

90 

.454, 

90 

516, 

90 

538, 

90 

252, 

90 

252, 

1080 

.  90 

629, 

90 

879, 

91 

.411, 

91 

.757, 

91 

908, 

91 

988, 

92 

209, 

92 

261, 

1081 

92 

261, 

92 

507, 

92 

.793, 

93 

.159, 

93 

687, 

93 

920, 

93 

676, 

94 

058, 

1082 

.  94 

068, 

93 

910, 

93 

.871, 

94 

.068, 

94 

039, 

94 

308, 

94 

453, 

94 

569, 

1083 

94 

457, 

94 

270, 

94 

.211, 

94 

.613, 

94 

792, 

94 

792, 

9^ 

144, 

95 

646, 

1084 

.  96 

031, 

96 

186, 

96 

.691, 

96 

.904, 

96 

881, 

96 

881, 

97 

259, 

97 

342, 

1085 

.  97 

629, 

97 

728, 

97 

.820, 

97 

993, 

98 

053, 

98 

096, 

98 

468, 

98 

471, 

1086 

.  98 

470, 

98 

637, 

98 

.704, 

98 

.654, 

98 

718, 

98 

576, 

98 

525, 

98 

744/ 

1087 

data 

( Longitude (i) 

i- 

7841, 

7920)  / 

1088 

.  98 

743, 

98 

569, 

98 

.406, 

98 

.287, 

98 

233, 

98 

704, 

99 

060, 

99 

348, 

1089 

.  99 

734, 

99 

930, 

100 

.128, 

102 

.096, 

101 

719, 

101 

354, 

100 

848, 

100 

400, 

1090 

.  100 

151, 

100 

480, 

100 

,382, 

100 

.279, 

99 

957, 

99 

890, 

99 

386, 

99 

377, 

1091 

.  99 

377, 

99 

174, 

99 

.174, 

99 

.309, 

99 

491, 

99 

675, 

99 

904, 

99 

984, 

1092 

.  100 

084, 

100 

017, 

99 

.997, 

100 

.497, 

100 

936, 

100 

847, 

101 

246, 

101 

246, 

1093 

.  101 

757, 

102 

156, 

102 

.548. 

102 

.909, 

102 

912, 

100 

127, 

100 

354, 

100 

384, 

1094 

.  100 

422, 

100 

624, 

100 

.  769, 

101 

.044, 

101 

310, 

101 

477, 

101 

877, 

102 

316, 

1095 

.  102 

559, 

102 

559, 

102 

.958, 

103 

.401, 

103 

899, 

104 

121, 

103 

922, 

103 

582, 

1096 

.  103 

454, 

103 

450, 

103 

.450, 

103 

.421, 

103 

460, 

103 

332, 

103 

080, 

102 

669, 

1097 

.  102 

373, 

102 

096, 

102 

.  912, 

103 

.103, 

103 

605, 

103 

546, 

104 

054, 

104 

446/ 

1098 

data 

( Longitude ( i) 

i“ 

7921, 

800C) / 

1099 

.  104 

446, 

104 

859, 

104 

.851, 

104 

.816, 

104 

814, 

104 

963, 

105 

401, 

105 

825, 

1100 

.  106 

164, 

106 

164, 

105 

.  955, 

106 

.361, 

106 

273, 

106 

781, 

106 

577, 

106 

577  , 

1101 

.  107 

088, 

107 

592, 

108 

.043, 

108 

.484, 

108 

925, 

109 

233, 

109 

212, 

109 

272, 

1102 

.  109 

325, 

109 

325, 

109 

.244, 

109 

.232, 

109 

078, 

108 

921, 

108 

691, 

108 

387, 

1103 

.  108 

061, 

107 

611, 

107 

.232, 

107 

.117, 

107 

117, 

106 

738, 

106 

396, 

106 

239, 

1104 

.  105 

848, 

105 

607, 

105 

.805, 

105 

.974, 

106 

431, 

106 

500, 

106 

500, 

106 

788, 

1105 

.  107 

240, 

107 

632, 

107 

.988, 

114 

.033, 

114 

220, 

107 

988, 

108 

522, 

109 

059, 

1106 

.  109 

586, 

109 

950, 

109 

.  951, 

109 

.691, 

109 

820, 

110 

269, 

110 

316, 

110 

394, 

1107 

.  110 

909, 

111 

185, 

111 

,185, 

111 

707, 

112 

192, 

112 

730, 

113 

241, 

113 

165. 

1108 

.  113 

542, 

113 

492, 

113 

.686, 

113 

796, 

113 

959, 

113 

960, 

114 

034, 

114 

221/ 

1109 

data 

( Longitude (i) 

i- 

8001, 

8080)/ 

1110 

.  114 

501, 

114 

499, 

114 

.933, 

115 

470, 

115 

994, 

116 

507, 

116 

821, 

117 

265, 

1111 

.  117 

701, 

117 

788, 

117 

.792, 

118 

327, 

118 

782, 

119 

214, 

119 

574, 

119 

235, 

1112 

.  119 

671, 

119 

573, 

120 

.106, 

120 

252, 

120 

666, 

120 

849, 

120 

561, 

120 

558, 

1113 

.  121 

112, 

121 

512, 

121 

.618, 

121 

910, 

121 

662, 

121 

221, 

120 

680, 

120 

146, 

114 

.  120 

146, 

120 

685, 

121 

.185, 

121 

719, 

121 

588, 

121 

131, 

120 

67  6, 

120 

090, 

1115 

.  119 

674, 

120 

121, 

120 

.693, 

121 

227, 

121 

785, 

121 

467, 

121 

100, 

120 

887, 

1116 

.  120 

640, 

120 

411, 

120 

,144, 

119 

600, 

124 

368, 

124 

628, 

125 

268, 

125 

249, 

1117 

.  125 

642, 

125 

000, 

124 

.722, 

125 

279, 

125 

909, 

126 

540, 

126 

697, 

128 

366, 

1118 

.  127 

394, 

127 

375, 

127 

.531, 

128 

079, 

128 

642, 

129 

173, 

129 

729, 

129 

802, 

1119 

.  129 

882, 

130 

354, 

130 

.696, 

126 

694, 

126 

707, 

126 

867, 

126 

243, 

126 

548/ 

1120 

data 

( Longitude ( i) 

i- 

8081, 

8160)  / 

1121 

.  126 

867, 

126 

871, 

126 

.506, 

126 

383, 

126 

548, 

127 

156, 

127 

755, 

128 

329, 

1122 

.  128 

906, 

128 

904, 

128 

903, 

129 

357, 

129. 

553, 

129 

438, 

129 

419, 

129 

219, 

1123 

.  128 

889, 

128 

566, 

128 

366, 

130 

694, 

131 

233, 

131 

568, 

132 

211, 

132 

678, 

1124 

.  133 

353, 

133 

994, 

134 

.554, 

135 

134, 

135 

462, 

135 

848, 

136 

313, 

136 

785, 

1125 

.  137 

268, 

137 

731, 

138 

.121, 

138 

402, 

138 

781, 

139 

163, 

139 

606, 

140 

0  97  , 

1126 

.  140 

171, 

140 

169, 

140 

.339, 

140 

548, 

140 

635, 

140 

439, 

140 

670, 

140 

902  , 

1127 

.  141 

365, 

141 

143, 

141 

.063. 

141 

396, 

141 

396, 

140 

742, 

140 

259, 

139 

508, 

1128 

.  138 

653, 

138 

678, 

137 

912. 

137 

471. 

136 

703, 

136 

768, 

136 

078  . 

135 

241, 

112  9 

.  135 

755, 

136 

348, 

137 

.083, 

137 

734. 

138 

149, 

138 

712, 

139 

42  9, 

140 

028, 

1130 

.  140 

623. 

141 

239, 

141 

.881, 

142 

555, 

143 

512, 

144 

503, 

145 

492, 

146 

472/ 

1131 

data 

( Longitude ( i) 

i- 

3161, 

8240)  ,' 

1132 

.  147 

403  , 

148 

362, 

149 

179, 

150 

175, 

151 

164  , 

151 

941 , 

151 

278, 

152 

2  38, 

1133 

.  153 

206, 

153 

741, 

153 

743, 

154 

694, 

154 

087, 

154 

499, 

155 

0~7  . 

155 

6  98  , 

1134 

,  156 

376, 

156 

950, 

157 

.  936, 

158 

966, 

160 

034, 

159 

925, 

160 

237, 

161 

201, 

1135 

.  161 

897, 

162 

772, 

163 

.081. 

163 

707, 

164 

793, 

165 

634, 

165 

648, 

164 

556, 

1136 

.  164 

076, 

163 

803, 

163 

.501. 

162 

789, 

161 

914, 

161 

404, 

160 

770, 

160 

079, 

118 
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1137 

.  159 

614, 

159 

006, 

158 

.304, 

157 

.489, 

156 

966, 

156 

476, 

155 

923, 

155 

713, 

1138 

.  155 

595, 

155 

579, 

155 

.  683, 

155 

.858, 

155 

971, 

156 

086, 

156 

241, 

156 

451, 

1139 

.  156 

492, 

156 

701, 

157 

.426, 

157 

.990, 

158 

395, 

158 

419, 

158 

424, 

158 

953, 

1140 

.  159 

732, 

159 

840, 

160 

.121, 

160 

.783, 

161 

644, 

162 

022, 

161 

718, 

161 

982, 

1141 

.  162 

509, 

163 

218, 

162 

.815, 

163 

.117, 

162 

281, 

162 

050, 

162 

495, 

163 

008/ 

1142 

data 

( Longituda ( i) 

i“ 

8241, 

8320)  / 

1143 

.  163 

390, 

163 

360, 

163 

.360, 

164 

.323, 

165 

288, 

166 

099, 

166 

118, 

166 

912, 

1144 

.  167 

747, 

168 

766, 

169 

.711, 

170 

.189, 

170 

618, 

171 

408, 

172 

151, 

172 

806, 

1145 

.  173 

736, 

174 

725, 

175 

.600, 

176 

.528, 

176 

987, 

176 

976, 

177 

838, 

178 

848, 

1146 

.  179 

"Tl , 

179 

265, 

178 

.356, 

178 

.395, 

177 

552, 

176 

597, 

175 

429, 

176 

592, 

114' 

.  177 

728, 

178 

909, 

179 

.822, 

180 

.006, 

180 

630, 

180 

184, 

180 

816, 

181 

132, 

1148 

.  181 

672, 

182 

859, 

183 

.  997, 

184 

.240, 

185 

303, 

186 

143, 

186 

589, 

186 

588, 

1149 

.  187 

662, 

187 

022, 

187 

.667, 

188 

.720, 

189 

507, 

189 

357, 

188 

529, 

187 

376, 

1150 

.  186 

109, 

185 

749, 

185 

.070, 

184 

.745, 

183 

860, 

182 

756, 

181 

736, 

180 

616, 

1151 

.  179 

992, 

178 

879, 

177 

.620, 

176 

.331, 

174 

889, 

173 

737, 

173 

761, 

172 

347, 

1152 

.  170 

920, 

170 

166, 

170 

931, 

170 

.623, 

169 

417, 

168 

230, 

167 

816, 

166 

569/ 

1153 

data 

(Longitude (i) 

i- 

8321, 

8400)  / 

1154 

.  165 

137, 

163 

705, 

162 

.271, 

161 

.422, 

161 

292, 

161 

001, 

160 

321, 

159 

689, 

1155 

.  159 

733, 

158 

557, 

157 

.046, 

155 

.537, 

154 

014, 

152 

542, 

151 

652, 

151 

661, 

1156 

.  150 

725, 

149 

389, 

149 

.441, 

147 

.863, 

146 

563, 

145 

390, 

145 

732, 

144 

114, 

1157 

.  145 

754, 

144 

380, 

142 

.710, 

141 

.102, 

140 

052, 

139 

697, 

140 

003, 

138 

426, 

1158 

.  136 

868, 

136 

514, 

136 

.521, 

134 

.938, 

133 

350, 

131 

947, 

131 

400, 

130 

087, 

1159 

.  129 

236, 

129 

069, 

127 

.748, 

127 

.234, 

126 

489, 

125 

071, 

123 

494, 

121 

924, 

1160 

.  120 

215, 

118 

591, 

117 

.526, 

115 

.774, 

114 

039, 

113 

586, 

114 

065, 

114 

092, 

1161 

.  114 

092, 

113 

505, 

113 

.301, 

111 

.648, 

110 

071, 

110 

102, 

108 

491, 

106 

856, 

1162 

.  105 

614, 

106 

114, 

107 

.416, 

108 

.808, 

109 

961, 

111 

369, 

112 

897, 

113 

704, 

1163 

.  112 

361, 

112 

743, 

111 

.279, 

109 

.102, 

107 

143, 

107 

265, 

105 

033, 

105 

859/ 

1164 

data 

(Longitude (i) 

i- 

9401, 

8480) / 

1165 

.  103 

540, 

101 

868, 

100 

.865, 

102 

.036, 

99 

892, 

99 

894, 

99 

911, 

100 

177, 

1166 

.  100 

187, 

99 

103, 

99 

.659, 

97 

.567, 

95 

677, 

93 

871, 

92 

429, 

90 

500, 

1167 

.  88 

789, 

86 

995, 

86 

903, 

86 

.734, 

87 

295, 

85 

844, 

86 

783, 

86 

786, 

1168 

.  85 

802, 

87 

012, 

85 

.249, 

83 

.477, 

81 

679, 

80 

278, 

80 

812, 

81 

132, 

1169 

.  82 

382, 

83 

534, 

83 

.184, 

83 

.598, 

83 

045, 

83 

182, 

83 

180, 

83 

048, 

1170 

.  82 

195, 

83 

024, 

81 

669, 

80 

.686, 

79 

296, 

77 

739, 

76 

281, 

76 

643, 

1171 

.  78 

056, 

76 

916, 

76 

.916, 

75 

.529, 

75 

213, 

75 

746, 

75 

483, 

75 

097, 

1172 

.  73 

980, 

73 

142, 

73 

.768, 

74 

.334, 

73 

763, 

73 

704, 

73 

889, 

75 

278, 

1173 

.  76 

681, 

77 

699, 

78 

.098, 

77 

.473, 

78 

587, 

79 

048, 

79 

048, 

77 

737, 

1174 

.  77 

226, 

77 

317, 

76 

.615, 

75 

.246, 

74 

427, 

74 

807, 

74 

310, 

73 

864/ 

1175 

data 

( Longitude ( i) 

,  i- 

8481, 

8560)/ 

1176 

.  72 

961, 

72 

213, 

70 

.  974, 

69 

.743, 

69 

899, 

69 

899, 

70 

804, 

71 

359, 

1177 

.  72 

320, 

73 

074, 

73 

.126, 

73 

.111, 

72 

478, 

72 

555, 

72 

609, 

72 

768, 

1178 

.  72 

446, 

72 

229, 

72 

.719, 

72 

798, 

71 

559, 

71 

557, 

69 

851, 

68 

906, 

1179 

68 

566, 

67 

953, 

66 

826, 

67 

.321, 

67 

099, 

66 

789, 

68 

096, 

68 

417, 

1180 

68 

812, 

68 

650, 

68 

.650, 

67 

.541, 

66 

464, 

65 

278, 

64 

190, 

62 

837, 

1181 

.  61 

395, 

60 

285, 

60 

.935, 

59 

.881, 

58 

701, 

57 

553, 

56 

488, 

56 

4  93, 

1182 

.  55 

154, 

54 

010, 

53 

.844, 

52 

.472, 

51 

321, 

50 

153, 

49 

064, 

47 

908, 

1183 

.  47 

752, 

46 

711, 

46 

.038, 

46 

.041, 

45 

3C5, 

45 

397, 

46 

707, 

46 

160, 

1184 

45 

064 

43 

691, 

44 

.210, 

44 

.122, 

43 

839, 

44 

431, 

44 

097, 

42 

908, 

1185 

41 

741, 

41 

644, 

41 

.644, 

40 

.603, 

39 

745, 

40 

124, 

40 

519, 

39 

351/ 

1186 

data 

( Longitude ( i) 

i- 

8561, 

8640)  / 

’IS' 

38 

188, 

37 

473, 

36 

.506, 

37 

.145, 

38 

064, 

37 

655, 

37 

655, 

36 

508, 

1188 

.  35 

748, 

34 

879, 

34 

.630, 

34 

.698, 

34 

334, 

33 

358, 

32 

562, 

31 

854, 

1189 

.  31 

854, 

32 

981, 

34 

158, 

35 

.243, 

36 

427, 

37 

594, 

38 

832, 

39 

999, 

1190 

40 

850, 

41 

376, 

41 

.031, 

40 

129, 

39 

609, 

39 

611, 

38 

538, 

37 

580, 

il91 

.  36 

452, 

35 

198, 

33 

770, 

32 

403, 

32 

096, 

30 

786, 

27 

861, 

28 

769, 

1192 

29 

734  , 

29 

001  , 

28 

.018. 

2  7 

256. 

26 

2  99, 

25 

407  , 

25 

404  , 

24 

411 , 

1193 

23 

563  , 

23 

808, 

24 

.087. 

24 

.297, 

24 

297  , 

24 

302  , 

24 

398, 

2  3 

622  , 

1194 

.  23 

078  , 

22 

361, 

21 

.579, 

21 

290, 

21 

067, 

21 

064  , 

21 

241, 

21 

244  , 

1195 

21 

102, 

20 

636, 

19 

944  , 

19 

625, 

122 

067  , 

121 

438, 

121 

153, 

117 

'87  , 

1196 

.  118 

392  , 

118 

994  , 

118 

953. 

11? 

429. 

11? 

767  , 

122 

066, 

122 

089, 

121 

618 

119" 

data 

( Longitude ( i ) 

i- 

3641, 

8720) / 

1198 

.  121 

488, 

121 

210, 

121 

854  , 

122 

.276, 

122 

826, 

123 

412, 

124 

065, 

124 

371, 

1199 

.  117 

787  , 

117 

568, 

117 

.892, 

118 

.534, 

119 

147, 

119 

431, 

119 

983, 

120 

538, 

12  00 

.  •  20 

978, 

121 

153, 

119 

600, 

119 

197, 

119 

533, 

119 

920, 

120. 

167, 

120 

731 , 

119 
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1201 

.  121 

264, 

121 

.841, 

122 

.469, 

122 

.693, 

122 

.089, 

121 

461, 

120 

941, 

120 

.312, 

1202 

.  119 

849, 

119 

.767, 

29 

.661, 

29 

.636, 

30 

.137, 

29 

715, 

30 

138, 

30 

138, 

1203 

.  30 

599, 

31 

034, 

31 

.189, 

31 

.189, 

31 

.906, 

31 

738, 

31 

961, 

32 

090, 

1204 

.  32 

798, 

33 

511, 

33 

.010, 

33 

.170, 

33 

528, 

34 

007, 

34 

515, 

35 

185, 

1205 

.  35 

885, 

36 

463, 

35 

.765, 

35 

.113, 

34 

829, 

35 

175, 

35 

283, 

35 

283, 

1206 

.  35 

799, 

36 

504, 

37 

.193, 

37 

.887, 

38 

596, 

39 

308, 

38 

676, 

38 

035, 

1207 

.  37 

738, 

37 

739, 

38 

.224, 

38 

.052, 

37 

583, 

36 

869, 

37 

200, 

37 

715/ 

1208 

aata 

( Long 

itude (i) 

i“ 

8721, 

8800) / 

1209 

38 

309, 

38 

945, 

39 

.431, 

39 

904, 

40 

.218, 

40 

218, 

40 

823, 

41 

356, 

1210 

41 

613, 

41 

773, 

41 

.403, 

40 

.800, 

10 

.212, 

39 

998, 

67 

870, 

67 

870, 

1211 

88 

119, 

88 

119, 

88 

.144, 

88 

.146, 

88 

664, 

89 

664, 

88 

872, 

88 

873, 

1212 

73 

099, 

73 

099, 

73 

.124, 

73 

.124, 

73 

.163, 

73 

163, 

73 

204, 

73 

204  , 

1213 

.  73 

240, 

73 

240, 

73 

.247, 

73 

.247, 

73 

.435, 

73 

435, 

72 

941, 

72 

941, 

1214 

.  72 

959, 

72 

959, 

72 

.984, 

72 

.984, 

73 

037, 

73 

037, 

73 

096, 

73 

096, 

1215 

.  73 

209, 

73 

209, 

73 

.379, 

73 

.379, 

73 

514, 

73 

514, 

73 

492, 

73 

4  92, 

1216 

.  73 

354, 

73 

354, 

73 

.170, 

73 

.170, 

73 

136, 

73 

136, 

73 

387, 

73 

387, 

1217 

.  73 

317, 

73 

317, 

73 

.252, 

73 

.252, 

73 

290, 

73 

2  90, 

73 

365, 

73 

365, 

1218 

.  73 

401, 

73 

401, 

73 

.518, 

73 

.518, 

73 

553, 

73 

553, 

73 

550, 

73 

550/ 

1219 

data 

(Longitude (i) 

i- 

8801, 

8880) / 

1220 

.  73 

544, 

73 

544, 

73 

.556, 

73 

.556, 

73 

568, 

73 

568, 

72 

926, 

72 

926, 

1221 

.  72 

952, 

72 

952, 

73 

.104, 

73 

.104, 

73 

116, 

73 

116, 

73 

344, 

73 

344, 

1222 

.  73 

354, 

73 

354, 

73 

.315, 

73 

.315, 

72 

873, 

72 

873, 

72 

900, 

72 

900, 

1223 

.  73 

023, 

73 

02  3, 

73 

.009, 

73 

.009, 

73 

354, 

73 

354, 

73 

361, 

73 

361, 

1224 

.  73 

549, 

73 

549, 

73 

.559, 

73 

559, 

73 

564, 

73 

564, 

73 

586, 

73 

586, 

1225 

.  72 

978, 

72 

978, 

73 

.584, 

73 

.584, 

73 

748, 

73 

748, 

72 

929, 

72 

92  9, 

1226 

.  72 

832, 

72 

832, 

72 

.794, 

72 

.794, 

72 

693, 

72 

693, 

72 

703, 

72 

703, 

1227 

.  72 

963, 

72 

963, 

73 

.345, 

73 

.345, 

73 

438, 

73 

438, 

73 

478, 

73 

478, 

1228 

.  73 

494, 

73 

494, 

73 

.508, 

73 

.508, 

73 

473, 

73 

473, 

73 

497, 

73 

4  97, 

1229 

.  73 

519, 

73 

519, 

73 

.596, 

73 

596, 

73 

638, 

73 

638, 

73 

703, 

73 

703/ 

1230 

data 

(Longitude (i) 

i- 

8881, 

8960) / 

1231 

.  73 

703, 

73 

703, 

73 

.377, 

73 

.377, 

73 

395, 

73 

395, 

72 

979, 

72 

979, 

1232 

.  73 

448, 

73 

448, 

73 

.049, 

73 

.049, 

73 

104, 

73 

104, 

73 

113, 

73 

113, 

1233 

.  73 

354, 

73 

354, 

73 

.323, 

73 

.323, 

73 

398, 

73 

398, 

73 

471, 

73 

471, 

1234 

.  73 

594, 

73 

594, 

73 

.  630, 

73 

.630, 

72 

916, 

72 

916, 

72 

932, 

72 

932, 

1235 

.  72 

964, 

72 

964, 

72 

.  977, 

72 

.977, 

72 

987, 

72 

987, 

73 

3  93, 

73 

393, 

1236 

.  73 

450, 

73 

450, 

73 

.429, 

73 

429, 

73 

390, 

73 

390, 

73 

271, 

73 

271, 

1237 

.  73 

271, 

73 

271, 

73 

.242, 

73 

.242, 

73 

129, 

73 

129, 

73 

127, 

73 

127, 

1238 

.  73 

197, 

73 

197, 

73 

.188, 

73 

188, 

73 

049, 

73 

049, 

72 

691, 

72 

691, 

1239 

.  73 

045, 

73 

045, 

73 

.070, 

73 

070, 

73 

106, 

73 

106, 

73 

163, 

73 

163, 

1240 

.  73 

182, 

73 

182, 

73 

.214, 

73 

.214, 

73 

199, 

73 

199, 

72 

905, 

72 

905/ 

1241 

data 

( Longitude (i) 

i“ 

8961, 

9040)/ 

1242 

.  72 

980, 

72 

980, 

72 

.913, 

72 

.913, 

73 

414, 

73 

414, 

72 

716, 

7  2 

716, 

1243 

.  72 

177, 

72 

177, 

72 

.113, 

72 

.113, 

73 

013, 

73 

013, 

72 

791, 

72 

791, 

1244 

.  72 

750, 

72 

750, 

72 

.549, 

72 

549, 

72 

650, 

72 

650, 

73 

672, 

73 

672, 

1245 

.  73 

662, 

73 

662, 

73 

.647, 

73 

647, 

73 

082, 

73 

082, 

72 

280, 

72 

280, 

1246 

.  72 

329, 

72 

329, 

72 

.299, 

72 

299, 

72 

199, 

72 

199, 

72 

433, 

72 

433, 

1247 

.  71 

351, 

71 

351, 

71 

.261, 

71 

261, 

71 

318, 

71 

318, 

71 

339, 

71 

339, 

1248 

.  71 

536, 

71 

536, 

71 

.586, 

71 

586, 

72 

222, 

72 

222, 

72 

211, 

72 

211, 

1249 

.  71 

966, 

71 

966, 

71 

.867, 

71 

867, 

71 

761, 

71 

761, 

71 

737, 

71 

737, 

1250 

.  71 

773, 

71 

773, 

71 

.835. 

71 

835, 

79 

794, 

79 

836, 

79 

940, 

80 

096, 

1251 

.  80 

564, 

81 

040, 

81 

.496, 

81 

810, 

81 

878, 

81 

690, 

81 

417, 

81 

415/ 

1252 

data 

( Longitude ( i ) 

i" 

9041, 

9120)/ 

1253 

.  81 

414  . 

81 

194, 

80 

.892, 

80 

567, 

80 

177, 

80 

554, 

80 

059, 

80 

074, 

1254 

79 

931, 

79 

823, 

79 

.  794, 

79 

794, 

81 

756, 

81 

757, 

79 

756, 

79 

756, 

1255 

.  79 

678, 

79 

678  , 

79 

882. 

79 

882  . 

89 

070, 

89 

069. 

92 

813  . 

r*  <. 

887  , 

1256 

92 

779, 

92 

874  , 

92 

.766, 

92 

753, 

90 

390, 

90 

3  90 , 

an 

388  , 

?0 

388  , 

1257 

90 

434  , 

90 

434  . 

90 

.593. 

on 

593. 

90 

611, 

90 

611  , 

90 

680, 

?0 

861  , 

1258 

90 

572, 

90 

680, 

90 

.621. 

90 

62 1 . 

90 

603, 

90 

603  , 

90 

588, 

90 

588  , 

125? 

90 

472, 

90 

472  , 

91 

.460. 

91 

460, 

91 

196, 

91 

196, 

91 

099, 

91 

0  9  9, 

12  60 

90 

981, 

90 

981, 

90 

994  . 

90 

994  . 

90 

955 

90 

955  . 

91 

873  , 

?1 

8^3, 

12  61 

91 

934, 

91 

934, 

90 

666. 

90 

666, 

92 

926, 

92 

931, 

93 

415, 

93 

419, 

1262 

.  93 

694, 

93 

697, 

93 

638. 

93 

641, 

93 

396, 

93 

397, 

93 

721, 

93 

721, 

1263 

data 

( Longitude (i) 

i"" 

9121, 

9200) / 

12  64 

94 

657, 

94 

658, 

94 

.824, 

94 

826, 

99 

072, 

99 

072, 

97. 

871, 

97 

871 , 

120 
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1265 

97 

889, 

97 

.889, 

97 

.518, 

97 

.519, 

97 

.665, 

97 

666, 

97 

808, 

97 

811, 

1266 

.  97 

919, 

97 

.921, 

97 

.  928, 

97 

.930, 

94 

.278, 

94 

281, 

98 

284, 

98 

285, 

1267 

.  97 

837, 

97 

836, 

98 

.311, 

98 

.312, 

98 

236, 

98 

233, 

98 

470, 

98 

472, 

1268 

98 

623, 

98 

618, 

97 

.989, 

97 

.985, 

98 

067, 

98 

065, 

97 

844, 

97 

843, 

1269 

97 

650, 

97 

64  9, 

97 

.470, 

97 

.465, 

98 

053, 

98 

050, 

98 

470, 

98 

466, 

1270 

.  98 

412, 

98 

413, 

98 

.239, 

98 

.237, 

98 

254, 

98 

252, 

98 

166, 

98 

161, 

1271 

98 

244  . 

98 

244, 

98 

.488, 

98 

.489, 

98 

498, 

98 

4  98. 

98 

430, 

98 

430, 

1272 

.  97 

891, 

97 

891, 

97 

.  943, 

97 

.941, 

98 

230, 

98 

229, 

98 

234, 

98 

234, 

1273 

98 

061, 

98 

058, 

98 

.286, 

98 

.284, 

98 

285, 

98 

284, 

93 

040, 

93 

041/ 

1274 

data 

( Longitude ( i) 

i- 

9201, 

9280)  / 

1275 

.  93 

063, 

93 

021, 

92 

.  992, 

92 

.771, 

92 

742, 

92 

638, 

92 

724, 

92 

811, 

1276 

.  92 

956, 

93 

063, 

92 

.735, 

92 

.733, 

93 

138, 

93 

138, 

93 

020, 

93 

020, 

1277 

.  93 

873, 

93 

873, 

92 

.275, 

92 

.280, 

92 

686, 

92 

686, 

92 

559, 

92 

561, 

1278 

92 

785, 

92 

787, 

93 

.099, 

93 

.098, 

93 

608, 

93 

607, 

93 

534, 

93 

534, 

1279 

93 

558, 

93 

563, 

93 

.390, 

93 

.391, 

93 

661, 

93 

664, 

93 

695, 

93 

696, 

1280 

.  93 

863, 

93 

868, 

100 

.813, 

100 

.814, 

98 

414, 

98 

416, 

98 

325, 

98 

320, 

1281 

.  100 

683, 

100 

684, 

98 

.  635, 

98 

.635, 

98 

537, 

98 

543, 

98 

329, 

98 

333, 

1282 

.  99 

400, 

99 

401, 

99 

.208, 

99 

.214, 

100 

.535, 

100 

542, 

100 

081, 

100 

076, 

1283 

.  100 

036, 

100 

038, 

99 

.698, 

99 

.699, 

99 

682, 

99 

684, 

99 

661, 

99 

663, 

1284 

.  102 

242, 

102 

243, 

102 

.310, 

102 

.309, 

102 

561, 

102 

560, 

99 

838, 

99 

836/ 

1285 

data 

(Longitude (i) 

i- 

9281, 

9360) / 

1286 

.  99 

852, 

99 

853, 

100 

.308, 

100 

.308, 

104 

188, 

104 

188, 

103 

980, 

103 

992, 

1287 

.  103 

028, 

103 

031, 

104 

.010, 

104 

.012, 

106 

656, 

106 

659, 

106 

441, 

106 

440, 

1288 

.  106 

767, 

106 

774, 

108 

.942, 

108 

.943, 

112 

913, 

112 

913, 

114 

374, 

114 

374, 

1289 

.  115 

431, 

115 

431, 

106 

.760, 

106 

.760, 

106 

911, 

106 

912, 

107 

343, 

107 

344, 

1290 

.  107 

559, 

107 

559, 

107 

.559, 

107 

.555, 

107 

716, 

107 

721, 

107 

839, 

107 

839, 

1291 

.  107 

742, 

107 

744, 

107 

.  619, 

107 

.620, 

107 

468, 

107 

471, 

107 

794, 

107 

796, 

1292 

.  107 

870, 

107 

869, 

111 

.201, 

111 

.201, 

111 

762, 

111 

762, 

112 

741, 

112 

741, 

1293 

.  112 

333, 

112 

333, 

112 

.346, 

112 

.346, 

112 

271, 

112 

271, 

112 

209, 

112 

209, 

1294 

.  Ill 

701, 

111 

701, 

111 

.600, 

111 

.600, 

111 

487, 

111 

487, 

116 

707, 

116 

707, 

1295 

.  109 

083, 

109 

083, 

109 

.574, 

110 

.107, 

110 

620, 

110 

994, 

110 

671, 

110 

478/ 

1296 

data 

(Longitude ( i) 

i“ 

9361, 

9440)/ 

1297 

.  110 

100, 

109 

707, 

109 

.188, 

108 

.705, 

108 

642, 

108 

858, 

109 

308, 

109 

580, 

1298 

.  110 

451, 

110 

456, 

110 

.525, 

110 

.532, 

118 

091, 

118 

079, 

119 

701, 

119 

701, 

1299 

.  121 

897, 

121 

901, 

122 

.124, 

122 

123, 

121 

969, 

121 

970, 

121 

201, 

121 

734, 

1300 

.  121 

195, 

121 

204, 

124 

.726, 

124 

.732, 

126 

442, 

126 

446, 

126 

379, 

126 

381, 

1301 

.  126 

834, 

126 

369, 

126 

.832, 

126 

840, 

127 

931, 

127 

938, 

128 

722, 

128 

728, 

1302 

.  130 

916, 

130 

923, 

121 

.276, 

121 

.831, 

121 

825, 

121 

646, 

121 

520, 

121 

400, 

1303 

.  121 

129, 

120 

872, 

120 

.373, 

120 

.164, 

120 

128, 

120 

297, 

120 

557, 

120 

887, 

1304 

.  121 

286, 

121 

498, 

121 

.499, 

119 

.525, 

119 

526, 

118 

2  92, 

118 

294, 

131 

654, 

1305 

.  132 

000, 

131 

606, 

131 

.185, 

130 

.718, 

130 

294, 

129 

753, 

129 

963, 

130 

559, 

1306 

.  130 

592, 

134 

606, 

134 

.379, 

133 

.792, 

133 

248, 

132 

963, 

132 

451, 

132 

482/ 

1307 

data 

( Longitude ( i) 

i“ 

9441, 

9520) / 

1308 

.  132 

826, 

133 

432, 

133 

.872, 

134 

.466, 

134 

604, 

141 

138, 

141 

403, 

141 

618, 

1309 

.  141 

876, 

142 

064, 

141 

.818, 

141 

.468, 

141 

056, 

140 

958, 

141 

021, 

140 

783, 

1310 

.  140 

615, 

140 

761, 

140 

.416, 

140 

.044, 

140 

106, 

139 

675, 

139 

100, 

138 

489, 

1311 

.  138 

006, 

137 

397, 

136 

.841, 

136 

.883, 

136 

318, 

136 

027, 

135 

466, 

135 

108, 

1312 

.  135 

321, 

134 

830, 

134 

.221, 

133 

.668, 

133 

134, 

132 

527, 

132 

158, 

131 

601, 

1313 

.  130 

996, 

131 

360, 

131 

.848, 

132 

.304, 

132 

676, 

133 

271, 

133 

880, 

134 

475, 

1314 

.  135 

083, 

135 

654, 

135 

.959, 

136 

363, 

136 

722, 

136 

734, 

137 

288, 

136 

878, 

1315 

.  137 

266, 

137 

794, 

138 

.361, 

138 

768, 

139 

224, 

139 

4  95, 

139 

805, 

140 

017, 

1316 

.  139 

977, 

139 

988, 

140 

.279, 

140 

913, 

140 

906, 

141 

141, 

141 

954, 

142 

409, 

ISl" 

.  142 

814, 

143 

347, 

143 

924, 

144 

578, 

145 

176, 

145 

115, 

145 

458, 

144 

881/ 

1318 

data 

( Longitude ( i) 

i” 

9521, 

9600) / 

1310 

.  144 

193, 

143 

650, 

143 

.325, 

142 

651, 

142 

078, 

141 

411 , 

140 

726, 

140 

802  , 

132C 

.  140 

434, 

140 

066, 

139 

.  842, 

140 

363, 

140 

4  68  , 

141 

095, 

141 

368  , 

141 

666, 

1321 

.  141 

786, 

141 

644  , 

141 

959, 

145 

313, 

145 

313, 

129 

468, 

129 

4'’3, 

12? 

330, 

1322 

.  129 

331 , 

129 

773, 

129 

.774, 

129 

537, 

129 

538, 

129 

128, 

129 

123, 

135 

004  , 

1323 

.  135 

000, 

139 

414  , 

139 

.420, 

139 

778  , 

139 

783  , 

139 

573, 

139 

572, 

141 

1’6. 

1324 

.  141 

180, 

140 

994  , 

140 

995, 

139 

446. 

13? 

453  , 

138 

513  , 

138 

313, 

138 

458  . 

1325 

.  138 

511, 

133 

292  , 

133 

.299, 

130 

592, 

130 

391, 

130 

189, 

130 

228, 

130 

602  , 

1326 

.  130 

764, 

131 

291, 

131 

.457, 

131 

621, 

131 

656, 

129 

973, 

129 

971, 

128 

655, 

132’ 

.  128 

652, 

131 

071, 

130 

879, 

131 

049, 

131 

074, 

130 

520, 

130 

524, 

129 

949, 

1320 

.  129 

949, 

129 

872  , 

129 

.876, 

129 

714, 

129 

715, 

130 

002, 

130 

006, 

129 

690/ 

121 
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1329 

data 

( Longitude (i) 

i- 

9601, 

9680) / 

1330 

.  129 

217, 

129 

685, 

129 

.691, 

129 

190, 

129 

197, 

128 

927, 

128 

934, 

128 

556, 

1331 

.  128 

563, 

128 

279, 

127 

.  944, 

128 

255, 

128 

287, 

126 

737, 

126 

747, 

131 

234, 

1332 

.  131 

238, 

125 

288, 

125 

.292, 

124 

091, 

124 

095, 

123 

786, 

123 

792, 

122 

948, 

1333 

.  122 

055, 

131 

259, 

131 

.259, 

140 

321, 

140 

321, 

142 

080, 

142 

080, 

142 

189, 

1334 

.  142 

189, 

142 

202, 

142 

.202, 

142 

236, 

142 

236, 

142 

129, 

142 

129, 

141 

358, 

1335 

.  141 

358, 

141 

295, 

141 

.295, 

145 

273, 

145 

273, 

140 

882, 

140 

882, 

146 

164, 

1336 

.  145 

882, 

146 

161, 

146 

.170, 

146 

174, 

146 

868, 

146 

875, 

141 

832, 

141 

844, 

1337 

.  141 

694, 

141 

821, 

142 

.201, 

142 

092, 

142 

160, 

142 

149, 

142 

081, 

141 

857, 

1338 

.  142 

150, 

142 

064, 

141 

.  984, 

141 

914, 

141 

898, 

142 

444, 

143 

178, 

143 

426, 

1339 

.  143 

534, 

143 

067  , 

142 

.731, 

142 

548, 

142 

736, 

142 

.990, 

143 

462, 

144 

193/ 

1340 

data 

( Longitude (i) 

i“ 

9681, 

9760)  / 

1341 

.  144 

650, 

144 

306, 

144 

.123, 

143 

893, 

143 

694, 

143 

552, 

143 

371, 

143 

105, 

1342 

.  143 

326, 

143 

324, 

133 

.  981, 

133 

982, 

60 

4  93, 

60 

472, 

143 

324, 

143 

230, 

1343 

.  142 

901, 

142 

863, 

142 

.659, 

142 

014, 

141 

.832, 

136 

.671, 

136 

668, 

137 

216, 

1344 

.  138 

049, 

137 

225, 

137 

.222, 

150 

455, 

150 

454, 

155 

481, 

155 

479, 

148 

800, 

1345 

.  148 

236, 

147 

613, 

147 

.209, 

147 

495, 

147 

923, 

148 

635, 

148 

800, 

149 

469, 

1346 

.  150 

083, 

149 

474, 

152 

.  198, 

152 

207, 

152 

421, 

152 

423, 

152 

977, 

152 

981, 

1347 

.  153 

242, 

153 

237, 

153 

.  981, 

153 

974, 

154 

464, 

154 

4  67, 

154 

594, 

154 

601, 

1348 

.  154 

355, 

154 

355, 

155 

.  446, 

155 

448, 

155 

236, 

155 

.926, 

155 

213, 

155 

227, 

1349 

.  156 

402, 

156 

397, 

166 

.241, 

166 

358, 

166 

249, 

167 

433, 

168 

056, 

167 

444, 

1350 

.  167 

440, 

163 

386, 

164 

.228, 

163 

391, 

163 

389, 

178 

7  91, 

180 

004, 

181 

563/ 

1351 

data 

(Longitude (i) 

i” 

9761, 

9840)  / 

1352 

.  181 

683, 

180 

109, 

179 

.  982, 

178 

859, 

178 

789, 

169 

412, 

168 

084, 

168 

907, 

1353 

.  169 

409, 

162 

271, 

162 

.273, 

161 

693, 

161 

692, 

160 

716, 

160 

719, 

137 

964, 

1354 

.  137 

963, 

135 

418, 

135 

.414, 

140 

588, 

140 

448, 

141 

152, 

140 

198, 

141 

843, 

1355 

.  143 

527, 

142 

470, 

141 

.165, 

146 

507, 

146 

782, 

148 

301, 

150 

213, 

148 

949, 

1356 

.  146 

995, 

146 

505, 

148 

.406, 

148 

397, 

139 

837, 

141 

691, 

143 

621, 

142 

318, 

1357 

.  143 

950, 

144 

951, 

143 

.681, 

141 

801, 

140 

983, 

139 

580, 

137 

497, 

137 

284  , 

1358 

.  137 

782, 

139 

232, 

140 

.062, 

135 

447, 

135 

448, 

126 

680, 

128 

199, 

126 

784, 

1359 

.  126 

676, 

128 

113, 

128 

.101, 

127 

318, 

129 

012, 

127 

327, 

127 

323, 

128 

292, 

1360 

.  128 

292, 

126 

510, 

127 

.756, 

12  9 

094, 

127 

897, 

126 

735, 

126 

341, 

126 

4  97, 

1361 

.  122 

438, 

124 

001, 

125 

.323, 

126 

286, 

126 

441, 

124 

981, 

123 

257, 

123 

3  62/ 

1362 

data 

( Longitude (i) 

i« 

9841, 

9920)  / 

1363 

.  122 

437, 

124 

511, 

124 

.508, 

119 

703, 

119 

698, 

115 

920, 

115 

917, 

112 

813, 

1364 

.  112 

815, 

113 

134, 

113 

.119, 

112 

022, 

112 

014, 

107 

219, 

107 

219, 

106 

524, 

1365 

.  106 

520, 

106 

422, 

106 

.422, 

105 

993, 

105 

993, 

99 

475, 

101 

654, 

104 

072, 

1366 

.  105 

239, 

103 

629, 

101 

,001, 

100 

288, 

99 

491, 

99 

452, 

99 

459, 

99 

965, 

1367 

.  97 

894, 

94 

971, 

93 

.763, 

94 

650, 

96 

956, 

99 

4  97, 

99 

456, 

95 

595, 

1368 

.  93 

062, 

92 

227, 

93 

,328, 

96 

091, 

97 

458, 

96 

315, 

95 

595, 

90 

062, 

1369 

.  90 

068, 

79 

208, 

79 

,218, 

76 

617, 

76 

618, 

91 

112, 

93 

686, 

91 

088, 

1370 

,  91 

112, 

89 

167, 

89 

.157, 

96 

521, 

96 

538, 

97 

420, 

97 

420, 

96 

644, 

1371 

.  96 

644, 

96 

461, 

96 

.464, 

82 

654, 

82 

654, 

81 

636, 

81 

650, 

82 

146, 

1372 

.  82 

150, 

82 

134, 

82 

.138, 

87 

014, 

87 

027, 

85 

4  67, 

85 

471, 

86 

206/ 

1373 

data 

(Longitude (i) 

i“ 

9921, 

10000)/ 

1374 

.  86 

206, 

85 

647, 

85 

641, 

84 

686, 

84 

692, 

83 

968, 

83 

978, 

82 

830, 

1375 

,  82 

829, 

82 

561, 

82 

.565, 

79 

161, 

79 

164, 

78 

664, 

78 

676, 

76 

8  61, 

1376 

.  76 

868, 

76 

182. 

76 

.157, 

76 

088, 

76 

081, 

75 

304, 

75 

308, 

74 

096, 

13‘'7 

.  74 

106, 

69 

868, 

70 

.618, 

70 

101, 

69 

874, 

58 

950, 

58 

757, 

59 

951. 

1378 

.  58 

936, 

59 

143, 

59 

.125, 

48 

231, 

48 

999, 

50 

194, 

49 

466, 

48 

217, 

1379 

48 

245, 

53 

001. 

53 

.013, 

51 

397, 

52 

490, 

52 

799, 

53 

151, 

54 

666, 

1380 

.  56 

336, 

55 

482, 

55 

.374, 

55 

223, 

55 

224, 

55 

866, 

56 

628, 

57 

329, 

1381 

.  55 

848, 

54 

346, 

53 

.641, 

52 

569, 

51 

406, 

56 

985, 

55 

356, 

54 

697, 

1382 

54 

265, 

55 

92  7, 

57 

.413, 

57 

292, 

58 

442, 

58 

183, 

58 

185, 

60 

007, 

1383 

.  60 

929, 

62 

460, 

64 

.262, 

66 

097. 

67 

820, 

68 

888, 

67 

046, 

65 

994,' 

13  84 

data 

( Longitude { i ) 

i-10001 , 

10080)  ,■ 

1385 

65 

993. 

64 

086, 

61 

978. 

60 

076. 

58 

565. 

5” 

110, 

5b 

860  . 

56 

974  , 

1386 

.  58 

7  96, 

58 

800, 

57 

635, 

57 

63  5, 

55 

773. 

55 

803  , 

52 

316, 

52 

319. 

1387 

.  47 

616, 

49 

154, 

47 

.783, 

47 

637, 

44 

953. 

4” 

876, 

45 

116, 

44 

966, 

1398 

.  59 

307  , 

61 

596, 

60 

.056, 

59 

313, 

62 

551, 

65 

036, 

63 

616, 

62 

c  ^  - 

1389 

60 

063, 

60 

101, 

56 

102, 

56 

104, 

54 

00”  , 

54 

005, 

54 

428, 

5” 

-1  7^ 

1390 

.  54 

429, 

55 

471, 

55 

.500, 

55 

564, 

55 

556, 

56 

847, 

56 

847  , 

57 

90  9, 

1391 

57 

909, 

61 

765, 

61 

.  777, 

62 

164, 

62 

194, 

42 

541, 

42 

578, 

35 

7  98, 

1392 

.  35 

812  , 

23 

183, 

23 

.192, 

22 

634, 

22 

640, 

23 

238, 

23 

253, 

24 

014  , 

122 
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1393 

.  24 

022, 

22 

994, 

22 

.368, 

23 

009, 

60 

471, 

60 

4  91, 

31 

519, 

32 

168, 

1394 

.  31 

502, 

31 

519, 

50 

116, 

50 

116, 

53 

493, 

53 

493, 

53 

083, 

53 

083,' 

1395 

data 

(Longitude (i) 

, i-10081. 

10160) / 

1396 

.  59 

051, 

59 

051, 

59 

782, 

59 

782, 

49 

340, 

48 

928, 

48 

885, 

48 

942, 

1397 

49 

310, 

49 

939, 

50 

.374, 

50 

896, 

51 

487, 

52 

111, 

52 

715, 

53 

320, 

1398 

.  53 

943, 

53 

894, 

53 

804, 

53 

841, 

53 

983, 

53 

882, 

73 

750, 

•’3 

753, 

1399 

.  103 

734, 

104 

141, 

104 

478, 

104 

012, 

103 

703, 

103 

735, 

100 

421, 

100 

681, 

1400 

.  100 

458, 

100 

302, 

100 

.435, 

109 

486, 

109 

805, 

109 

.641, 

109 

482, 

109 

185, 

1401 

.  108 

894, 

108 

285, 

107 

592, 

106 

893, 

106 

277, 

105 

803, 

105 

035, 

104 

232  , 

1402 

.  104 

809, 

105 

541, 

106 

010, 

106 

662, 

107 

096, 

107 

.643, 

108 

229, 

108 

560, 

1403 

.  108 

944  . 

109 

221, 

109 

507, 

74 

190, 

74 

719, 

75 

.449, 

76 

177, 

76 

844, 

1404 

77 

571, 

78 

264, 

78 

831, 

78 

424, 

77 

698, 

76 

981, 

76 

267, 

75 

555, 

1405 

.  74 

859, 

74 

290, 

74 

086, 

74 

073, 

73 

664, 

73 

.641, 

74 

021, 

74 

..02/ 

1406 

data 

(Longitude ( i) 

,  i-10161. 

10240) / 

1407 

.  61 

452, 

61 

844, 

61 

.297, 

61 

049, 

61 

386, 

60 

.883, 

60 

177, 

34 

641 , 

1408 

.  35 

554, 

35 

665, 

36 

087, 

36 

359, 

35 

336, 

35 

.048, 

34 

289, 

34 

117, 

1409 

.  34 

993, 

35 

334, 

34 

464, 

34 

640, 

38 

122, 

38 

705, 

38 

321, 

37 

638, 

1410 

37 

120, 

37 

899, 

37 

689, 

38 

138, 

30 

925, 

31 

713, 

32 

550, 

32 

943, 

1411 

.  32 

519, 

31 

535, 

30 

855, 

30 

447, 

30 

208, 

30 

946, 

29 

328, 

29 

326, 

1412 

.  29 

329, 

29 

327, 

60 

176, 

59 

976, 

59 

515, 

33 

691, 

34 

411, 

34 

919, 

1413 

.  35 

286, 

34 

763, 

34 

193, 

33 

691, 

49 

340, 

49 

415, 

49 

737, 

50 

389, 

1414 

.  49 

938, 

49 

384, 

49 

097, 

48 

325, 

48 

283, 

47 

901, 

47 

535, 

47 

497, 

1415 

47 

388, 

46 

989, 

46 

883, 

46 

883, 

47 

288, 

47 

546, 

48 

240, 

48 

827, 

1416 

.  49 

248, 

49 

950, 

50 

572, 

51 

225, 

51 

877, 

52 

609, 

53 

207, 

53 

119/ 

1417 

data 

(Longitude ( i) 

,  i-10241. 

10320) / 

1418 

.  53 

079, 

53 

078, 

52 

739, 

52 

094, 

51 

384, 

50 

974, 

51 

502, 

50 

802, 

1419 

.  50 

857, 

51 

112, 

51 

263, 

51 

846, 

52 

521, 

52 

577, 

52 

463, 

52 

764, 

1420 

.  52 

884, 

53 

473, 

53 

994, 

54 

288, 

54 

754, 

54 

.224, 

53 

614, 

52 

966, 

1421 

.  52 

756, 

52 

762, 

53 

417, 

53 

675, 

53 

148, 

53 

744, 

53 

882, 

59 

515, 

1422 

.  58 

820, 

58 

525, 

58 

257, 

58 

201, 

58 

384, 

58 

.968, 

59 

658, 

60 

346, 

1423 

.  61 

008, 

60 

967, 

61 

355, 

61 

452, 

149 

161, 

149 

.281, 

149 

486, 

149 

701, 

1424 

.  150 

243, 

150 

732, 

150 

756, 

151 

036, 

151 

397, 

151 

894, 

151 

894, 

152 

128, 

1425 

.  152 

499, 

152 

913, 

152 

999, 

153 

072, 

153 

157, 

153 

057, 

153 

357, 

153 

439, 

1426 

.  153 

439, 

153 

567, 

153 

526, 

153 

357, 

153 

265, 

153 

084, 

153 

056, 

152 

939, 

1427 

.  152 

739, 

152 

544, 

152 

547, 

152 

547, 

152 

125, 

151 

667, 

151 

355, 

151 

0  96/ 

1428 

data 

( Longitude (i) 

,i-10321. 

10400)  / 

1429 

.  150 

925, 

150 

779, 

150 

455, 

150 

189, 

150 

086, 

150 

078, 

150 

054, 

149 

900, 

1430 

.  149 

753, 

149 

187, 

148 

553, 

147 

932, 

147 

412, 

146 

978, 

146 

350, 

146 

379, 

1431 

.  146 

379, 

145 

885, 

145 

434, 

144. 

799, 

144 

994, 

144 

397, 

144 

021, 

143 

549, 

1432 

.  143 

536, 

143 

533, 

142 

964, 

142 

411, 

141 

783, 

141 

162, 

140 

547, 

140 

161, 

1433 

.  139 

767, 

139 

671, 

139 

671, 

139 

774, 

139 

493, 

139 

052, 

139 

509, 

139 

083, 

1434 

.  138 

468, 

138 

279, 

138 

278, 

138. 

455, 

138 

435, 

138 

157, 

137 

883, 

137 

711, 

1435 

.  137 

109, 

137 

454, 

137 

491, 

137 

64  4, 

137 

875, 

137 

920, 

137 

444, 

137 

224, 

1436 

.  136 

689, 

136. 

274, 

135 

889, 

135. 

961, 

135 

962, 

135 

454, 

135 

334, 

135 

058, 

1437 

.  134 

796, 

134 

263, 

134 

283, 

133 

844, 

133 

254, 

132 

746, 

132 

482, 

132 

483, 

1438 

.  131 

940, 

131 

432, 

130 

844, 

130 

256, 

129 

668, 

129 

079, 

128 

536, 

127 

991/ 

1439 

data 

( Longitude ( i) 

,  i-10401. 

10480) / 

1440 

.  127 

420, 

126 

829, 

126 

239, 

126 

003, 

148 

008, 

148 

267, 

148 

289, 

148 

366, 

1441 

.  147 

938, 

147 

971, 

147 

993, 

147. 

993, 

147 

587, 

147 

253, 

146 

756, 

146 

067, 

1442 

.  145 

719, 

145 

359, 

145 

339, 

144 

983, 

144 

752, 

144 

754, 

144 

645, 

145 

252, 

1443 

.  145 

784, 

146 

414, 

147 

027, 

147 

664, 

148 

006, 

126 

003, 

125 

507, 

124 

969, 

1444 

.  124 

409, 

124  . 

022, 

123 

734, 

123. 

198, 

122 

606, 

122 

004, 

121 

401, 

120 

800, 

1445 

.  120 

198, 

119 

622, 

119 

558, 

119 

556, 

118 

953, 

118 

452, 

117 

940, 

117 

327, 

1446 

.  116 

716, 

116. 

149, 

115 

696, 

115. 

118, 

114 

958, 

114 

989, 

114 

998, 

115 

585, 

144'’ 

.  115 

651, 

115 

744  , 

115 

745, 

115 

556, 

115 

310, 

115 

062  , 

114 

939, 

114 

9  -  2  , 

1448 

.  114 

797  , 

114 

578, 

114 

578, 

114 

370. 

114 

103  , 

114 

034  , 

113 

“69. 

113 

426, 

1449 

.  113 

265, 

113 

546, 

11? 

531 , 

113  . 

954  . 

114 

251 , 

113 

942  , 

11? 

661, 

113 

613 

1459 

data 

<  Longitude  ^ i ) 

,  i-10481. 

10560)  , 

14  51 

.  113 

613, 

113  . 

391, 

11? 

4  54, 

113 

749. 

11?. 

81?, 

113 

6?9. 

113 

8?7 , 

114 

124  , 

14  52 

.  114 

499, 

114 

831, 

115 

332, 

115 

757, 

116 

083 . 

116 

085, 

116. 

551, 

117 

'*>■'  3  ^ 

14  53 

.  117 

606, 

118 

069, 

118 

597, 

119 

032, 

119 

565, 

119 

714  , 

119 

714  , 

120 

245, 

1454 

.  120 

739, 

121. 

200, 

121 

519, 

121 

778, 

122. 

ISl, 

122 

192, 

122. 

172, 

122 

566, 

1455 

.  122 

859, 

122 

970, 

122 

969, 

123 

257, 

123 

503, 

123 

810, 

123 

504  , 

123 

601 , 

1456 

.  124 

113, 

124 

618, 

124 

610, 

124. 

676, 

125. 

181, 

125 

182, 

125. 

184, 

124 

826, 

123 
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145’ 

.  125, 

.346, 

125 

.299, 

125 

.  601, 

125 

.899, 

126 

.  142, 

126 

.653, 

126, 

.952, 

126 

.  955, 

1458 

.  127 

.421, 

127 

.  '72, 

129 

.  135. 

128 

.086, 

127 

.420, 

128 

.  939, 

129. 

.455, 

129 

,  953, 

14  5  9 

.  129, 

.511. 

129 

.590, 

129 

.  824, 

130, 

.269, 

130, 

.143, 

130 

.144, 

130. 

.  609, 

130 

.  969, 

14  60 

.  131 

.480, 

131 

.  993, 

132 

.482. 

132 

.669, 

132 

.188, 

132 

.  699, 

133, 

.047, 

133 

,  048,' 

1461 

data 

( Longituda ( i ) 

,  i-10561, 

10640) / 

146: 

.  133  , 

.466, 

133 

.  964  , 

134 

.454. 

134 

.  959, 

.459, 

135 

.  888, 

135, 

.  733, 

136, 

.224, 

1463 

.  136 

.404, 

136 

.580, 

136 

.581. 

136 

136 

.  671, 

136 

.483, 

135, 

.978, 

136 

.011, 

14  64 

.  135 , 

.395, 

135 

.  517, 

135 

.368, 

135 

.368, 

135 

.708, 

136 

.149, 

136, 

.524, 

IS"’ 

,015, 

1465 

-  133  , 

.460, 

137 

.  883, 

138 

.304, 

138 

.817, 

139 

.176, 

139 

.608, 

139, 

,781, 

139 

.781, 

1466 

.  140, 

,296, 

140 

.771, 

140 

.957, 

141 

.234, 

141 

.416, 

141 

.449, 

141, 

,633, 

141 

.546, 

1463 

.  141  , 

.  600, 

141 

.508, 

141 

.  631, 

141 

.632, 

141 

.720, 

141 

.679, 

141, 

.946, 

142 

.098, 

1468 

.  142, 

.144, 

142 

.609, 

142 

.786, 

142 

.866. 

143 

.245, 

143 

.247, 

143. 

.272, 

143 

.497, 

1469 

.  143. 

,591, 

143 

.597, 

143 

.773, 

144 

.282, 

144 

.725, 

145 

.154, 

145, 

.341, 

145 

.342, 

1430 

.  145, 

.235, 

145 

.361, 

145 

.  406, 

145 

.728, 

145 

.  978, 

146 

.102, 

146. 

.009, 

146 

.334, 

1431 

.  146. 

.334, 

146 

.424, 

146 

.873, 

147 

.395, 

147 

.697, 

148 

.220, 

148. 

.683, 

148 

.  727 

1432 

data 

(Longituda (i) 

,  i-10641. 

10720) / 

1433 

.  149, 

.157, 

149 

.161, 

96 

.924, 

96, 

.  924, 

96 

.836. 

96 

.836, 

117, 

.592, 

118 

.085, 

1434 

.  118, 

.538, 

118 

.230, 

118 

.692, 

119, 

.166, 

118. 

.842, 

118 

.430, 

117, 

.  925, 

117, 

,  464  . 

1435 

.  117, 

.464, 

117 

.729, 

117 

.350, 

116. 

.845, 

116, 

.375, 

116 

.094, 

115, 

.836, 

115 

.370, 

1476 

.  115, 

.151, 

115 

.145, 

115 

.029, 

115, 

.020, 

114 

.089, 

113 

.844, 

113, 

.488, 

113 

.  181, 

143-> 

.  112. 

.384, 

112 

.295, 

111 

.  800, 

111, 

.415, 

111 

.263, 

111 

.019, 

110, 

.517, 

110, 

.017, 

14':'8 

.  109. 

.650, 

109 

.651, 

118 

.656, 

118. 

.660, 

110 

284, 

118 

.395, 

117. 

,341, 

117, 

.343, 

1439 

.  117. 

.093, 

117 

.098, 

116 

.869, 

116, 

.873, 

115, 

.168, 

115 

.166, 

111. 

.312, 

111 

.312, 

1480 

.  115. 

.146, 

115 

.029, 

115 

.019, 

114  . 

.548, 

114  . 

.088, 

95 

.238, 

95. 

.  '43, 

96. 

.142  , 

1481 

.  96, 

,641, 

97 

.  *43, 

97 

.  635, 

97. 

.  968, 

.268, 

98 

.592, 

99, 

,  007, 

99, 

.  431, 

1482 

.  99 

.  826, 

100 

.002, 

100 

.  406, 

100, 

.826, 

100 

.942, 

100 

,942, 

101, 

.430, 

101 

.  904/ 

1483 

data 

( Longituda ( i) 

,  i-10721. 

10800) / 

1484 

.  102. 

,190, 

102, 

.520, 

103. 

.004, 

102, 

.659, 

103, 

.140, 

103, 

.  638, 

103. 

.491, 

103. 

.271, 

1485 

.  103. 

.270, 

103. 

.398, 

103, 

.807, 

104, 

.310, 

104 

.452, 

104 

.606, 

104  , 

.722, 

105 

,209 

1486 

.  *05. 

,632, 

105, 

.997, 

105. 

.081, 

105, 

.904, 

105. 

.891, 

105 

.903, 

105, 

.835, 

105 

,545, 

1483 

.  105. 

,544, 

105. 

.047, 

104  . 

.  613, 

104. 

.111, 

103, 

.810, 

103 

.372, 

102. 

.  958, 

102  , 

.575, 

1488 

.  102. 

,259, 

101. 

,  897, 

101, 

.526, 

101, 

.251, 

130 

.903, 

100 

.790, 

100, 

.576, 

100 

.411, 

1439 

.  100. 

,411, 

100, 

.122, 

99, 

,808, 

99, 

.488, 

99 

.124, 

98 

,  953, 

98, 

.778, 

98. 

.565, 

1490 

.  98 . 

138, 

97  , 

.681, 

97, 

,597, 

97, 

.250, 

96, 

.  912, 

96. 

.449, 

96. 

099, 

95, 

.  735, 

1491 

.  95. 

405, 

95. 

,226, 

95, 

,238, 

95. 

.116, 

95, 

.121, 

95, 

,379, 

95. 

,380, 

96. 

.464, 

1492 

.  96. 

022, 

96. 

.477, 

96, 

.457, 

97  . 

.341, 

97. 

,343, 

97  , 

.150, 

97. 

,148, 

98, 

.582, 

1493 

.  93 . 

578, 

98. 

,556, 

98, 

,555, 

98, 

.502, 

98, 

.502, 

99, 

.201, 

.  J  . 

783, 

98. 

,652,' 

1494 

data 

(Longituda (i) , 

,1-10801, 

10880)/ 

1495 

.  99. 

068, 

99. 

.286, 

99, 

,196, 

>9. 

,858, 

99. 

.  859, 

100, 

.206, 

100. 

,203, 

100. 

,467, 

1496 

.  100. 

467  , 

102  . 

,381, 

102  , 

,378, 

97, 

.918, 

97, 

.415, 

97  . 

.139, 

97. 

629. 

97  , 

,  914, 

1493 

.  104  . 

784. 

104  . 

,789, 

105 

261, 

105, 

,261, 

107, 

.482, 

107  . 

.482, 

106. 

,826, 

106. 

,  826, 

1498 

.  105. 

889, 

106. 

,  174, 

106. 

.286, 

106, 

.762, 

106, 

,  738, 

106, 

.262, 

105. 

941, 

105. 

.632, 

1499 

.  105. 

1..4, 

105, 

,  380, 

105. 

,  863, 

105. 

.894, 

107, 

,709, 

108. 

.197, 

108. 

077, 

107  , 

.592, 

1500 

.  107 

107, 

,709, 

103. 

.713, 

103, 

.721, 

IOh  , 

,208, 

104, 

.215, 

104. 

482, 

104. 

4  85, 

1501 

.  104  . 

611, 

104  . 

,615, 

104  . 

,552, 

104  . 

.556, 

104  . 

.419, 

104  , 

.420, 

1^4  . 

352, 

104  . 

,357, 

1502 

.  104. 

286, 

104. 

.281, 

104. 

.258, 

104  . 

.258, 

104  , 

,854, 

104. 

.853. 

104. 

666, 

104  , 

,  667, 

1503 

.  104  . 

152, 

104  . 

,  153, 

103. 

,  963, 

103, 

,  966, 

103, 

,  938, 

103  , 

.  941, 

103. 

836, 

103  . 

.836, 

1504 

.  103  . 

524, 

103  . 

,526, 

103. 

,507, 

103. 

.507, 

103. 

.435, 

103. 

.436, 

103. 

296, 

103. 

,297/ 

1505 

data 

( Longituda ( i) , 

,  i-10881. 

10960)  / 

!  506 

.  103  . 

167, 

102  . 

693, 

103 

,171, 

103. 

,166, 

103. 

,051, 

102, 

.249, 

103. 

049, 

103  . 

052, 

1  5  n 

.  102  . 

4*^9. 

102  . 

478, 

102 

495, 

102  . 

.009, 

102  . 

.  ^95 , 

102  . 

.495, 

101. 

774, 

101  . 

.774, 

1508 

.  105. 

711, 

105. 

706, 

106 

235, 

106. 

,233, 

106, 

,230, 

106. 

.239, 

106. 

213  , 

106  . 

213, 

1  5  9 

.  103  . 

940, 

107  . 

93  9, 

108 

066, 

108, 

062, 

10', 

746, 

107, 

.  746, 

108. 

778, 

10'  . 

782, 

151: 

.  108  . 

974  , 

108  . 

973, 

107 

‘  , 

107. 

,529, 

109. 

,756, 

109. 

.756, 

108. 

951, 

108  . 

956, 

1511 

.  115  . 

8  4  9, 

115  . 

845  , 

116 

270, 

116, 

.313, 

116. 

167  , 

116. 

,271, 

116. 

429. 

116. 

42?, 

■<  C  3  ' 

.  119. 

5 1  ^ 

118  . 

5'5, 

117 

548, 

11~  . 

,555. 

ll”  . 

231, 

11'  . 

,  235  , 

il'. 

"92  . 

11". 

306, 

151^ 

.  11'  . 

609, 

11'  . 

611, 

11' 

695, 

11'. 

698 . 

1C'?. 

650, 

10?  , 

.  2  8^  , 

10?. 

.23. 

K‘?  . 

9  4 1 , 

1514 

.  '  .  3  . 

916, 

109. 

195, 

109 

312  , 

109. 

,642. 

’  1C. 

023, 

,  908  , 

110. 

•  .  ,  r 

lie  . 

2  "  ? , 

151'^ 

.  110  . 

2'9, 

11?  . 

60?, 

111 

099 . 

Ill . 

589 , 

i  1  X  . 

9?6. 

112  . 

322  , 

112. 

02f . 

113. 

1516 

data 

( Lonait  ude  < i f . 

,  1-10961 , 

2  1040) 

151' 

.  113  . 

'33  , 

114  . 

268  , 

114  . 

546. 

114  . 

546, 

114  . 

,  b03. 

115  . 

099, 

115. 

558, 

115  . 

?  . 

1518 

.  116  . 

268  , 

116. 

116. 

605, 

116. 

,27b. 

116. 

602  , 

117  . 

032  , 

117  . 

445, 

11'  . 

4  42  , 

151? 

.  117  . 

442, 

117. 

529, 

117  . 

614  , 

119  . 

006. 

118. 

505, 

lie. 

992, 

118. 

637, 

118  . 

224  , 

15  2  0 

.  117. 

874, 

117  . 

,  995, 

117  . 

,  648  , 

117  . 

.  328, 

117  . 

,030, 

117. 

.521, 

117  . 

59C  , 

lOP  . 

819, 

124 
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1521 

.  108.826, 

109.904, 

110.361, 

110.849, 

111.355, 

111.86., 

112.364, 

112.872, 

1  C,  ' 

.  113.378, 

113 . 846, 

114.349,  114.409, 

114.152, 

113.645, 

113.139, 

112.811, 

152"^ 

.  112.612, 

112.612, 

112.127,  111.657, 

111.153, 

110.688, 

110.466, 

109. 961, 

152.1 

.  109.463, 

108 . 955, 

108.552, 

108.094, 

107 . 606, 

107.152, 

107 . 003 , 

107 . 003 , 

152  5 

.  106.497, 

106 . 013 , 

105.822, 

105.506, 

106.007, 

106.492, 

106.721, 

10'  .224, 

1516 

.  107.701, 

108 .193, 

108.689,  109.195, 

109.691, 

109.906, 

112.695, 

112 .695 

7  c  ~  - 

1 1 2  9 

data  ( Longitude ( i ) 

.  115.291,  115.293, 

i-11041, 11120) 
114.479,  114.981, 

115.488, 

115.305, 

114 . 841 , 

114.44', 

1529 

.  114.478, 

115.548, 

115.548, 

116.340, 

116.617, 

116.197, 

116.055, 

116.345, 

1530 

.  117.214, 

117 . 686, 

118 . 188, 

117.801, 

118.308, 

118 . 809, 

119.194, 

118 . 701 , 

1531 

.  118.199, 

117.696, 

117.200,  116.785, 

117.133, 

117.215, 

119.082, 

119.088, 

15  3  2 

.  119.035, 

119.541, 

120.046, 

120.487, 

120.832, 

120.377, 

119.955, 

119.496, 

1533 

.  119.006, 

119.037, 

119.451, 

119.456, 

120.272, 

120.779, 

121.267, 

121.773, 

1534 

.  122.259, 

122.694, 

122.345,  121.847, 

121.342, 

120.842, 

120.334, 

119.827, 

1535 

.  120.115, 

120.276, 

123.082,  123.091, 

123.404, 

123.908, 

123.536, 

123. 410, 

153  6 

.  123.976, 

123 . 982, 

124.472, 

124 . 978, 

124.554, 

124.475, 

121.722, 

121.726, 

153'' 

.  122.854, 

123.294, 

122.954, 

122.856, 

123.435, 

123.440, 

123.411, 

123.416, 

1538 

153  9 

data  ( Longitude ( i) 

.  125.096,  125.546, 

i-11121, 11200) / 
126.031,  126.511, 

126.964, 

126.511, 

126. 0l4, 

125.497, 

1540 

.  125.060, 

124 . 656, 

124.461, 

124.463, 

123.985, 

123 . 667, 

123.517, 

124.026, 

1541 

.  124.503, 

124 . 851 , 

125.096, 

125.647, 

125.647, 

125.968, 

126.473, 

126.050, 

1542 

.  125.974, 

127 . 417 , 

127.416,  127.794, 

127 .798, 

128.617, 

128. 624, 

129.629, 

1543 

.  129.632, 

131 . 646, 

1.71 . 632, 

131.324, 

131.227, 

131.557, 

131.649, 

131 . 036, 

1544 

.  131.037, 

’  '■7.753, 

131.756,  120.494, 

120.529, 

120.465, 

120.496, 

120. 0'4, 

1545 

.  119.575, 

119.376, 

119.514, 

119.607, 

119.471, 

119.016, 

118.765, 

118 . 952 , 

1546 

.  119.161, 

119.299, 

119.352,  119.645, 

119.842, 

119.843. 

119.759, 

119.867, 

1540 

.  120.037, 

120 . 489, 

120.822, 

121.319, 

121.791, 

122.289, 

122.772, 

122.847, 

1548 

.  122.847, 

123.339, 

123.833, 

124.297, 

124 . 610, 

124 . 992, 

125.058, 

124.725 

1549 

1550 

data  (Longitude (i) 

.  124.431,  123.942, 

i-11201, 11280) / 
123.441,  123.071, 

123.069, 

122.568, 

122.066, 

121 .565, 

1551 

.  121.077, 

120.586, 

120.176,  119.999, 

130.119, 

120.523, 

120.738, 

120.738, 

1552 

.  121.209, 

121.578, 

122.077, 

122.556, 

123.031, 

123.392, 

122.890, 

122.559, 

1553 

.  122.183, 

121. '44, 

121.341, 

121.341, 

121.770, 

122.014, 

122.334, 

122  .196, 

1554 

.  122.586, 

122.890, 

122.406, 

122.095, 

121.597, 

121.530, 

121.596, 

121.596, 

1555 

.  121.157, 

120 . 931, 

121.080, 

120.611, 

120.200, 

120.409, 

120.351, 

120.366, 

1556 

.  120.310, 

120.398, 

120.074,  125.301, 

125.299, 

125.452, 

125.449, 

125.449, 

155' 

.  125.446, 

125.658, 

125.654, 

126.861, 

126.860, 

126.741, 

126.740, 

126.878, 

1558 

.  126.707, 

126.731, 

126.879,  121.646. 

121.647, 

121.914, 

121.912, 

122.049, 

1559 

.  122.049, 

122 . 132, 

122.133, 

122.364, 

122.365, 

123.554, 

123.166, 

122 .882, 

1560 

1561 

data  ( Longitude ( i) 

.  123.384,  123.555, 

i-11291, 11360) / 
123.144,  123.142, 

12.7.377, 

123.378, 

123.853, 

123.856, 

1562 

.  124.421, 

124.921, 

124.530, 

124 . 425, 

125.413, 

125.915, 

125.438, 

125.416, 

15  63 

.  125.955, 

126.076, 

125 . 888, 

125.959, 

123.119, 

123.122, 

123.044, 

123 .046, 

15  64 

.  121.977, 

121 . 981, 

122 . 709, 

122 . 630, 

122.684, 

122.712, 

123.076, 

123.018, 

1565 

.  123.094, 

122.677, 

122.813, 

122.845, 

123.073, 

126.127, 

126.629, 

127.105, 

1566 

.  127.004, 

126.503, 

126.096,  126.130, 

128.182, 

128 . 685, 

129.179, 

129.666, 

156' 

.  130.147, 

130. 605, 

130.872, 

130.368, 

129.943, 

129.446. 

128.952, 

228.458, 

156P 

.  1^7, 9i6, 

128.079, 

128 .182, 

128.030, 

128.038, 

128.434, 

128.441, 

128.580, 

1569 

.  128.584, 

128.794, 

128.794,  129.876, 

129.883, 

131.419, 

131.420, 

131 . 631 . 

’  C 

.  131.634, 

131 . 731 , 

131.733, 

1  2.738, 

132 . 739, 

133.176, 

132.961 , 

133 .15' 

data  1  Longitude ( i) 

.  133.179,  134.121, 

i-) • 36. , 11440) / 
134.488,  134.198, 

134.117, 

134 . 123, 

134.511, 

1  3  4  .  '  5  5  . 

.  134.622 

lO-i  318, 

134 .489, 

134.516, 

127.461, 

127 . 964 , 

127 . 533 . 

12'  .  461  , 

1  "  4 

.  12  .  5  , 

12^.566. 

127.52'. 

127.832. 

127.353, 

127 , 531, 

127.235. 

1 2 ' . :  3  7  , 

2  c;  c 

.  12'. 243, 

12'. 243, 

12'. 399. 

127 . 404 

12'  .  439. 

1 2 .  4  3  . 

1 2  ,  3  . 

i:" .  341 . 

,  q  -  ^ 

,  1  2  8  . ; '  ►  , 

120  .383, 

128.298, 

12  8.2". 

128  .  , 

128.441, 

12' . 7i5 . 

13"  .  ?  . 

•  t  - 

1  2  ®  .  I'  8  ^  . 

: :  8 . 4  c  p , 

12' . 3P', 

12"  .  66*?. 

12 " . 99? . 

1 2  ~ . 

13 " . ^  . 

1  c  -  2 

1 2  "  .  4  1 5  , 

12'. 5'?. 

12' . 8'5, 

128 . 005, 

128.010, 

128 . 010, 

12^ - 6?4 , 

13  9.1'^!. 

Q 

.  IIP . 514 

128 . 'o: , 

128.261. 

128.680. 

128 . 701 . 

127.321, 

1  2  7 , 5  2  c  , 

13^^92'.  , 

.  1  3  1.2  98, 

1  31  .  804 . 

130.302, 

130 . 

130.925. 

130.635, 

130 . 63'^ . 

1  3  0  .  5  4  ; , 

158' 

.  130.849, 

130 .891 . 

■’  "J  n  poo 

*29. 9'5. 

12  ? . 9" 9 . 

130 . 351 , 

120.  969, 

1 3  .  3  4  ' 

151 

15  03 

data  ( Longitude  f i ) 

.  130.354,  131,631, 

1-11441,  11520, 
131.640.  133.325, 

133 .329, 

138 . 553, 

133.0.. 

138.684 . 

1584 

,  138.484, 

13  7.97  ,-, 

137 . 854 , 

138 . 171, 

138.570, 

138 . 821, 

138.824, 

141  .  OCB . 

125 
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1585 

.  140 

.  615, 

140 

.271, 

140 

.048, 

139, 

.568, 

139 

.061, 

139, 

,045, 

138, 

,746, 

139, 

.165, 

1586 

.  139, 

.187, 

139 

.187, 

138 

.734, 

138. 

,433, 

138, 

.400, 

138. 

.071, 

137. 

,  633, 

137. 

,176, 

1587 

.  136 

.  691, 

136 

.217, 

135 

.746, 

135. 

.244, 

134  , 

.815, 

134. 

.815, 

134. 

.443, 

133  , 

.951, 

1586 

.  133 

.  699, 

133 

.  405, 

133 

.007, 

132. 

.730, 

132. 

.618, 

132  , 

.195, 

132. 

.  683, 

133  . 

.062, 

1589 

.  133  , 

.559, 

133 

.  679, 

133 

.  679, 

133. 

.947, 

133, 

.448, 

132. 

.948, 

132. 

.451, 

132. 

.006, 

1590 

.  131  , 

.811, 

131 

.324, 

131 

.285, 

131. 

.512, 

131, 

.512, 

131, 

.960, 

132. 

.414, 

132  , 

,905, 

1591 

.  133  , 

.342, 

133 

.841, 

134 

.  135, 

134. 

.101, 

134, 

.  140, 

134  , 

.359, 

134. 

.462, 

134  , 

.462, 

1592 

.  134  . 

.863, 

135, 

.316, 

135 

.  747, 

136. 

.019, 

136, 

.345, 

136, 

,834, 

137, 

.201, 

137  , 

.200,' 

1593 

data 

( Longitude ( i) 

,  i-11521. 

11600) / 

1594 

.  137  , 

.546, 

138 

.  049, 

138 

.522, 

138. 

.976, 

139 

.  434, 

139, 

.897, 

140. 

.401, 

140, 

.862, 

1595 

.  141  . 

,  008, 

134 

.243, 

134 

.247, 

134. 

,406, 

134  , 

.413, 

134. 

.576, 

134. 

,576, 

134  , 

.892, 

1596 

.  134. 

.894, 

135 

.123, 

135 

.127, 

135. 

.499, 

135, 

.  997, 

136, 

.497, 

136. 

.003, 

135 

.515, 

1597 

.  135, 

.505, 

135 

.457, 

135 

.  943, 

136. 

.338, 

135, 

.838, 

135, 

.499, 

135, 

.461, 

141, 

.007, 

1598 

.  141 . 

.488, 

141 

.947, 

142 

.411, 

142. 

.887, 

143. 

.384, 

143. 

.828, 

144. 

,301, 

144  . 

.  747, 

1599 

.  145, 

,127, 

145 

.565, 

145 

.809, 

146. 

.036, 

146. 

.522, 

146. 

.963, 

147, 

,460, 

147  , 

.813, 

1600 

.  147  . 

.537, 

147 

.  033, 

146 

.  964  , 

146. 

.961, 

147  , 

.137, 

147  , 

.464, 

147. 

,832, 

148  . 

.204, 

1601 

.  140. 

.464, 

148 

.797, 

149 

.298, 

149. 

.339, 

149. 

.842, 

150. 

.049, 

150. 

,542, 

150. 

.391, 

1602 

.  149. 

.  902, 

150 

.079, 

150 

.079, 

149. 

.583, 

149, 

.  083, 

148. 

.578, 

148. 

,  070, 

147  , 

.591, 

1603 

.  147, 

.313, 

146 

.901, 

146 

.552, 

146. 

.284, 

146, 

.264, 

146, 

.265, 

145. 

,877, 

145. 

.306/ 

160  4 

data 

( Longitude (i) 

,  i-11601. 

11680)  / 

1605 

.  144  . 

.899, 

144  , 

.436, 

143. 

.946, 

143. 

,541, 

143. 

.130, 

142  . 

.623, 

143. 

,097, 

143. 

.397, 

1606 

.  142  . 

.  972, 

142  , 

.477, 

141 , 

.971, 

141. 

.464, 

141. 

,008, 

143, 

.227, 

143. 

,  654, 

143  , 

.208, 

1607 

.  143. 

,227, 

143. 

.  339, 

143. 

.339, 

150. 

.875, 

150, 

.875, 

153, 

.204, 

153. 

.674, 

153. 

.190, 

1608 

.  153. 

,  204  , 

154. 

.033, 

154  . 

,033, 

152. 

.555, 

152, 

.555, 

151, 

.069, 

151. 

,069, 

150. 

.772, 

1609 

.  151. 

.233, 

150, 

.754, 

150, 

.772, 

150. 

.501, 

150, 

.918, 

150, 

.440, 

150. 

.501, 

152, 

.560, 

1610 

.  1j2. 

,560, 

151. 

,123, 

151. 

.123, 

150. 

.238, 

150, 

.238, 

147, 

.131, 

147. 

,131, 

147  , 

.848, 

1611 

.  147. 

,  848, 

152  . 

.181, 

152. 

.397, 

152. 

.071, 

152, 

,022, 

151. 

.521, 

151. 

.216, 

150, 

.752, 

1612 

.  150. 

,274, 

149, 

.767, 

149. 

,313, 

148. 

,831, 

148, 

.358, 

148. 

.815, 

149. 

.317, 

149, 

.816, 

1613 

.  150. 

,016, 

150. 

,156, 

ISO. 

,  659, 

151. 

,045, 

151. 

,457, 

151, 

.607, 

152. 

,043, 

152, 

.  181, 

1614 

.  150. 

,821, 

151, 

.217, 

151, 

,682, 

152. 

.110, 

152. 

.497, 

152, 

.871, 

153, 

.060, 

152, 

.662/ 

1615 

data 

( Longitude ( i) 

,  i-11681. 

11760)  / 

1616 

.  152. 

375, 

151. 

,952, 

151. 

,554, 

151, 

.131, 

150, 

.821, 

150, 

.879, 

150. 

,879, 

149. 

.  954, 

1617 

.  150. 

,454, 

149. 

,954, 

149. 

.954, 

149. 

,577, 

149. 

.577, 

151. 

.995, 

151, 

.995, 

151, 

.948, 

1618 

.  151. 

,  948, 

152  . 

.  649, 

152, 

.  649, 

153. 

.228, 

153, 

,228, 

153, 

.662, 

153, 

.662, 

154  , 

.141, 

1619 

.  154. 

141, 

154, 

.806, 

154  , 

.806, 

159. 

.520, 

159. 

.520, 

154  . 

.697, 

155. 

,137, 

155. 

.424, 

1620 

.  155. 

,829, 

155  , 

.713, 

155  , 

,266, 

154. 

.999, 

154  , 

,714, 

154  , 

.697, 

154, 

.621, 

154  . 

.  621, 

1621 

.  149. 

.519, 

149, 

.519, 

149, 

,165, 

149. 

.  165, 

147. 

.827, 

147  , 

,827, 

147, 

,392, 

146, 

.943, 

1622 

.  147. 

,421, 

147  . 

.392, 

144  . 

.523, 

144  . 

,523, 

144  . 

,243, 

144  . 

.243, 

144. 

.516, 

144  . 

.516, 

1623 

.  142  . 

,832, 

142  . 

,832, 

145. 

.  992, 

145. 

.992, 

145, 

.079, 

145, 

.  079, 

120. 

,878, 

120, 

.  914, 

1624 

.  122. 

,291, 

122  , 

.174, 

122  , 

.2.3, 

122  . 

.466, 

122. 

.251, 

122. 

.033, 

121, 

,551, 

121  . 

.430, 

1625 

.  121. 

,589, 

121. 

.  665, 

121. 

.  959, 

122. 

.377, 

122  , 

.894, 

123  . 

.051, 

123. 

,539, 

123, 

,696/ 

1626 

data 

( Longitude ( i) 

,  i-11761. 

11840)  / 

1627 

.  124. 

,  021, 

124  . 

.092, 

123, 

,701, 

123. 

.310, 

122  , 

.927, 

122  , 

.577, 

122. 

,654, 

122, 

.188, 

1620 

.  121 . 

,773, 

121, 

,356, 

120. 

.904, 

120. 

.802, 

120. 

.628, 

120. 

,  116, 

120. 

009, 

119. 

,895, 

1629 

.  119. 

.769, 

120, 

.250, 

120. 

.304, 

120. 

.435, 

120. 

.352, 

120. 

,477, 

120. 

574, 

121. 

,087, 

163  0 

.  121 . 

,555, 

122  , 

.085, 

122  . 

.297, 

121. 

.867, 

121, 

.872, 

122  , 

.022, 

122. 

,026, 

121, 

,974, 

1631 

.  121. 

,  982, 

121, 

,523, 

121. 

,525, 

121. 

.231, 

121. 

,232, 

121. 

,445, 

121. 

444, 

121 , 

,  967. 

1632 

.  121 . 

,  972, 

121 , 

.  962, 

121 . 

.  974  , 

121. 

.957, 

121. 

,963, 

124  , 

,234, 

124. 

327, 

124  , 

,126, 

1633 

.  124  . 

,236, 

123. 

.263, 

123. 

,701, 

124  . 

,053, 

123  . 

.581, 

123  . 

.239, 

123. 

,268, 

123, 

,649, 

1634 

.  123. 

649, 

123. 

,003, 

123  . 

,334, 

122. 

94  8, 

123. 

,012, 

122  . 

,  642, 

122. 

645, 

122. 

,278, 

1635 

.  122  . 

280, 

122  . 

,  140, 

122  , 

,029, 

122  . 

,112, 

122. 

,145, 

121 . 

.881, 

121. 

009, 

120. 

.367, 

1636 

.  120. 

,882, 

121 . 

.349, 

121. 

,491, 

121, 

,386, 

120. 

.  916, 

120, 

,754, 

120. 

,454, 

120, 

,  378/ 

163’’  data  ( Longitude  ( i ),  i-11 04 1 , 1 1920)  / 


1638 

.  120.135, 

120.146, 

124.307, 

124.823. 

125.323, 

125.443, 

125.553, 

125.061 

16  3  9 

.  124.098, 

124.506, 

124.275, 

124.30'. 

124.345, 

124,846, 

125.050, 

125.198 

16  4', 

.  125.038, 

124  .  '33, 

124.709, 

124 . 381. 

124.345. 

125 . 6’1 , 

125.6?', 

1 2  5 .  :  8 

1641 

.  125. 6’1, 

126,095, 

126 . 095, 

125.448, 

125 . 8'2 . 

126.183, 

126.114 . 

126. 350 

1642 

.  126.528, 

126.585, 

126.334, 

126.205, 

126.082. 

125.848. 

125.467, 

125 . 603 

164  3 

.  125.646, 

125 . 179, 

124  .  ■'01, 

124 . 251 , 

124.054, 

124 . O'l , 

i:.3  .  989, 

123.523 

1644 

.  123.124, 

122 . 684 , 

122  .  OO--, 

122  .  152 , 

122.04‘’, 

122.204, 

122  .656, 

123  .  02? 

1645 

.  123.491, 

123 . 859, 

124 . 328, 

124 . 779, 

125.191, 

125.446, 

125.448, 

122.089 

164  6 

.  122.091, 

120 . 586, 

120.590, 

121.075, 

121.079, 

120,181, 

120.190, 

118.454 

164' 

.  118.454, 

123 . 649, 

123.655, 

124.744, 

124.745, 

124.440, 

124.323, 

123 . 828 

1640 

data  ( Longitude { i) 

i-11921, 12000) / 

126 
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1649 

.  124.149, 

124 . 444 , 

123.758, 

123.759, 

124.059, 

124 . 026, 

123.864, 

123.577, 

1650 

.  123.599, 

123.851, 

124.009, 

124.059, 

123.537, 

123.368, 

123.199, 

123.251, 

1651 

.  122.744, 

122.410, 

122.804, 

122.881, 

123.169, 

123.537, 

122.707, 

122.707, 

1652 

.  122.026, 

122.464, 

122.945, 

122.799, 

122 . 401, 

121 . 954, 

121.988, 

122.062, 

1653 

.  121.931, 

122.028, 

119. 904, 

120.343, 

119.871, 

119.910, 

119.929, 

119.929, 

1654 

.  119.869, 

119.869, 

119.862, 

119.873, 

117.326, 

117.326, 

117.084, 

117 . 086, 

1655 

.  117.059, 

117.058, 

119.508, 

119.506, 

119.600, 

119.219, 

118.748, 

118.571, 

1656 

.  118.156, 

117.820, 

117.388, 

117.579, 

117.981, 

118.345, 

118.665, 

119.032, 

1657 

.  119.323, 

119.428, 

119.509, 

149.885, 

149.885, 

150.509, 

150.509, 

151.205, 

1658 

.  151.205, 

153 . 054, 

153.057, 

153.145, 

153.241, 

153.093, 

153.054, 

153.411/ 

1659 

data  ( Longituda (i) 

,  i-12001. 

12080) / 

1660 

.  153.411, 

153.394, 

153.394, 

146.632, 

146.632, 

147.341, 

147.341, 

145.343, 

1661 

.  145.343, 

145.326, 

145.326, 

137.440, 

136.822, 

137.190, 

137.789, 

137.440, 

1662 

.  136.188, 

136.188, 

134.468, 

134.468, 

133.563, 

133.563, 

143.883, 

143.936, 

1663 

.  143.974, 

143.883, 

148.101, 

147.854, 

148 . 319, 

148.101, 

148.339, 

148.339, 

1664 

.  148.169, 

148.169, 

147.352, 

147.352, 

147 . 135, 

147.135, 

145.035, 

145.035, 

1665 

.  144.900, 

144.900, 

144.740, 

144.740, 

148.010, 

148.010, 

113.149, 

112.913, 

1666 

.  113.215, 

113. 149, 

113.053, 

113.053, 

113.110, 

113.110, 

115.298, 

115.298, 

1667 

.  124.518, 

124.518, 

124.344, 

124.344, 

124.908, 

124.908, 

125.086, 

125.086, 

1668 

.  130.033, 

130.253, 

130.596, 

130.091, 

130.033, 

130.942, 

130.508, 

130.375, 

1669 

.  130.852, 

131.353, 

131.236, 

130.942, 

132.567, 

132.567, 

135.969, 

135.969/ 

1670  data  ( Longitude < i) , i*12081 , 12160)  / 


1 

671 

.  136 

.183, 

136, 

.183, 

136. 

508, 

136 

.508, 

136 

.129, 

136. 

.129, 

136. 

.153, 

136. 

.153, 

1 

672 

.  136 

.200, 

136 

.200, 

136, 

364, 

136 

.603, 

136 

.846, 

136, 

.332, 

136, 

.364, 

135 

,704, 

1 

673 

.  135 

.704, 

136 

.516, 

136. 

516, 

136 

.657, 

136 

.  657, 

136, 

.841, 

136 

.841, 

137 

.048, 

1 

674 

.  137 

.048, 

139 

.141, 

139. 

538, 

139 

.158, 

139 

.141, 

139, 

.415, 

139, 

.415, 

142 

.135, 

1 

675 

.  142 

.135, 

142 

.271, 

142. 

271, 

142 

.146, 

142 

.146, 

142, 

.300, 

142 

.300, 

146 

.221, 

1 

676 

.  146. 

.221, 

146 

.  799, 

146. 

799, 

148 

.881, 

148 

.  881, 

148 

.967, 

148 

.  967, 

149 

.053, 

1 

677 

.  149, 

.053, 

132 

.540, 

132. 

540, 

136 

.728, 

136 

.728, 

167, 

.  971, 

167, 

.971, 

159 

.064, 

1 

678 

.  159 

.064, 

174 

.012, 

174  . 

311, 

173 

.737, 

173 

.220, 

173 

.023, 

172 

.378, 

172 

.105, 

1 

679 

.  171, 

.  879, 

171 

.419, 

171. 

196, 

171 

.034, 

170, 

.376, 

169. 

.847, 

169, 

.518, 

169, 

.512, 

1 

680 

.  168, 

.  889, 

168 

.259, 

167, 

852, 

167 

.285, 

167 

.140, 

166, 

.709, 

167, 

.051, 

167, 

,778/ 

1 

681 

data 

( Longituda (i) 

,  i-12161. 

12240)/ 

1 

682 

.  168. 

,346, 

169. 

.072, 

169. 

772, 

170. 

.253, 

170, 

.760, 

170. 

,  914, 

170. 

.576, 

171, 

.173, 

1 

683 

.  171, 

,173, 

171. 

,342, 

171. 

,928, 

171. 

.699, 

171, 

.080, 

171, 

,708, 

172, 

.246, 

172, 

.  940, 

1 

684 

.  172. 

.727, 

172. 

,042, 

172. 

731, 

173. 

.150, 

173, 

.517, 

173. 

,  912, 

174. 

,286, 

174  , 

,019, 

1 

685 

.  167. 

.484, 

167. 

.484, 

167. 

694, 

167. 

,690, 

168. 

.002. 

167. 

,714, 

167. 

.798, 

168. 

.012, 

1 

686 

.  166, 

.  624, 

166, 

,623, 

166. 

288, 

166. 

.292, 

169, 

.210, 

169. 

.209, 

178. 

.838, 

178. 

.833, 

1 

687 

.  179. 

.079, 

179, 

,077, 

-176. 

224, 

-176. 

.224, 

-176, 

.655, 

-176. 

,655, 

166. 

,732, 

166, 

,736, 

1 

688 

.  173. 

,785, 

173, 

,780, 

176. 

.938, 

176. 

.834, 

176, 

.452, 

176. 

,116, 

175, 

.683, 

175, 

.010, 

1 

689 

.  174  . 

,  976, 

175. 

,211, 

174  . 

991, 

174  . 

.406, 

173, 

,840, 

174. 

,137, 

174, 

,  628, 

174. 

,724, 

1 

690 

.  174. 

.  940, 

174. 

,620, 

175. 

230, 

175. 

.791, 

175, 

.  918, 

176. 

,120, 

176. 

,712, 

177. 

.335, 

1 

691 

.  177. 

.817, 

178, 

.458, 

178. 

333, 

178. 

.180, 

177  , 

.879, 

177. 

,231, 

176, 

.950, 

176. 

.948/ 

1 

692 

data 

( Longitude ( i) 

,  i-12241. 

12320)  / 

1 

693 

.  174. 

.  940, 

174  , 

.800, 

174. 

589, 

174  . 

.339, 

174  , 

.416, 

173, 

,  917, 

174, 

,193, 

173. 

,766, 

1 

694 

.  173. 

,397, 

173, 

,197. 

172. 

889, 

173. 

.318, 

173. 

,935, 

174. 

.418, 

174, 

.  603, 

174  . 

.794, 

1 

695 

.  174  . 

,814, 

174  . 

,  620, 

175. 

526, 

175. 

.523, 

175. 

.169, 

175. 

,169, 

-178, 

.922, 

-178, 

,925, 

1 

696 

.-178. 

.  610, 

-178, 

.  609, 

-178. 

538, 

-178. 

,546, 

-177  , 

.  908, 

-177, 

,  913, 

172. 

,145, 

172. 

,146, 

1 

69"’ 

.  168  . 

,561, 

168  . 

.559, 

153  . 

666, 

153. 

.  666, 

155. 

.449, 

155  . 

449, 

157. 

,932, 

157. 

,932, 

1 

698 

.  157  , 

,  969, 

157  . 

,969, 

157. 

156, 

157  . 

.156, 

158. 

,157, 

158. 

,157, 

158. 

,241, 

158, 

,241, 

1 

699 

.  162. 

,  913, 

162. 

.  913, 

151. 

854, 

151. 

.854, 

151. 

,855, 

151. 

,855, 

151. 

,577, 

151  . 

,577, 

1 

700 

.  149. 

,313, 

149. 

,313, 

149. 

195, 

149. 

.195, 

149. 

,186, 

149. 

186, 

150. 

373, 

150. 

,373, 

1 

n  ■! 

.  150  . 

,  118, 

150. 

.118, 

149. 

665, 

149. 

.  665, 

146. 

,180, 

146. 

180, 

143. 

,  915, 

143  . 

,  915, 

1 

0  2 

.  143  . 

,060, 

143, 

,060, 

166. 

936, 

166. 

.936, 

169. 

734. 

169. 

585, 

171. 

743, 

171  . 

,  743,' 

1 

*’0  3 

data 

( Longitude ( i ) 

.  i-12 

:32i . 

12400)  / 

'04 

.  1^2  . 

765, 

172  . 

,765, 

1'2  . 

884  , 

172  , 

.  904  . 

1'2  . 

.  364  . 

1’2  . 

9^4  . 

1-3  . 

,  003  , 

1-?  . 

.003. 

1 

'05 

.  172  . 

968  , 

172  . 

,  968, 

172  . 

855, 

172  . 

,855. 

173  . 

lie. 

173  . 

118, 

172  . 

,  999 , 

1  '  2  . 

.999, 

1 

'06 

.  1'3  . 

931, 

l'/3  . 

.831, 

1'3  . 

636, 

173. 

.  636, 

174  , 

.395, 

1'4  . 

3  95. 

174  . 

4-3, 

104  . 

,  4'?  . 

1 

70" 

.  174  . 

738, 

174  . 

738, 

175  . 

057, 

175  . 

.  05' . 

1'5. 

557, 

175  . 

557  , 

175. 

975, 

175. 

9'5  , 

X 

'08 

.  1''6  . 

409, 

176. 

,  409, 

176. 

13'’. 

I'b  . 

.137, 

1-6. 

312, 

1-6  . 

312, 

17-  . 

288  . 

1-- . 

288  . 

X 

”09 

.  1"^  . 

151, 

177  . 

,151, 

178. 

703, 

178. 

.  703 . 

178. 

.374, 

1’8. 

374, 

1-9. 

199, 

179. 

198  , 

710 

.-172  . 

202, 

-172  . 

,202, 

-171. 

234, 

-171. 

,234, 

-171, 

,080, 

-171  . 

080, 

-171. 

710, 

-171  . 

-10, 

X 

■’ll 

.  167, 

196, 

167  , 

.196, 

167  . 

114, 

167  . 

,114, 

175. 

,971, 

175  . 

971, 

176. 

784, 

176. 

784  , 

X 

712 

.  168. 

764, 

168. 

,686, 

172  . 

026, 

171. 

,  948. 

176. 

,079, 

176. 

079, 

-176. 

460, 

-176. 

4  60, 

127 
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1713 

1714 

1715 
1^16 
111' 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 
17  67 
1768 
I- 6 9 
1770 
1  ‘  1 
1772 
1  7  ’  3 
1^74 

1775 

1776 


-176 

633, 

-176 

633, 

168 

133, 

168 

133, 

data 

( Longitude ( i) 

, i-12401. 

12480)  / 

170 

840, 

170 

840, 

168 

942, 

168 

942, 

167 

741  . 

167 

741. 

166 

833. 

1«6 

833, 

168 

220, 

168 

220, 

166 

812, 

166 

812, 

162 

324, 

162 

324, 

167 

509, 

167 

509, 

169 

944, 

169 

94  4, 

169 

856, 

169 

856, 

171 

577, 

171 

754, 

171 

261, 

171 

389, 

155 

566, 

155 

566, 

155 

736, 

155 

736, 

156 

486, 

156 

927, 

157 

278, 

156 

797, 

156 

549, 

156 

549, 

157 

091, 

157 

091, 

157 

363, 

157 

363, 

157 

454, 

157 

454, 

data 

( Longitude (i) 

, i-12481. 

12560)/ 

157 

509, 

157 

833, 

157 

327, 

157 

509, 

159 

370, 

159 

782, 

159 

278, 

158 

841, 

158 

276, 

158 

276, 

159 

230, 

159 

230, 

160 

155, 

160 

155, 

160 

329, 

160 

329, 

159 

702, 

159 

705, 

160 

720, 

160 

932, 

161 

364, 

161 

364, 

162 

729, 

162 

729, 

162 

230, 

161 

722, 

161 

368, 

161 

314, 

159 

982, 

160 

014, 

165 

794, 

165 

794, 

159 

251, 

159 

251, 

159 

359, 

159 

359, 

159 

969, 

159 

969, 

163 

661, 

163 

661, 

data 

( Longitude (i) 

,i-12561. 

12640)/ 

164 

102, 

164 

310, 

164 

679, 

165 

04  8, 

166 

642, 

166 

233, 

165 

787. 

165 

411, 

166 

533, 

166 

419, 

166 

419, 

167 

388, 

171 

314, 

169 

894, 

169 

894, 

169 

462, 

168 

526, 

168 

190, 

168 

190, 

168 

223, 

168 

123, 

167 

710, 

167 

710, 

167 

443, 

167 

651, 

167 

314, 

167 

314, 

166 

658, 

166 

681, 

167 

201, 

167 

058, 

166 

772, 

167 

422, 

167 

165, 

167 

622, 

167 

422, 

-180 

000, 

-179 

957, 

178 

700, 

178 

901, 

data 

( Longitude (i) 

,i-12  64l  , 

12720) / 

179 

627, 

179 

152, 

178 

700, 

178 

305, 

179 

423, 

179 

321, 

179 

321, 

178 

854, 

177 

814, 

178 

336, 

178 

623, 

178 

231, 

177 

280, 

177 

146, 

177 

146, 

177 

645, 

178 

494, 

178 

171, 

178 

171, 

179 

761, 

179 

881, 

-179 

315, 

-179 

315, 

-179 

143, 

-178 

963, 

-178 

315, 

-178 

315, 

-178 

761, 

-178 

966, 

-178 

583, 

-178 

583, 

-178 

386, 

-178 

727, 

179 

919, 

180 

001, 

179 

998, 

-178 

993, 

-128 

331, 

-128 

332, 

-124 

782, 

data 

(Longitude ( i) 

, i-12721. 

12800) / 

138 

192, 

144 

886, 

144 

886, 

145 

290, 

145 

809, 

145 

650, 

145 

650, 

145 

794, 

145 

853, 

145 

798, 

145 

798, 

145 

688, 

144 

906, 

132 

218, 

132 

218, 

134 

161, 

134 

450, 

-176 

178, 

-176 

178, 

-172 

519, 

-178 

154, 

-175 

145, 

-175 

145, 

-169 

927, 

-170 

756, 

-169 

518, 

-169 

518, 

-175 

669, 

-174 

057, 

-175 

083, 

-175 

083, 

-174 

300. 

-157 

962, 

-159 

830, 

-159 

838, 

-157 

964  . 

-171 

22  6, 

-170 

561, 

-170 

561, 

-169 

694, 

data  f  Longitude (i!  , i”12801, 12880) . 
.-174.071,-174.259,-174.259,-165. 834 . 
.-161.096,-161.032,-161.032, -160.993, 
.-159.803,-159.944,-158.944,-158.282, 
.-157.719,-157.328,-157.328,-151.472, 
.-144. 315, -130. 101, -130. 101, -152. 874, 
.  -143 .4  92, -138. 635, -138 . 635. -139.078, 
.-11C.073, -139.515, -139.515, -140.034, 


153 

966, 

153 

966, 

171 

925, 

171 

925/ 

168 

678, 

168 

678, 

168 

558, 

168 

558. 

165 

509, 

1 6^ 

, 

166 

625, 

16b 

625, 

165 

527, 

165 

527, 

165 

272, 

165 

272, 

170 

136, 

170 

136, 

170 

233, 

170 

233, 

168 

975, 

168 

975, 

171 

763, 

171 

808, 

171 

053, 

171 

233, 

167 

491, 

167 

510, 

156 

046, 

156 

046, 

157 

321, 

157 

721, 

156 

455, 

156 

486, 

156 

570, 

156 

570, 

157 

033, 

157 

033, 

157 

097, 

157 

097, 

158 

216, 

158 

216, 

157 

994, 

157 

994/ 

159 

605, 

159 

605, 

158 

466, 

158 

922, 

158 

491, 

158 

466, 

158 

387, 

158 

387, 

159 

104, 

159 

104, 

159 

811, 

159 

811, 

159 

705, 

160 

188, 

160 

654, 

160 

184, 

161 

249, 

160 

775, 

160 

675, 

160 

720, 

161 

970, 

161 

970, 

161 

314, 

161 

784, 

159 

803, 

159 

803, 

160 

014, 

160 

465, 

166 

495, 

166 

495, 

166 

740, 

166 

740, 

159 

502, 

159 

502, 

159 

724, 

159 

724, 

164 

221, 

164 

221, 

165 

007, 

164 

578/ 

165 

480, 

165 

942, 

166 

411, 

166 

910, 

165 

007, 

167 

516, 

167 

516, 

166 

533, 

167 

388, 

168 

124, 

168 

124, 

171 

314, 

169 

462, 

169 

268, 

169 

268, 

168 

526, 

168 

223, 

168 

168, 

168 

168, 

168 

123, 

167 

443, 

167 

416, 

167 

416, 

167 

651, 

166 

658, 

166 

565, 

166 

565, 

166 

772, 

167 

155, 

167 

155, 

167 

201, 

167 

201, 

177 

074, 

1  n 

074, 

-179 

957, 

-180 

005, 

179 

404, 

179 

881, 

180 

002, 

179 

998/ 

178 

305, 

179 

384, 

179 

384, 

179 

423, 

178 

854, 

178 

000, 

177 

480, 

177 

390, 

178 

000, 

177 

584, 

177 

584. 

177 

280, 

177 

645, 

178 

119, 

178 

119, 

178 

4  94, 

179 

761, 

-179 

864, 

-179 

864, 

179 

881, 

179 

143, 

-179 

143, 

-179 

143, 

-178 

963, 

178 

761, 

-178 

4  93, 

-178 

4  93, 

-178 

966, 

178 

386, 

-178 

202, 

-178 

202, 

-178 

727, 

179 

919, 

174 

631, 

174 

631, 

-178 

993, 

124 

783, 

134 

648, 

134 

648, 

138 

192/ 

145 

2  90, 

145 

647, 

145 

647, 

145 

909. 

145 

794, 

145 

850, 

145 

850, 

145 

853, 

145 

688, 

145 

393, 

145 

3  93, 

144 

906, 

134 

161, 

134 

282, 

134 

282, 

134 

450, 

172 

519, 

-171 

741, 

-171 

741, 

-178 

154, 

169 

927, 

-171 

859, 

-171 

859, 

-170 

756, 

175 

669, 

-174 

057, 

-174 

057, 

-174 

057, 

174 

300, 

-174 

934. 

-174 

934, 

-157 

962, 

157 

964  , 

-172 

493, 

-172 

4  ?3 

-171 

226, 

16'^ 

. 

-174 

666, 

-174 

666, 

-1'4 

165 

834, 

-165 

422  , 

-165 

422, 

-161 

096, 

1  ^0 

OQT  ^ 

-163 

170, 

-163 

170, 

-159 

80? , 

159 

282  , 

-158 

11'  . 

-158 

11'  , 

-157 

7  1  o  _ 

151 

472, 

-151 

458, 

-151 

458, 

-144 

315. 

152 

874, 

-151 

7  97, 

-151 

797, 

-143 

4  92, 

139 

078, 

-138 

970, 

-138 

970, 

-140 

073, 

140 

034  , 

-140 

654, 

-140 

654, 

-150 

221 , 

128 


CHR/91-275n 


1777 

.-150 

.221, 

-150 

.216, 

-150. 

.216, 

-152 

.400, 

-152, 

.400, 

-155, 

.900, 

-155. 

.  900, 

-154  . 

.  946, 

1779 

.-154 

.  946, 

-160, 

.011, 

-160. 

.011, 

-157 

.192, 

-157, 

.192, 

-159, 

.260, 

-159, 

,260, 

-160. 

.380, 

1779 

.-160, 

.380, 

-134  , 

.  986, 

-134  . 

.  986, 

-140 

.604, 

-140, 

.604, 

-144, 

.626, 

-144. 

,626, 

-146. 

.340/ 

1780 

data 

(Longitude (i) 

, i-12881. 

i.:.^6i 

0)/ 

1781 

. -146, 

.340, 

-149, 

,588, 

-149. 

.588, 

-149 

.856, 

-149, 

.856, 

-151. 

.011, 

-151. 

.011, 

-151. 

.045, 

1782 

.-151, 

.045, 

-151, 

.746, 

-151, 

.746, 

-148 

.232, 

-148, 

,232, 

-149, 

.579, 

-149. 

,579, 

-149. 

.537, 

1783 

.  -149, 

.537, 

-150. 

.  657, 

-150. 

,  657, 

-151 

.362, 

-151. 

.362, 

-149. 

.488, 

-149. 

.488, 

-147, 

,  670, 

1784 

.-147. 

.  670, 

-135, 

.457, 

-135, 

.522, 

-135 

.612, 

-135, 

.628, 

-136. 

.199, 

-136, 

.163, 

-136. 

.374, 

1785 

. -136, 

.411, 

-136, 

.542, 

-136, 

.554, 

-136 

.310, 

-136, 

.463, 

-136. 

.969, 

-137. 

.068, 

-138. 

.348, 

1786 

.-138, 

,383, 

-138, 

.424, 

-138, 

.436, 

-138 

.801, 

-138, 

.837, 

-138, 

.532, 

-138. 

.569, 

-138. 

.  929, 

1787 

.-138, 

.798, 

-138, 

.  928, 

-138, 

.848, 

-140 

.415, 

-140, 

.420, 

-140, 

.685, 

-140. 

.721, 

-141. 

.238, 

1788 

.-141. 

.268, 

-140. 

.  670, 

-140. 

.782, 

-140 

.821, 

-140, 

.972, 

-140. 

.818, 

-140. 

.653, 

-140. 

,  674, 

1789 

.-140. 

.802, 

-140, 

,107, 

-140. 

.168, 

-140 

.867, 

-140, 

.905, 

-142, 

.481, 

-142. 

,527, 

-142  . 

.542, 

1790 

.-142. 

,530, 

-142, 

.519, 

-142, 

.514, 

-142 

.572, 

-142, 

.  636, 

-143, 

.064, 

-143. 

.111, 

-143. 

.411/ 

1791 

data 

( Longitude ( i) 

, i-12961. 

13040)  / 

1792 

.-143. 

.473, 

-143. 

,385, 

-143. 

.549, 

-143 

.572, 

-143. 

.699, 

-143, 

.815, 

-143. 

,935, 

-144  . 

,059, 

1793 

. -144 . 

,120, 

-144. 

.173, 

-144. 

,207, 

-144 

.254, 

-144. 

.291, 

-144. 

.372, 

-144. 

.435, 

-144  . 

,929, 

1794 

.  -144  , 

.958, 

-145, 

.001, 

-144. 

,  989, 

-145 

.166, 

-145, 

.237, 

-145, 

.054, 

-145. 

,160, 

-145. 

,433, 

1795 

. -145. 

.552, 

-144  , 

.999, 

-145, 

.000, 

-145 

.161, 

-145, 

.202, 

-145, 

.227, 

-145. 

,191, 

-145. 

.  911, 

1796 

.-145. 

.841, 

-145, 

.856, 

-145, 

.899, 

-145 

.922, 

-145, 

.977, 

-146, 

.072, 

-146. 

,059, 

-146. 

,254, 

17  97 

.-146. 

.269, 

-146. 

,220, 

-146. 

,205, 

-146 

.230, 

-146. 

.239, 

-145, 

.953, 

-145. 

,904, 

-145. 

.710, 

1798 

.-145. 

.  611, 

-145. 

.613, 

-145. 

.482, 

-145 

.395, 

-145, 

.370, 

-145, 

.189, 

-145. 

.144, 

-145. 

,379, 

1799 

. -145. 

.432, 

-145, 

.459, 

-145. 

.511, 

-145 

.575, 

-145, 

.605, 

-144, 

.970, 

-144. 

.957, 

-146, 

.496, 

1800 

. -146. 

.513, 

-146. 

.609, 

-146. 

.  644, 

-146 

.334, 

-146, 

.379, 

-147, 

.227, 

-147. 

.256, 

-147. 

.347, 

1801 

.-147 . 

.380, 

-147  . 

.394, 

-147. 

.449, 

-147 

.558, 

-147. 

,581, 

-148, 

.041, 

-148. 

,171, 

-148. 

,232/ 

1802 

data 

{ Longitude ( i) 

, i-13041. 

13120)/ 

1803 

. -148 . 

.265, 

-148. 

.629, 

-148, 

.689, 

-148 

.269, 

-148, 

.251, 

-151, 

.722, 

-151. 

,780, 

-152. 

.237, 

1804 

. -152. 

,268, 

-152, 

281, 

-152. 

,292, 

-153 

.920, 

-153. 

,942, 

-154, 

.531, 

-154. 

,530, 

-145, 

.  995, 

1905 

.-146. 

037, 

-136. 

645, 

-136, 

.655, 

-136 

.753, 

-136. 

.758, 

-138, 

,789, 

-138. 

,816, 

-139. 

,212, 

1806 

.-139. 

221, 

-139. 

135, 

-139, 

,160, 

-141 

.501, 

-141, 

.522, 

-141, 

.912, 

-141. 

.  944, 

-141, 

,178, 

1807 

.-141. 

.221, 

-141. 

259, 

-141, 

,279, 

-142 

.259, 

-142, 

.243, 

-142, 

,212, 

-142. 

.225, 

-142, 

,  659, 

1808 

.-142. 

607, 

-143. 

104, 

-143. 

,077, 

-146 

.274, 

-146, 

.314, 

-146, 

.840, 

-146, 

,865, 

-147  , 

.794, 

1809 

.-147. 

813, 

-147. 

921, 

-147. 

918, 

-148 

.193, 

-148. 

,222, 

-148. 

.695, 

-148. 

,706, 

-147  , 

.771, 

1810 

.-147. 

743, 

-144. 

961, 

-144. 

,981, 

-143 

.555, 

-143. 

,553, 

158. 

.837, 

158, 

,837, 

51. 

,265, 

1811 

.  51. 

708, 

52. 

248, 

52. 

655, 

53 

.146, 

53. 

,  602, 

54, 

,168, 

54. 

,  690, 

55. 

,201, 

1812 

.  55. 

.611, 

56. 

208, 

56. 

,766, 

56 

.809, 

56. 

,287, 

55. 

,798, 

56. 

,273, 

56, 

,288/ 

0001 

0002 

Segment 

0003 

0004 

0005 

0006 

000"’ 

0008 


! ! s  LatDat 

c - 

LatDat 

block  data  LatOat 


c  array  of  latitude  values 


include  'LatCom.inc' 


000  9 

data  ( latitude  ( i)  , 

i-  1, 

80)  / 

0010 

.  52.838, 

53.232, 

53.729, 

53.534, 

53.926, 

54.369, 

54.829, 

55.283, 

0011 

.  55.739, 

55.923, 

69.647, 

69.573, 

69.254, 

68.974, 

68.862, 

68.792, 

0012 

.  69.263, 

69.557, 

69.655, 

69.654, 

69.873, 

70.084, 

69.628, 

69.417, 

0010 

.  68.991, 

69.316, 

69.544, 

69.842. 

69.954 , 

69.954, 

70.229, 

69.824, 

0014 

.  69.412, 

69.849, 

69.427, 

69.646. 

69.823, 

48.011. 

48.439. 

48 . 930 . 

0015 

49.430, 

49.416, 

49.701, 

49.701, 

50.163, 

4  9.743, 

50 . 1 ?3 , 

50 . 6'3 , 

0016 

50.459, 

50.961, 

50.671, 

50.952, 

50.951, 

50 . 907 , 

51.131, 

51 . 61' , 

^01^ 

51.646, 

51 . 700, 

52 .199, 

52 . 636. 

52.310, 

52 . 671 , 

52.837, 

55 . 922 . 

0019 

55.421, 

54 . 944 , 

55.337, 

55  .  Q30, 

55.858, 

=.<;  '^<=^1 , 

56.904, 

5  .  0  0  8  . 

001? 

57.566, 

58.041, 

58.517, 

58.518, 

50 . 3  ^  4  , 

58 . 824 , 

59.313, 

58.814 

'j  0  2  0 

data  (latitude  (i )  , 

i-  81, 

160)  ,' 

0021 

.  58.324, 

58.572, 

58.966, 

58.512, 

58.403, 

58.718, 

59.090, 

59.380, 

0022 

.  59.543, 

59.543, 

59.846, 

59.770, 

59.794, 

60.022, 

60.089, 

59. 997 , 

0023 

.  60.291, 

60.472, 

60.689, 

61.012, 

61.278, 

63 .278, 

60.857, 

60.362, 

CHR/91k/50 


0024 

.  59.926, 

59.842, 

59.480, 

59.313, 

59.716, 

60.183, 

60.686, 

60.988, 

0025 

60.937, 

61.437, 

61.248, 

61.012, 

60.916, 

60.916, 

60.502, 

60.025, 

0026 

.  59.660, 

59.375, 

58.996, 

58.551, 

58.099, 

57.867, 

57.554, 

57.549, 

0027 

.  57.306, 

56.879, 

56.650, 

56.328, 

55.893, 

55.572, 

55.521, 

55.374, 

002  8 

.  55.138, 

55.101, 

55.113, 

55.112, 

55.344, 

55.769, 

55.991, 

55.7  93, 

0029 

.  56.292, 

56.604, 

56.890, 

57.298, 

57.483, 

57 . 978, 

58.475, 

58 . 904 , 

0030 

.  59.152, 

59.151, 

58.794, 

58.774, 

58.757, 

58.943, 

50.795, 

58 . 641/ 

0031 

data  ( latitude ( i)  r i 

-  161, 

240)/ 

0032 

.  59.066, 

59.565, 

60.022, 

60.522, 

60.038, 

59.818, 

60.048, 

60.329, 

0033 

.  60.328, 

60.807, 

60.773, 

60.951, 

61.448, 

61.489, 

61.957, 

62.418, 

0034 

.  62.877, 

63.258, 

63.052, 

63.214, 

63.214, 

63.446, 

63.705, 

64.204, 

0035 

64.700, 

64.703, 

64.340, 

64.586, 

64.503, 

64.574, 

65.011, 

65.414, 

0036 

.  65.761, 

65.761, 

66.017, 

66.138, 

66.518, 

66.157, 

66.059, 

66.264, 

0037 

.  66.696, 

66.481, 

66.888, 

67.033, 

67.415, 

67.815, 

67.835, 

67.836, 

0038 

.  68.116, 

68.603, 

68.881, 

69.066, 

69.504, 

69.971, 

70.261, 

70.599, 

0039 

.  70.192, 

70.192, 

70.689, 

70.804, 

71.094, 

71.186, 

70.825, 

70.898, 

0040 

.  70.812, 

70.811, 

70.408, 

70.499, 

70.316, 

70.163, 

70.068, 

70.064, 

0041 

.  70.014, 

69.699, 

69.647, 

68.281, 

67.889, 

67.594, 

67.526, 

67.088/ 

0042 

data  ( latitude (i)  ,  i 

-  241, 

320)/ 

0043 

.  67.144, 

66.816, 

66.815, 

66.948, 

66.744, 

66.280, 

66.121, 

65 . 658, 

0044 

.  65.936, 

65. 935, 

65.442, 

64.948, 

65.282, 

65.618, 

66.074, 

66.387, 

0045 

66.387, 

66.370, 

66.516, 

66.088, 

66.263, 

65.787, 

65.467, 

64 . 993, 

0046 

.  64.764, 

64.762, 

64.4  90, 

64.076, 

63.641, 

63.213, 

63.002, 

63.002, 

0047 

.  62.993, 

63.314, 

63.735, 

63.754, 

63.755, 

63.756, 

63.345, 

63.025, 

0048 

.  62.672, 

62.249, 

62.035, 

62.216, 

62.411, 

62.806, 

62.905, 

63.138, 

0049 

.  63.138, 

63.412, 

63.878, 

64.197, 

64.645, 

64.904, 

64.902, 

64.901, 

0050 

.  64.399, 

64.594, 

64.279, 

64.369, 

64.856, 

65.287, 

65.320, 

64 . 904, 

0051 

.  65.357, 

65.432, 

65.431, 

65.451, 

65.893, 

66.386, 

66.706, 

66.593, 

0052 

.  66.131, 

66.241, 

66.563, 

66.563, 

66.745, 

66.647, 

66.742, 

67.177/ 

0053 

data  ( latitude  ( i)  ,  i>»  321, 

400)  / 

0054 

.  67.661, 

67.940, 

55.002, 

55.279, 

55.642, 

56.061, 

56.558, 

57.062, 

0055 

.  57.550, 

58.007, 

58.337, 

58.455, 

58.454, 

58.897, 

59.272, 

59.742, 

0056 

.  60.243, 

60.741, 

60.824, 

60,823, 

61.320, 

61.804, 

62.305, 

62.543, 

0057 

.  62.3‘’9, 

62.264, 

62.356, 

62.175, 

61.835, 

61.834, 

61.680, 

61.191, 

0058 

.  61.019, 

61.079, 

60.581, 

60.080, 

60.001, 

60.061, 

60.062, 

59.945, 

0059 

.  59.478, 

58.986, 

58.860, 

58.386, 

57.987, 

57.765, 

57.765, 

58.003, 

0060 

.  58.470, 

58.043, 

58.417, 

58.821, 

58.359, 

58.862, 

59.305, 

59.792, 

0061 

.  59.792, 

60.196, 

59.861, 

59.379, 

59.055, 

58.879, 

58.878, 

58.418, 

0062 

.  58.165, 

57.768, 

57.269, 

56.951, 

56.951, 

56.702, 

56.298, 

55.865, 

0063 

.  55.601, 

55.107, 

55.330, 

55.327, 

54.824, 

55.206, 

54.798, 

54.740/ 

0064 

data  ( latitude (i)  ,  i 

-  401, 

480)  / 

0065 

54.284, 

54.111, 

53.837, 

53.723, 

53.297, 

53.587, 

53.714, 

53.714, 

0066 

.  54.041, 

54.181, 

53.748, 

53.622, 

53.249, 

52.774, 

52.291, 

51.837, 

0067 

51.549, 

69.825, 

69.738, 

69.401, 

69.257, 

68.978, 

68.881, 

68.859, 

0068 

.  68.482, 

68.175, 

67 .799, 

67.799, 

67.692, 

67.677, 

67.829, 

67.880, 

0069 

.  67.540, 

67.215, 

66.712, 

67.124, 

67.581, 

68.082, 

68.104, 

68.105, 

0070 

68.430, 

60.331, 

68.129, 

68.627, 

68.804, 

60.729, 

68.257, 

68.021, 

0071 

.  67.802, 

67.724, 

67.793, 

67.793, 

67.734, 

67.728, 

68.199, 

68.474, 

0072 

.  68.016, 

67.526, 

67.183, 

66.698, 

67.162, 

67.659, 

68.007, 

68 . 003, 

0073 

.  67.541, 

67.359, 

67.847, 

68.317, 

68.759, 

69.256, 

69.759, 

69.827, 

0074 

.  69.827, 

69.809, 

69.683, 

69.241, 

68 , 820, 

68.454, 

67.955, 

67.550/ 

0075 

data  ( latitude (i) , i 

-  481, 

560)  / 

007  6 

.  67.053, 

66.712, 

66.711, 

66.419, 

66.843, 

66.929, 

66.612, 

66.287, 

007  ’ 

.  66.516, 

66.029, 

65.628, 

65.333, 

65.611, 

65.630, 

65.630, 

65.858, 

0078 

.  65.906, 

65.679, 

65.314, 

65.291, 

64.812. 

64 . 375, 

64.007, 

64 . 077 , 

00"  9 

.  64.129, 

64.129, 

63.627, 

63 . 649, 

63.780. 

64 .010, 

63.764, 

63 , 532 . 

0080 

.  63.162, 

62 .790, 

62.537, 

62.153. 

49.143. 

48.874, 

48.476, 

48.274, 

0081 

48.394, 

48 . 240, 

47  .  739, 

47.384, 

4  7 . 000 , 

46.743, 

46.742, 

46.9'^, 

008: 

47.333, 

47.733, 

48 , 121, 

48.439, 

48.703, 

48.794, 

55.272, 

55.22':', 

':'083 

.  55.081. 

54.577, 

54.076, 

53.574, 

53 . 072 , 

52.764, 

52.762. 

52.339, 

0084 

.  51.970, 

51.561, 

51.114. 

51 . 298, 

50.962, 

50.724, 

50 . 724 , 

51.154, 

008  5 

.  51.615, 

51.207, 

51.708, 

52.151, 

52.648, 

53.134, 

53 .248, 

53.248, 

0086 

data  (lat  itude  (  i)  ,  i 

-  561, 

640)  / 

0097 

.  53.743, 

54.215, 

54 . 658, 

54.852. 

55.001, 

51.549, 

51.440, 

51.269, 
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0088 

.  51 

019, 

50 

611, 

50 

.249, 

50 

206, 

50 

138, 

50 

188, 

50 

189, 

50 

280, 

0089 

.  50 

294, 

50 

306, 

50 

.277, 

50. 

291, 

50 

215, 

49 

975, 

49 

505, 

49 

286, 

0090 

.  49 

144, 

48 

794, 

48 

.  993, 

49 

188, 

49 

.261, 

49 

164, 

48 

833, 

48 

381, 

0091 

.  48 

069, 

48 

158, 

48 

.045, 

47 

998, 

47 

997, 

47 

956, 

47 

681, 

47 

758, 

0092 

47 

285, 

46 

786, 

46 

.328, 

46. 

150, 

46 

108, 

46 

108, 

45 

729, 

45 

679, 

0093 

.  45 

885, 

45 

574, 

45 

.115, 

45 

046, 

45 

044, 

44 

859, 

44 

676, 

44 

500, 

0094 

44 

212, 

43 

828, 

43 

.497, 

43. 

549, 

43 

549, 

43 

959, 

44 

448, 

44 

759, 

0095 

45 

100, 

45 

111, 

45 

.318, 

45 

387, 

45 

.854, 

45 

857, 

62 

146, 

61 

910, 

0096 

.  61 

480, 

60 

990, 

60 

.527, 

60 

036, 

59 

.533, 

59 

031, 

58 

607, 

58 

740/ 

0097 

data 

(lat 

itude (i)  , 

i" 

641, 

720) 

/ 

0098 

.  58 

743, 

58 

741, 

58 

.248, 

57 

765, 

57 

.283, 

57 

154, 

57 

228, 

56 

975, 

0099 

.  56 

847, 

56 

516, 

56 

.131, 

55 

903, 

55 

.695, 

55 

398, 

55 

259, 

55 

272, 

0100 

.  45 

856, 

45 

523, 

45 

.268, 

45. 

103, 

45 

.151, 

44 

656, 

44 

477, 

44 

347, 

0101 

44 

346, 

44 

356, 

43 

.  965, 

43 

734, 

43 

433, 

43 

Oil, 

42 

519, 

42 

056, 

0102 

.  41 

778, 

41 

828, 

41 

.828, 

41 

559, 

41 

478, 

41 

322, 

41 

277, 

41 

164, 

0103 

40 

949, 

40 

613, 

40 

.510, 

40 

508, 

40 

.039, 

39 

583, 

39 

168, 

39 

298, 

0104 

.  39 

791, 

39 

289, 

38 

.820, 

38. 

452, 

38 

452, 

38 

020, 

37 

551, 

37 

132, 

0105 

.  37 

631, 

38 

131, 

38 

.461, 

38. 

959, 

39 

370, 

39 

302, 

38 

801, 

38 

301, 

0106 

.  38 

416, 

38 

334, 

38 

.333, 

38. 

145, 

37 

.723, 

37 

989, 

37 

616, 

37 

129, 

0107 

.  37 

254, 

36 

857, 

36 

.698, 

36 

546, 

36 

547, 

36 

064, 

36 

537, 

36 

102/ 

0108 

data 

( latitude (i) , 

i” 

721, 

800) 

/ 

0109 

.  35 

696, 

35 

696, 

35 

.399, 

34. 

908, 

34 

607, 

34 

753, 

34 

752, 

34 

313, 

Clio 

.  33 

894, 

33 

822, 

33 

.465, 

33. 

151, 

33 

151, 

32 

7  92, 

32 

524, 

32 

536, 

0111 

.  32 

037, 

31 

581, 

31 

.363, 

31 

362, 

30 

.861, 

30 

364, 

29 

874, 

29 

401, 

0112 

.  28 

948, 

28 

515, 

28 

.013, 

27. 

864, 

27 

864, 

28 

343, 

27 

854, 

27 

383, 

0113 

.  26 

921, 

26 

419, 

25 

919, 

25. 

461, 

25 

185, 

25 

186, 

25 

139, 

25 

578, 

0114 

.  25 

939, 

26 

399, 

26 

.711, 

26. 

711, 

26 

.999, 

27 

403, 

27 

881, 

28 

303, 

0115 

.  28 

807, 

29 

193, 

29 

.301, 

29. 

301, 

29 

706, 

30 

041 , 

29 

908, 

29 

704  , 

0116 

.  29 

969, 

30 

262, 

30 

.512, 

30. 

511, 

30 

385, 

30 

348, 

30 

707, 

30 

350, 

0117 

.  30 

383, 

30 

181, 

30 

.361, 

30. 

303, 

30 

.302, 

30 

130, 

29 

681, 

29 

290, 

0118 

.  28 

927, 

28 

927, 

29 

.315, 

29. 

305, 

29 

144, 

29 

334, 

29 

335, 

29 

749/ 

0119 

data 

(lat 

itude (i) , 

i- 

301, 

770) 

/ 

0120 

.  29 

576, 

29 

632, 

29 

.778, 

29. 

747, 

29 

745, 

29 

541, 

29 

699, 

29 

204, 

0121 

.  28 

848, 

28 

603, 

28 

.639, 

28. 

476, 

28 

475, 

28 

106, 

27 

613, 

27 

288, 

0122 

.  26 

814, 

26 

335, 

26 

.074, 

26. 

074, 

25 

968, 

32 

536, 

33 

003, 

33 

003, 

0123 

.  33 

424, 

33 

740, 

34 

.056, 

34. 

127, 

34 

423, 

34 

475, 

34 

454, 

34 

454, 

0124 

.  34 

925, 

35 

403, 

35 

.747, 

36. 

163, 

36 

603, 

36 

731, 

36 

731, 

37 

060, 

0125 

.  37 

518, 

38 

007, 

38 

.020, 

38. 

142, 

38 

022, 

38 

307, 

38 

307, 

38 

706, 

0126 

.  39 

156, 

39 

659, 

40 

.101, 

40. 

560, 

41 

029, 

41 

531, 

41 

790, 

41 

791, 

0127 

.  42 

279, 

42 

776, 

43 

.271, 

43. 

740, 

44 

240, 

44 

743, 

44 

920, 

44 

920, 

0128 

.  45 

422, 

45 

925. 

46 

.159, 

46. 

326, 

46 

694, 

46 

693, 

47 

114, 

47 

604, 

0129 

.  48 

058, 

48 

399, 

48 

.399, 

48. 

190, 

48 

132, 

47 

907, 

47 

506, 

47 

885/ 

0130 

data 

(latitude  (i)  , 

i-  881, 

960) 

/ 

0131 

.  47 

384, 

47 

868, 

48 

.011, 

52. 

647, 

52 

647, 

53 

280, 

52 

820, 

53 

207, 

0132 

.  53 

280, 

53 

701, 

53 

.701, 

52. 

S16, 

52 

816, 

53 

909, 

53 

546, 

53 

837, 

0133 

.  53 

909, 

53 

617, 

53 

.276, 

53. 

546, 

53 

617, 

53 

7  98, 

53 

798, 

54 

0  67, 

0134 

54 

067, 

55 

014, 

55 

.014, 

53. 

229, 

52 

726, 

52 

366, 

52 

654, 

53 

033, 

0135 

.  53 

229, 

54 

124, 

53 

646, 

53. 

168, 

53 

464, 

53 

940, 

54 

110, 

53 

640, 

0136 

54 

022, 

54 

124, 

69 

.578, 

69. 

5/8, 

69 

100, 

69 

484, 

68 

996, 

69 

100, 

0137 

.  50 

697, 

50 

816, 

50 

568, 

50. 

121, 

50 

113, 

49 

739, 

49 

377, 

48 

967, 

0138 

49 

055, 

49 

241, 

49 

.241, 

48. 

805, 

48 

547, 

48 

355, 

48 

832, 

49 

242, 

013  8 

49 

463, 

49 

893, 

50 

.338, 

50. 

465, 

50 

590, 

50 

699, 

48 

604, 

48 

604, 

0140 

.  48 

711, 

48 

711, 

48 

929, 

48. 

929, 

49 

093, 

49 

093, 

49 

792, 

49 

7  92,' 

0141 

data 

( lat 

itude  ( i)  , 

i-  961, 

1040) 

/ 

0  14  2 

50 

2  2  6, 

50 

226, 

50 

290, 

50. 

290, 

50 

431 , 

50 

431  , 

50 

821  , 

50 

821 , 

014  3 

.  49 

3  90 , 

49 

390, 

51 

712, 

51. 

712. 

52 

048. 

52 

048  , 

52 

421. 

5  2 

005  . 

0144 

.  52 

434, 

52 

421, 

52 

289, 

52 

289. 

52 

183, 

52 

183, 

52 

791, 

5  2 

'91, 

0145 

49 

879, 

49 

879, 

62 

526, 

62  . 

526, 

61 

924, 

61 

924, 

61 

588, 

61 

588  . 

0146 

.  62 

'■’4, 

62 

774, 

67 

964  , 

67 

941 . 

67 

975. 

67 

964  , 

68 

142, 

6' 

640, 

814' 

67 

25'' . 

67 

372, 

67 

876, 

68 

296, 

68 

2  3 

68 

142  . 

63 

998, 

63 

998  . 

0148 

.  63 

453, 

63 

453, 

63 

257, 

63. 

419, 

63 

275, 

63 

257, 

62 

980, 

62 

491 , 

0149 

.  62 

250, 

62 

744, 

62 

939, 

62. 

980, 

62 

411, 

61 

907, 

62 

334, 

62 

411, 

0150 

.  56 

415, 

56 

415, 

56 

525, 

56. 

023, 

55 

893, 

56 

321, 

56 

525, 

56 

499, 

0151 

.  56 

499, 

60 

809, 

60 

809, 

62. 

740, 

62 

740, 

60 

561, 

60 

561, 

60 

485, 
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0152 

data  ( latitude  (i)  ,  i 

-  1041, 

1120) / 

0153 

.  60.485, 

56.911, 

56.911, 

54.912, 

54 . 912, 

74.027, 

74.276, 

73.991, 

0154 

.  73.604, 

73.222, 

72.906, 

72.570, 

72.169, 

71.672, 

71.434, 

71.082, 

0155 

.  71.512, 

71.854, 

72.318, 

72.498, 

72.493, 

72.938, 

73.438, 

73.937, 

0156 

.  74.416, 

74.528, 

74.286, 

74.026, 

72.603, 

72.940, 

72.815, 

72.313, 

0157 

.  72.456, 

72.929, 

72.740, 

72.264, 

71.773, 

71 . 608, 

71.612, 

72.114, 

0158 

72.606, 

73 . 101, 

73.215, 

72.838, 

72.345, 

71.856, 

71.379, 

71.000, 

0159 

.  70.999, 

70.593, 

70.351, 

70.075, 

69.847, 

69.442, 

69.223, 

68.832, 

0160 

.  68.863, 

68.941, 

68.942, 

69,149, 

69.499, 

69.063, 

68.879, 

68.629, 

0161 

.  68.623, 

68.621, 

68.584, 

68.467, 

68.851, 

69.286, 

69.281, 

69.588, 

0162 

.  69.995, 

69.995, 

70.211, 

70.30'’, 

70.255, 

70.273, 

70.545, 

70.676/ 

0163 

data  ( latitude  (i)  ,  i 

-  1121, 

1200)  / 

0164 

.  70.595, 

70.626, 

70.998, 

71.240, 

71.262, 

71.262, 

71.460, 

71.424, 

0165 

.  71.626, 

72.121, 

72.601, 

72,952, 

73.214, 

72.955, 

72.602, 

64.916, 

0166 

.  64.635, 

64.174, 

63.983, 

63.511, 

63.667, 

63.981, 

63.718, 

63.327, 

0167 

.  63.324, 

63.767, 

63.767, 

63.586, 

64.059, 

64.560, 

65.059, 

65.560, 

0169 

.  65.327, 

65.164, 

64.914, 

68.291, 

68.291, 

68.484, 

68.484, 

67 . 940, 

0169 

.  67.940, 

68.114, 

68.114, 

68.232, 

68.232, 

68.092, 

68.092, 

67 . 973, 

0170 

.  67.973, 

67.645, 

67.645, 

67.462, 

67.462, 

67.196, 

67.196, 

68.574, 

0171 

.  68.574, 

68.768, 

68.768, 

68.369, 

68.369, 

68.996, 

68.996, 

69.118, 

0172 

.  69.118, 

69.198, 

69.198, 

69.504, 

69.504, 

70.660, 

70.660, 

73.527, 

0173 

.  73.042, 

73.357, 

73.762, 

73.527, 

73.570, 

73.570, 

69.882, 

69.507/ 

0174 

data  (latituda (i) , i 

-  1201, 

1280)  / 

01'’5 

69.069, 

68.573, 

68.535, 

68.800, 

69.299, 

69.794, 

69.882, 

69.546, 

0176 

.  69.546, 

69.566, 

69.566, 

68.162, 

68.162, 

69.781, 

69.781, 

66.251, 

017-’ 

.  66.251, 

65.832, 

65.832, 

66.010, 

66.010, 

66.000, 

66.000, 

63.477, 

0178 

.  63.477, 

63.543, 

63.543, 

51.612, 

51.161, 

50.664, 

50.234, 

49.781, 

0179 

.  50.100, 

50.008, 

50.007, 

49.675, 

49.493, 

49.499, 

49.401, 

49.254, 

0180 

.  49.252, 

48.886, 

48.396, 

48.600, 

48.226, 

47.730, 

48.027, 

48.171, 

0181 

.  48.169, 

47 . 699, 

47.263, 

46.773, 

46.980, 

47.447, 

47.896, 

47.419, 

0182 

.  47.172, 

46.866, 

46.866, 

47.365, 

47.501, 

47.593, 

47.629, 

47.667, 

0193 

.  47.634, 

47.633, 

47.565, 

48.066, 

48.419, 

48.919, 

49.172, 

49.559, 

0184 

.  49.556, 

50.022, 

50.496, 

50.904, 

51.360, 

51.610, 

51.605, 

53.179/ 

0185 

data  (latituda  (i)  ,  i 

-  1281, 

1360)  / 

0186 

.  52.746, 

52.862, 

53.179, 

52.092, 

52.092, 

49.841, 

49.666, 

4  9.394, 

0187 

.  49.171, 

49.372, 

49.716, 

49.841, 

50.784, 

50.784, 

49.634, 

49.634, 

0188 

.  49.736, 

49.736, 

48.191, 

48.191, 

47.641, 

47.641, 

47.071, 

47.071, 

0189 

.  46.851, 

46.366, 

45,986, 

46.202, 

45.706, 

45.622, 

45.924, 

46.372, 

0190 

.  46.816, 

46.851, 

47,641, 

47.298, 

47.641, 

47.037, 

46.537, 

46.429, 

0191 

.  46.478, 

45.979, 

46.239, 

46.398, 

46.704, 

47.037, 

47.918, 

47.918, 

0192 

.  43.939, 

43.939, 

55.246, 

54.792, 

55.219, 

55.246, 

56.350, 

56.028, 

0193 

.  55.636, 

55.182, 

54.688, 

55.122, 

55.507, 

56.003, 

56.350, 

55.331, 

0194 

.  55.331, 

56,129, 

56.129, 

54.986, 

54.986, 

55.236, 

55.236, 

55.413, 

0195 

.  55.413, 

55.954, 

55.469, 

55.794, 

55.954, 

56.336, 

56.336, 

56.480/ 

0196 

data  (latituda (i) , i 

-  1361, 

1440)  / 

0197 

.  56.480, 

56.456, 

56.456, 

56.786, 

56.786, 

56.978, 

56.476, 

56.826, 

0198 

.  56.978, 

56.899, 

56.411, 

56,819, 

56.899, 

57.431, 

56.974, 

56.472, 

0199 

.  56.802, 

57.284, 

57.431, 

57.317, 

57.317, 

58.249, 

58.000, 

57.993, 

0200 

.  57.749, 

57.381, 

57.784, 

58.246, 

58.249, 

58.089, 

58.089, 

58.363, 

0201 

.  58.048, 

57.581, 

58.027, 

57.550, 

57.109, 

57.590, 

58.088, 

58.363, 

0202 

.  60.574, 

60,574, 

60.393, 

60.393, 

60.286, 

59.865, 

60.349, 

60.286, 

0203 

.  58.593, 

58.593, 

58.360, 

58.009, 

58.388, 

58.360, 

58.002, 

57.829, 

0204 

.  57.469, 

57.081, 

56.989, 

57.486, 

57.321, 

57.817, 

58.002, 

57.136, 

0205 

.  57.136, 

56.551, 

56.551, 

57.969, 

57.969, 

56.604, 

56.604, 

56.588, 

02  0  6 

56.588, 

55 . 911 , 

55.911, 

55.278. 

55.278, 

55.238, 

55.238, 

55.400 

020"! 

data  (latituda (i)  ,  i 

-  1441, 

1520) 

0208 

55.400, 

54 . 965, 

54 . 965. 

54 . 485. 

54 .485, 

54 . 992 , 

54.622, 

54.4-1, 

0209 

.  54.913, 

55 . 042 , 

54 . 992, 

58.792. 

58.792, 

39.540, 

39.540, 

37 . 931 , 

0210 

37.931, 

35 . 200, 

35.666, 

35.195. 

35.200. 

35.172, 

35.172, 

35 . 049, 

0211 

.  35.049, 

34.915, 

34 . 915, 

34 . 694  . 

34 . 694 , 

34 . 514 , 

34.514, 

33 , 8  93  , 

0212 

33.893, 

27.843, 

27 . 3-?;  , 

27.841, 

27.843, 

25.478, 

25.478, 

25,328, 

0213 

.  25.328, 

24.867, 

24 .867, 

24.813, 

24.813, 

24.757, 

24.757, 

24.717, 

0214 

.  24.717, 

24.745, 

24.745, 

24.688, 

24.688, 

24.681, 

24.681, 

24.591, 

0215 

.  24,591, 

24.552, 

24,552, 

26.515, 

26.515, 

29.743, 

29.743, 

30.397, 
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0216 

.  30.336, 

30.404, 

30.397, 

30.241, 

30.241, 

30.216, 

30.216, 

29.980, 

0217 

.  29.980, 

30.116, 

30.116, 

29.559, 

29.559, 

29.351, 

29.351, 

28 . 476/ 

0218 

data  ( latitude  (i)  ,  i 

-  1521, 

1600)  / 

0219 

.  28.476, 

28.382, 

28.382, 

28.106, 

28.106, 

27.820, 

27.381, 

27.833, 

0220 

.  27.820, 

27 . 181, 

26.681, 

26.195, 

26.677, 

27.177, 

27,181, 

24.592, 

0221 

.  24.592, 

44.801, 

44 . 801, 

44.439, 

44.439, 

41.384, 

41.384, 

41.465, 

0222 

.  41.465, 

41.048, 

40.835, 

40.708, 

40.591, 

40.933, 

40.980, 

41.052, 

0223 

41.048, 

45.884, 

45.664, 

45.833, 

45.992, 

45.884, 

45.990, 

45.990, 

0224 

46.104, 

46.104, 

46.293, 

46.293, 

45.734, 

45.734, 

45.276, 

44.823, 

0225 

.  45.300, 

45.276, 

47.336, 

47.336, 

48.162, 

47.856, 

48.180, 

48.162, 

.226 

48.839, 

48.839, 

46.869, 

46.869, 

46.949, 

46.949, 

47.062, 

47.062, 

0227 

.  32.993, 

32.993, 

33.478, 

33.478, 

33.279, 

33.279, 

34 . 084 , 

34.084, 

0228 

.  34.033, 

34.033, 

34.057, 

34.057, 

48.392, 

48.392, 

65.163, 

65.563/ 

0229 

data  (latitude  (i)  ,  i 

-  1601, 

1680)  / 

0230 

.  65.987, 

66.168, 

66.156, 

66.441, 

66.591, 

66.862, 

67.028, 

66.542, 

0231 

.  66.313, 

66.578, 

66.076, 

65.622, 

65.792, 

65.301, 

64.968, 

65.432, 

0232 

.  65.369, 

65.017, 

65.163, 

53.045, 

52.548, 

52.125, 

51.987, 

51.487, 

0233 

.  51.034, 

50.534, 

50.862, 

51.359, 

51.771, 

51.771, 

52.218, 

52.711, 

0234 

.  53.195, 

53.649, 

54.108, 

53.876, 

53.396, 

53.052, 

53.031, 

60.882, 

0235 

60.970, 

61.392, 

61.537, 

61.918, 

62.324, 

62.487, 

62.618, 

62.819, 

0236 

.  62.658, 

62.852, 

62.852, 

62.942, 

62.747, 

62.326, 

62.043, 

62.162, 

0237 

.  62.418, 

62.654, 

62.231, 

61.733, 

61.403, 

61.202, 

60.861, 

60.888, 

0238 

43.000, 

42.500, 

42.043, 

41.685, 

41.894, 

42.374, 

42.877, 

42 . 998, 

0239 

.  44.502, 

44.153, 

43.654, 

43.344, 

43.278, 

43.388, 

43.331, 

43.273/ 

0240 

data  (latitude  (i)  ,  i 

-  1681, 

1760)  / 

0241 

.  43.273, 

43.264, 

43.669, 

43.886, 

43.976, 

43.968, 

44.209, 

44.365, 

0242 

.  44.502, 

42.478, 

42.663, 

42.571, 

42.849, 

42 . 846, 

42.419, 

42.278, 

0243 

.  43.021, 

43.512, 

43.995, 

43.810, 

44.311, 

44 . 808, 

45.304, 

45.502, 

0244 

.  45.771, 

45.773, 

45.772, 

45.321, 

44.835, 

44.741, 

44.256, 

43.757, 

0245 

.  43.261, 

43.000, 

42.998, 

43.497, 

43.993, 

44 . 479, 

44.916, 

45.325, 

0246 

.  45.758, 

45.809, 

45.809, 

45.974, 

45.969, 

45.985, 

46.483, 

4  6.498, 

0247 

.  46.692, 

46.685, 

46.686, 

46.472, 

46.658, 

46.922, 

47.193, 

46.888, 

0248 

.  46.706, 

46.584, 

46.584, 

46.939, 

46.751, 

47.224, 

47.584, 

47.793, 

0249 

.  48.011, 

48.011, 

48.447, 

48.703, 

48.935, 

48.772, 

48.746, 

48.626, 

0250 

.  48.625, 

48.155, 

47.927, 

47.530, 

47.039, 

46.553, 

46.331, 

46.284/ 

0251 

data  (latitude (i) , i 

-  1761, 

1840) / 

0252 

.  46.284, 

46.179, 

46.123, 

45.979, 

45.924, 

45.489, 

45.066, 

44.752, 

0253 

.  44.752, 

44.525, 

44.791, 

45.193, 

44.690, 

44.236, 

43.741, 

43.253, 

0254 

.  43.015, 

42.238, 

42.341, 

42.280, 

42.122, 

42.278, 

42.041, 

41.857, 

0255 

.  41.606, 

41.479, 

41.450, 

41.710, 

42.122, 

42.238, 

41.967, 

42.262, 

0256 

.  42.478, 

41.660, 

41.216, 

40.756, 

41.037, 

41.517, 

41.660, 

66.127, 

0257 

66.378, 

66.765, 

67.250, 

67.689, 

68.047, 

68.530, 

68.105, 

68.098, 

0258 

.  68,293, 

68.496, 

68.496, 

68.588, 

68.845, 

69.291, 

69.588, 

69.879, 

0259 

.  70.172, 

70.359, 

70.252, 

70.068, 

70.324, 

70.503, 

70.439, 

70.439, 

0260 

.  70.740, 

70.952, 

71.273, 

71.502, 

71.541, 

72.045, 

71.720, 

71.539, 

0261 

.  71.207, 

70.729, 

70.433, 

70.709, 

71.001, 

71.001, 

71.502, 

71.932/ 

0262 

data  (latitude (i) , i 

-  1841, 

1920)  / 

0263 

.  72.254, 

72.126, 

72.568, 

72.619, 

72.964, 

73.104, 

73.432, 

73.924, 

0264 

73.952, 

73.952, 

73.563, 

73.568, 

73.452, 

73.954, 

74.308, 

74 .457, 

0265 

.  74.962, 

75.428, 

75.554, 

75.555. 

75.311, 

75.724, 

75.956, 

76.421, 

0266 

76.824, 

76.816, 

77.306, 

77.414, 

77.915, 

77.523. 

77.525, 

78.027, 

0267 

.  78.519, 

78 . 964, 

79.468, 

79.849, 

80.095, 

80.231, 

80.624, 

80.721, 

0268 

81.000, 

81.001, 

81.418, 

81.881, 

81.737, 

81.535, 

81.092, 

80.641, 

0269 

.  81.129, 

81 . 609, 

81.594, 

82.025, 

81.871. 

82.186, 

82.253, 

82.596, 

0270 

.  82.714, 

82.712. 

83.064, 

83.126. 

82 . 970, 

83.174, 

83.591. 

83.553, 

0271 

.  83.114, 

83.235. 

83.200, 

83.201. 

82 . 809, 

82.362, 

82. '64, 

82 . 28' , 

02^2 

91.805, 

82.152. 

82.512, 

82.008. 

81.795, 

82 .280, 

82.262, 

82 .262/ 

02  77 

data  ( latit 

ude ( i )  ,  i 

-  1921, 

2000)  .' 

0274 

82.032, 

81 .599. 

81 . 944 , 

81 . 455, 

81 . 136, 

80.753, 

80.364 , 

80 .062 , 

0275 

80.149, 

80 .146. 

79.685, 

79.206, 

'9.066, 

78.735, 

78.523, 

78 . 021 

0276 

.  77.849, 

77.506. 

77.716, 

77.716. 

77.369, 

77.193, 

77.165, 

77.203, 

0  2  7  7 

.  76.743, 

76.273, 

76.007, 

76.148, 

76.373, 

76.164, 

75.998, 

75 . 998, 

0278 

.  75.720, 

75.218, 

74.849, 

74.394. 

73.902, 

73.420, 

73.351, 

73.351, 

0279 

.  72.864, 

72.453, 

71.955, 

71.454, 

71.438, 

71.919, 

71.613, 

71.482, 
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0280 

.  71.482, 

71.166, 

71.020, 

70.523, 

70.649, 

70.786, 

70.331, 

70.017, 

0281 

.  70.025, 

69.531, 

69.051, 

68.603, 

68.549, 

68.191, 

68.280, 

68.587, 

0282 

69.060, 

69.303, 

69.185, 

69.586, 

69.524, 

69.535, 

69.536, 

69.635, 

0283 

.  69.727, 

70.198, 

69.946, 

69.837, 

70.236, 

70.541, 

70.693, 

7  0.4  77,/ 

0284 

data  (latituda  (i)  ,  i 

-  2001, 

2080)  / 

0285 

.  70.946, 

70.788, 

70.620, 

70.628, 

71.088, 

71.588, 

71.212, 

71.679, 

0286 

.  71.306, 

71 . 800, 

72.082, 

72.582, 

72.753, 

72.268, 

72.128, 

72.128, 

0287 

.  72.309, 

71.048, 

72.228, 

12.021, 

72.520, 

73.019, 

73.491, 

73.729, 

0288 

73.461, 

72.994, 

72.983, 

72.982, 

73.089, 

72.771, 

72.959, 

72 . 459, 

0289 

.  72.097, 

72.029, 

71.641, 

71.142, 

71.000, 

71.274, 

71.689, 

72.162, 

0290 

.  72.659, 

72.999, 

72.998, 

73.458, 

73.816, 

73.529, 

73.092, 

72.611, 

0291 

.  72.111, 

71.618, 

71.262, 

71.072, 

70.944, 

70.795, 

70.420, 

70.384, 

0292 

.  70.010, 

69.993, 

69.963, 

69.922, 

69.941, 

69.876, 

69.876, 

70.350, 

0293 

70.239, 

69.742, 

€9.665, 

69.210, 

68.842, 

68.885, 

68.514, 

68.215, 

0294 

.  67.942, 

67.999, 

68.461, 

68.940, 

69.048, 

68.554, 

68.989, 

69.4  90,/ 

0295 

data  ( latitude  (i)  ,  i 

-  2081, 

2160)  / 

0296 

.  69.501, 

69.999, 

70.153, 

70.153, 

70.601, 

71.053, 

71.526, 

71.895, 

0297 

.  71.618, 

71.149, 

71.118, 

71.119, 

70.622, 

70.131, 

69.747, 

69.483, 

0298 

.  68.979, 

68.631, 

68.249, 

68.005, 

73.944, 

73.802, 

73.411, 

73.042, 

0299 

.  72.732, 

72.246, 

71.760, 

71.424, 

71.273, 

71.273, 

71.696, 

72.114, 

0300 

.  72.394, 

72.832, 

72 . 693, 

73.128, 

73.450, 

73.847, 

73.944, 

76.168, 

0301 

.  75.734, 

75.526, 

76.028, 

76.526, 

76.131, 

75.761, 

75.389, 

74.975, 

0302 

75.096, 

75.096, 

74.872, 

74.605, 

74.400, 

74.655, 

74.971, 

75.157, 

0303 

.  75.093, 

74.975, 

75.122, 

75.551, 

76.017, 

76.456, 

76.213, 

76.167, 

0304 

.  76.658, 

76.379, 

75.923, 

75.745, 

75.444, 

75.403, 

75.761, 

75.826, 

0305 

.  75.622, 

75.127, 

74.897, 

74.896, 

74.563, 

74.511, 

74.509, 

74.483/ 

0306 

data  (latitude (i) , i 

-  2161, 

2240)  / 

0307 

.  74.484, 

74.552, 

74.884, 

74.884, 

75.187, 

75.679, 

76.153, 

76.314, 

0308 

.  76.640, 

76.973, 

76.606, 

76.654, 

82.465, 

82.955, 

82.794, 

83.113, 

0309 

.  82.934, 

82.640, 

82.218, 

81.849, 

81.621, 

81.261, 

81.101, 

81.101, 

0310 

.  81.374, 

80.877, 

80.458, 

80.121. 

79.828, 

79.380, 

79.344, 

79.366, 

0311 

.  79.366, 

79.237, 

79.189, 

78.873, 

78.394, 

77.967, 

77.564, 

77.303, 

0312 

.  77.607, 

77,158, 

77,159, 

77.231, 

76.902, 

76.462, 

76.171, 

76.554, 

0313 

.  76.642, 

76.371, 

76.634, 

76.634, 

76.446, 

76.935, 

77.179, 

77.632, 

0314 

.  77.591, 

77.369, 

77.817, 

77.512, 

77.974, 

78.457, 

78.137, 

78.634, 

0315 

.  78,866, 

78.599, 

78.599, 

78.599, 

78.959, 

79.448, 

79.841, 

00.333, 

0316 

.  80.109, 

79.685, 

90.163, 

80.481, 

80.583, 

80.582, 

81.077, 

80.699/ 

0317 

data  (latitude (i) , i 

-  2241, 

2320)  / 

0318 

.  80.747, 

80.577, 

81.021, 

80.653, 

81.114, 

81.038, 

81.528, 

81.505, 

0319 

81.506, 

81.371, 

81.874, 

81.934, 

82.394, 

82.073, 

81.834, 

02.232, 

0320 

.  82.728, 

82.881, 

82.466, 

81.111, 

80.904, 

80.475, 

80.087, 

79.596, 

0321 

79.334, 

78.952, 

78.510, 

78.333, 

78.389, 

78.842, 

79.162, 

79.247, 

0322 

.  79.247, 

79.416, 

79.400, 

79.874, 

80.170, 

80.574, 

81.049, 

81.110, 

0323 

.  70.944, 

71.044, 

70.792, 

71.063, 

70.566, 

70.471, 

70.900, 

71.063, 

0324 

.  72.819, 

72.464, 

72.407, 

72.837, 

72.819, 

72.912, 

72.869, 

72.921, 

0325 

.  72.912, 

73.415, 

73.147, 

73.045, 

73.415, 

74.381, 

74.381, 

75.401, 

0326 

.  75.401, 

82.073, 

82.497, 

82.113, 

82.073, 

81.971, 

81.971, 

70.316, 

0327 

.  70.086, 

69.754, 

69.354, 

69.354, 

69.800, 

70.289. 

70.316, 

69.919/ 

0328 

data  (latitude  (i)  ,  i 

-  2321, 

2400)  / 

0329 

.  69.919, 

73.750, 

73.633, 

73.515, 

73.101, 

72.892, 

72.748, 

73.217, 

0330 

.  73.686, 

73.750, 

69.442, 

69.442, 

69.390, 

68.909, 

69.392, 

69.390, 

0331 

.  69.742, 

69.742, 

69.790, 

69.790 

74 . 021. 

74.170, 

74.026, 

73.583, 

03  3  2 

73.130, 

72.707, 

72.765, 

72.264, 

71.965, 

72.467, 

72.946, 

73 . 450, 

03  3  3 

.  73.944, 

74.021, 

74.100, 

73.818, 

74 . 100, 

75.631, 

75.261, 

74.758, 

0334 

.  74.798, 

75.261, 

75.631, 

75.435, 

75 .435 , 

75 . 934 , 

75.934, 

76.288, 

03  3  5 

.  ■'6.239, 

76 . 669, 

76 . 669, 

76.722, 

7  k  ’  2 '' 

77.749, 

”.31’. 

’’.691, 

03  3  6 

.  7^.749, 

76.114, 

75.634, 

76.118, 

76.114, 

77.361. 

77.550, 

”  . 050 , 

0  3  3’ 

.  76.562, 

76 . 518, 

76.036, 

75 . 989, 

76.494, 

76.914, 

’7.32’, 

”.361, 

0  3  3  8 

’6.885, 

76.885, 

78.099, 

77.605, 

77 .323, 

7’  .-’56, 

■'8.073, 

78.099 

0339 

data  ( lat itude  1  i ) , i 

-  2401, 

2  4  801  ,' 

0340 

78.059. 

78.059, 

78.752. 

78.295, 

78.759, 

78.752 , 

.  893  , 

77.89?, 

0341 

79.353, 

78 . 897 , 

78.752, 

78.266, 

78.268, 

70.262, 

78.720, 

79.020, 

03  4  2 

79.353, 

77 . 704, 

77.461, 

77.704, 

78.817, 

78 . 492  , 

78.040, 

77 .805, 

0343 

78.280, 

78 . 772 , 

78,817, 

77.654, 

77 . 654, 

76.837, 

76.837, 

76.116, 
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0344 

.  76.116, 

80.151, 

79.679, 

80.151, 

68.706, 

68.706, 

76.628, 

76.591, 

0345 

.  76.119, 

75.616, 

75.116, 

74.982, 

75.412, 

75.521, 

75.960, 

76.144, 

0346 

.  76.566, 

76. 628, 

75.042, 

75.042, 

76.748, 

76.252, 

76.748, 

76.748, 

0347 

.  77.900, 

77 . 900, 

77.883, 

77.883, 

78.938, 

78.938, 

79.219, 

79.219, 

0348 

.  80.151, 

80.151, 

77.454, 

77.454, 

77.456, 

77.456, 

71.666, 

71.666, 

0349 

.  71.301, 

71.301, 

71.384, 

71.384, 

69.417, 

69.417, 

69.372, 

69.372,'’ 

0350 

0351 

data  ( latitude  (i)  ,  i 
69.876,  69.876, 

-  2481, 
73.182, 

2560) / 
73.182, 

73.119, 

73.119, 

78.668, 

78 . 668, 

0352 

.  78.857, 

78.857, 

70.481. 

70.481, 

66.129, 

65.873, 

66.323, 

65.915, 

0353 

.  65.572, 

65.505, 

65.503, 

65.003, 

64.518, 

64.270, 

63.989, 

63 . 501, 

0354 

.  63.522, 

63.522, 

63.030, 

62.875, 

62.401, 

61.906, 

61.594, 

61.594, 

0355 

.  61.126, 

60.645, 

60.584, 

60.323, 

60.194, 

60.098, 

60.502, 

60.131, 

0356 

60.594, 

60.737, 

60.737, 

60.514, 

61.013, 

61.017, 

60.919, 

61.187, 

0357 

.  61.188, 

61.417, 

61.908, 

62.263, 

62.735, 

63.057, 

63.057, 

63.201, 

0358 

63.622, 

64 . 093, 

64.453, 

64.340, 

64.340, 

64.784, 

65.166, 

64 . 667, 

0359 

.  64.283, 

64.777, 

65.277, 

65.728, 

65.711, 

65.711, 

65.695, 

65 . 668, 

0360 

.  65.988, 

65.869, 

66.323. 

66.662, 

66.832, 

66.698, 

66.355, 

66.836/ 

0361 

0362 

data  ( latitude (i) , i 
.  60.312,  67.217, 

-  2561, 
67.187, 

2640)  / 
67.189, 

67 .361, 

67.314, 

67.715, 

67.540, 

0363 

67.767, 

67 . 611, 

67.940, 

67.993, 

68.489, 

68.236, 

60.193, 

65.586, 

0364 

.  65.586, 

65.532, 

65.532, 

65.706, 

65.706, 

64.476, 

64.476, 

64.202, 

0365 

.  64.202, 

63.612, 

63. 612, 

63.251, 

63.251, 

62.790, 

62.790, 

62.695, 

0366 

.  62.695, 

62.494, 

62.494, 

61.769, 

61.769, 

59.966, 

59.966, 

59.925, 

0367 

.  59.925, 

59.915, 

59.915, 

59.829, 

59.829, 

59.988, 

59.988, 

60.114, 

0368 

60.114, 

60.376, 

60.376, 

60.422, 

60.422, 

60.434, 

60.434, 

60.372, 

0369 

.  60.372, 

60.472, 

60.472, 

60.772, 

60.772, 

60.746, 

60.746, 

60 . 805, 

0370 

60.805, 

60.824, 

60.824, 

60.885, 

60.885, 

60.862, 

60.862, 

60.915, 

0371 

.  60.915, 

60.797, 

60.797, 

60.800, 

60.800, 

65.574, 

65.574, 

25. 969/ 

0372 

0373 

data  (latitude  (i)  ,  i 
.  25.479,  25.031, 

-  2641, 
24.544, 

2720)  / 
24.044, 

23.543, 

23.039, 

22.542, 

22.048 

0374 

.  21.646, 

22.031, 

21.547, 

21.099, 

20.754, 

20.754, 

20.346, 

19.954, 

0375 

.  19.489, 

19.063, 

18.716, 

18.663, 

18.364, 

18.155, 

18.155, 

18.295, 

0376 

.  18.440, 

18.485, 

18.682, 

18.504, 

18.565, 

19.029, 

19.356, 

19.374, 

0377 

.  19.374, 

19.854, 

20.350, 

20.843, 

21.196, 

21.322, 

21.398, 

21.572, 

0378 

.  21.567, 

21.446, 

21.623, 

21.623, 

21.201, 

20.722, 

20.345, 

19.853, 

0379 

.  19.385, 

18.882, 

18.398, 

18 . 838, 

18.486, 

18.486, 

18.005, 

17.506, 

0380 

.  17.008, 

16.520, 

16.195, 

15.894, 

15.894, 

15.832, 

15.723, 

15.723, 

0381 

.  15.914, 

15.814, 

15.789, 

15.882, 

15.944, 

15.944, 

15.916, 

15.876, 

0382 

.  15.805, 

15.805, 

15.466, 

15.254, 

14.994, 

14.994, 

14.502, 

14.023/ 

0383 

0384 

data  (latitude (i) , i 
.  13.550,  13.549, 

-  2721, 
13.046, 

2800) / 
12.544, 

12.063, 

12.066, 

12.065, 

11.565, 

0385 

.  11.069, 

10.925, 

10.925, 

10.463, 

10.065, 

9.694, 

9.566, 

7.227, 

0386 

7.615, 

8.067, 

8.224, 

8.128, 

8.128, 

8.478, 

8.665, 

8 . 951, 

0387 

9.141, 

9.141, 

9.000, 

8.933, 

8.933, 

8.885, 

8.885, 

8.493, 

0388 

8.308, 

7.999, 

7.999, 

7.627, 

7.277, 

7.247, 

7.732, 

7.896, 

0389 

7.896, 

8.021, 

8.199, 

9.351, 

8.351, 

8.072, 

8.028, 

9.566, 

0390 

9.186, 

8.926, 

8.837, 

8.837, 

8 . 808, 

9.048, 

9.201, 

9.281, 

0391 

9.274, 

9.375, 

9.375, 

9.560, 

9.412, 

9.338, 

9.221, 

9.221, 

0392 

8.857, 

8.676, 

8.028, 

8.481, 

8.493, 

8.965, 

8.965, 

9.318, 

0393 

9.515, 

9.92  9, 

10.166, 

10.279, 

10.279, 

9.927, 

9.852, 

10.171/ 

0394 

0  3  95 

data  (latitude  (i)  ,  i 
.  10.651,  11.075, 

-  2801, 
11.075, 

2880)  / 
11.411, 

11.733, 

12.149, 

12.448, 

12 . 431, 

0396 

12.431, 

12.785, 

12 . 986, 

12.987, 

13.386, 

13 .406, 

13.406, 

13.164, 

0397 

13.241, 

13.368, 

13.368, 

13.505, 

13.714, 

13 . 746, 

13.746, 

13. 921, 

0398 

.  13.915, 

14.077, 

14.368. 

14.548, 

16.197. 

16.322, 

15.980, 

15.825, 

0309 

15.687, 

15 . 781 , 

15.934, 

16.08*. 

16.268, 

16.52*. 

1  b  .  ^  T  0  , 

1 6 . P55 , 

0400 

I”  .  030 . 

17.133, 

17.132, 

17 .36', 

IT . 626, 

17 . 978 , 

18.01?, 

19.170, 

0401 

18.332, 

18 . 733, 

18.988. 

19.222, 

19.573, 

19.831, 

19.832, 

20.282, 

0  4  0  2 

20.634, 

21.141, 

21 . 604, 

22.062 . 

22.556, 

22 . 930, 

23.301, 

23 . '02 , 

0400 

.  24.076, 

24.385, 

24.730, 

25.158. 

25.432, 

25 . 690 , 

2*.  179, 

. 

0404 

.  26. '3"^, 

26.736, 

27 . 128, 

27.466, 

27.911. 

28.1‘’8, 

28.538, 

28 . 934 

0405 

0406 

data  ( Latit 

.  29.354, 

ude (i) , i 
29.814, 

-  2881, 
30.286, 

2960) / 
30.737, 

31.233, 

31.349, 

31.349, 

31.513, 

^  n 

.  31.771, 

31.286, 

30.808, 

30.309, 

29.857, 

29.530, 

29.143, 

28.786, 
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0408 

.  28 

366, 

27 

881, 

27 

527, 

27 

.118, 

27 

102, 

27 

102, 

26 

618, 

26 

263, 

0409 

.  25 

769, 

25 

353, 

24 

919, 

24 

.415, 

24 

289, 

23 

8  98, 

23 

520, 

23 

056, 

0410 

.  23 

.272, 

23 

660, 

23 

985, 

24 

.281, 

24 

569, 

24 

999, 

25 

499, 

25 

985, 

0411 

.  26 

094, 

26 

094, 

26 

399, 

26 

.701, 

26 

859, 

27 

157, 

27 

491, 

27 

821, 

0412 

.  27 

775, 

28 

158, 

28 

658, 

28 

991, 

29 

380, 

29 

429, 

29 

427, 

29 

734, 

0413 

30 

219, 

30 

67  9, 

31 

127, 

31 

.533, 

32 

005, 

32 

456, 

32 

536, 

16 

187, 

0414 

16 

031, 

15 

780, 

15 

460, 

15 

.154, 

15 

092, 

14 

548, 

14 

906, 

15 

092, 

0415 

.  32 

312, 

32 

312, 

21 

860, 

21 

.860, 

21 

747, 

21 

747, 

21 

855, 

21 

855/ 

0416 

data 

( latitude (i) , i 

-  2961, 

3040) / 

0417 

.  21 

958, 

21 

958, 

22 

413, 

22 

.413, 

21 

497, 

21 

497, 

21 

026, 

21 

168, 

0418 

.  20 

916, 

21 

026, 

23 

097, 

23 

.097, 

22 

835, 

22 

835, 

22 

731, 

22 

2  94, 

0419 

.  22 

731, 

22 

666, 

22 

666, 

23 

.668, 

23 

192, 

23 

668, 

23 

716, 

23 

716, 

04  2  0 

24 

076, 

24 

076, 

24 

644, 

24 

.152, 

24 

644, 

23 

456, 

23 

456, 

23 

675, 

0421 

.  23 

675, 

24 

285, 

23 

804, 

24 

285, 

25 

202, 

24 

811, 

24 

324, 

24 

610, 

0422 

.  25 

042, 

25 

202, 

24 

179, 

24 

.179, 

25 

063, 

25 

063, 

25 

559, 

25 

2  64, 

0423 

24 

768, 

25 

254, 

25 

559, 

26 

898, 

26 

774, 

26 

390, 

25 

905, 

26 

406, 

0424 

.  26 

839, 

26 

898, 

26 

686, 

26 

.704, 

26 

665, 

26 

686, 

18 

090, 

18 

090, 

0425 

.  18 

376, 

18 

482, 

18 

464, 

18 

372, 

17 

975, 

17 

973, 

17 

966, 

18 

376, 

0426 

.  18 

117, 

18 

117, 

17 

771, 

17 

.771, 

18 

366, 

18 

366, 

18 

445, 

18 

445/ 

042" 

data 

( lati 

tude  (i)  ,  i 

-  3041, 

3120 

/ 

CD 

O 

.  18 

742, 

18 

742, 

18 

372, 

18 

.372, 

18 

164, 

18 

164, 

18 

068, 

18 

068, 

0429 

.  17 

930, 

17 

930, 

17 

499, 

17 

.499. 

17 

402, 

17 

402, 

17 

197, 

17 

197, 

0430 

.  17 

692, 

17 

692, 

17 

167, 

17 

.167, 

16 

814, 

16 

814, 

16 

393, 

16 

3  93, 

0431 

.  16 

048, 

16 

04  8, 

15 

993, 

15 

.993, 

15 

628, 

15 

628, 

14 

859, 

14 

512, 

0432 

.  14 

827, 

14 

859, 

19 

718, 

19 

.905, 

19 

911, 

19 

778, 

19 

659, 

19 

336, 

0433 

.  19 

016, 

18 

846, 

18 

367, 

18 

.405, 

18 

404, 

18 

392, 

18 

203, 

18 

308, 

0434 

.  17 

852, 

18 

034, 

18 

219, 

18 

.156, 

18 

228, 

18 

149, 

18 

284, 

18 

567, 

0435 

.  18 

507, 

18 

445, 

18 

623, 

18 

.969, 

19 

469, 

19 

626, 

19 

930, 

19 

776, 

0436 

.  19 

718, 

18 

195, 

18 

195, 

17 

.615, 

17 

615, 

18 

091, 

18 

091, 

18 

625, 

0437 

.  18 

625, 

18 

932, 

18 

744, 

18 

.922, 

18 

932, 

20 

062, 

20 

062, 

17 

417/ 

0438 

data 

(latituda (i) , i 

-  3121, 

3200 

/ 

0439 

.  17 

417, 

17 

414, 

17 

414, 

19 

326, 

19 

326, 

19 

662, 

19 

662, 

18 

263, 

0440 

.  18 

512, 

18 

457, 

18 

350, 

18 

162, 

17 

974, 

17 

833, 

18 

016, 

18 

220, 

0441 

.  18 

263, 

21 

919, 

22 

040, 

22 

512, 

22 

778, 

22 

983, 

23 

030, 

23 

184, 

0442 

.  23 

157, 

23 

026, 

23 

149, 

22 

937, 

22 

679, 

22 

380, 

22 

344, 

22 

123, 

0443 

.  21 

799, 

21 

682, 

21 

334, 

21 

241, 

21 

113, 

20 

689, 

20 

685, 

20 

380, 

0444 

.  20 

200, 

20 

200, 

20 

047, 

19 

888, 

19 

936, 

19 

991, 

19 

937, 

19 

906, 

0445 

.  20 

382, 

20 

686, 

20 

718, 

21 

040, 

21 

524, 

21 

547, 

21 

689, 

21 

852, 

0446 

.  22 

057, 

22 

280, 

22 

196, 

22 

677, 

22 

686, 

22 

548, 

22 

221, 

22 

171. 

0447 

.  21 

863, 

21 

822, 

21 

917, 

22 

800, 

22 

800, 

22 

666, 

22 

666, 

22 

528, 

0448 

.  22 

528, 

22 

404, 

22 

404, 

22 

309, 

22 

309, 

22 

098, 

22 

098, 

20 

602/ 

0449 

data 

( latitude  (i) , i 

-  3201, 

3280) 

/ 

0450 

.  20 

602, 

20 

751, 

20 

751, 

20 

810, 

20 

810, 

20 

894, 

20 

894, 

21 

001. 

0451 

.  21 

001, 

21 

120, 

21 

120, 

21 

601, 

21 

601, 

21 

838. 

21 

641, 

21 

4  68, 

0452 

.  21 

838, 

21 

339, 

21 

339, 

21 

511, 

21 

511, 

25 

442, 

25 

442, 

24 

369, 

0453 

24 

369, 

24 

581, 

24 

581, 

25 

092, 

25 

092, 

26 

065, 

26 

065, 

29 

198, 

0454 

.  29 

198, 

28 

727, 

28 

727, 

28 

684, 

28 

684, 

29 

584, 

29 

217, 

29 

584, 

0455 

.  31 

685, 

31 

685, 

28 

917, 

28 

917, 

28 

068, 

28 

068, 

25 

281, 

24 

■’78, 

0456 

.  25 

279, 

25 

281, 

24 

530, 

24 

530, 

19 

329, 

19 

329, 

18 

868, 

18 

868, 

045^ 

.  18 

351, 

18 

351, 

21 

797, 

21 

797, 

21. 

691, 

21 

691, 

18 

789, 

18 

789, 

0458 

.  20 

561, 

20 

561, 

18 

719, 

18 

719, 

18 

530, 

18 

530, 

10 

294, 

10 

293, 

0459 

.  17 

909, 

17 

909, 

17 

300, 

17 

301, 

16 

097, 

16 

097, 

16 

298, 

16 

300/ 

0460 

data 

( latitude (i) , i 

-  3281, 

3360) 

/ 

0461 

.  16 

418, 

16 

418, 

13 

248, 

13 

248, 

13 

303, 

13 

303, 

14 

368, 

14 

369, 

0462 

.  12 

185, 

12 

185, 

11 

584  , 

11 

583, 

o 

435, 

9 

433, 

9 

351, 

9 

3  4  9, 

04  63 

9 

350, 

9 

34  9, 

8 

417, 

8 

415. 

8 

305 

8 

3  04, 

8 

45-  , 

8 

453, 

0  4  64 

7 

5-9, 

7 

578, 

7 

640, 

7 

63  9, 

7 

2  90 , 

7 

289, 

8 

131 , 

8 

131, 

0465 

8 

22^, 

8 

227, 

8 

288, 

8 

288, 

25 

426, 

24 

937  , 

24 

444  , 

2  3 

943  , 

0466 

.  24 

444  , 

24 

944  , 

25 

437, 

2  5 

426, 

12 

114, 

11 

855, 

11 

498, 

11 

143  . 

o 

i 

.  11 

411, 

11 

889, 

12 

113, 

Q 

262, 

9 

305  . 

9 

104  , 

8 

954  , 

8 

635 

0468 

8 

283, 

8 

663, 

8 

957, 

9 

002, 

1 

947  , 

2 

448. 

2 

548, 

859. 

0469 

3 

288, 

3 

706, 

4 

108, 

4 

597, 

5 

096, 

5 

578, 

6 

065, 

6 

500, 

0  4  7^' 

9 

002  , 

9 

404, 

9 

803, 

10 

295, 

10. 

729, 

11 

075, 

10. 

986, 

11 

345, 

04*^1  data  ( latitude  ( i 3361,  3440)/ 
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0471 

.  11.353, 

11.356, 

11.268, 

11.481, 

11.738, 

12.012, 

12.374, 

12.355, 

0477 

.  11.852, 

6.500, 

6.869, 

7.229, 

1.437, 

1.091, 

0.918, 

0.719, 

0474 

0.218, 

-0.187, 

-0.665, 

-0.990, 

-1.487, 

-1.715, 

-1.714, 

-2.203, 

04  75 

.  -2.537, 

-2.403, 

-2.859, 

-3.291, 

-3.374, 

-3.374, 

-3.691, 

-4.075, 

0476 

.  -4.501, 

-4 . 960, 

-5.436, 

-5.889, 

-6.264, 

-6.505, 

-6.777, 

-7.197, 

0477 

.  -7.644, 

-8.043, 

-8 . 090, 

-8.091, 

-8.502, 

-8.970, 

-9.418, 

-9.885, 

0478 

.  -10.346, 

-10.773, 

-11.264 , 

-11.592, 

-12.074, 

-12 .444, 

-12.870, 

-13.306, 

0479 

.  -13.806, 

-13.857, 

-13.857, 

-14.342, 

-14.736, 

-15.051, 

-15.435, 

-15.665, 

0480 

.  -15.906, 

-16.199, 

-16.407, 

-16.632, 

-16.825, 

-17.137, 

-17.378, 

-17.810, 

0481 

.  -18.104, 

-18.349, 

1.947, 

1.675, 

1.437, 

-18.348, 

-18.846, 

-19.346/ 

0482 

data  ( latitude (i) , 

i-  3441, 

3520)  / 

0483 

.  -19.835, 

-20.339, 

-20.842, 

-21.341, 

-21.844, 

-22.339, 

-22.838, 

-23.259, 

0484 

.  -23.747, 

-23.843, 

-40.813, 

-41.315, 

-41.771, 

-41.502, 

-41.491, 

-41.857, 

0485 

.  -42.293, 

-42.708, 

-43.212, 

-43.702, 

-44.178, 

-44.496, 

-44.344, 

-44.344, 

0486 

.  -44.805, 

-45.185, 

-45.659, 

-46.160, 

-46.032, 

-46.032, 

-46.447, 

-46.238, 

0487 

.  -46.278, 

-46.278, 

-46.554, 

-46.794, 

-46.838, 

-47.339, 

-47.664, 

-47.838, 

0488 

.  -47.981, 

-48.026, 

-48.528, 

-48.739, 

-48.740, 

-49.187, 

-49.550, 

-50.056, 

0489 

.  -50.141, 

-50.475, 

-50.949, 

-51.447, 

-51.936, 

-51.655, 

-51.656, 

-51.832, 

0490 

.  -51.509, 

-51.726, 

-52.226, 

-52.219, 

-52.672, 

-53.102, 

-52.699, 

-52.535, 

0491 

.  -52.633, 

-52.633, 

-52.737, 

-53.076, 

-53.528, 

-53.043, 

-52.853, 

-53.339, 

0492 

.  -53.825, 

-53.467, 

-52.971, 

-52.630, 

-52.381, 

-52.307, 

-52.381, 

-23 . 844/ 

0493 

data  (latitude  (i)  , 

i-  3521, 

3600)  / 

0494 

.  -24.342, 

-24.842, 

-25.334, 

-25.776, 

-26.276. 

-26.770, 

-27.242, 

-27.740, 

0495 

.  -28.235, 

-28.711, 

-29.195, 

-29.672, 

-30.167, 

-30.588, 

-31.090, 

-31.587, 

0496 

.  -31.612, 

-31.612, 

-32.113, 

-32.613, 

-33.079, 

-33.582, 

-34.024, 

-34.516, 

0497 

.  -35.005, 

-35.444, 

-35.913, 

-36.397, 

-36.852, 

-37.174, 

-37.678, 

-38.159, 

0498 

,  -38.661, 

-39.138, 

-39.637, 

-40.079, 

-40.572, 

-40.812, 

-52.385, 

-51.924, 

0499 

.  -51.592, 

-51 . 114, 

-50.609, 

-50.234, 

-49.742, 

-50.113, 

-49.708, 

-49,210, 

0500 

.  -48.792, 

-48,449, 

-48.123, 

-47.862, 

-47.862, 

-47.577, 

-47.089, 

-47,047, 

0501 

.  -46.699, 

-46.272, 

-45.794, 

-45.347, 

-45.068, 

-45.012, 

-44.557, 

-44.074, 

0502 

.  -43.572, 

-43.304, 

-43.304, 

-43.059, 

-42.782, 

-42.510, 

-42.864, 

-42.433, 

0503 

.  -42.227, 

-42.184, 

-41.689, 

-41.304, 

-41.304, 

-40.804, 

-40.909, 

-41.152/ 

0504 

data  (latitude  (i)  , 

i-  3601, 

3680)  / 

0505 

.  -41.160, 

-40.960, 

-40.474, 

-39. 976, 

-39.517, 

-39.056, 

-38.989, 

-38.976, 

0506 

.  -38.917, 

-38.830, 

-38.706, 

-38.548, 

-38.336, 

-37.957, 

-37.544, 

-37.115, 

0507 

.  -36.627, 

-36.275, 

-35.824, 

-35.356, 

-35.000, 

-34.754, 

-34.342, 

-33.841, 

0508 

.  -33.339, 

-32.912, 

-32.448, 

-32.448, 

-32.935, 

-33.348, 

-33.851, 

-34.241, 

0509 

.  -34.458, 

-34.625, 

-34.863, 

-34.789, 

-34.894, 

-34.819, 

-34.560, 

-34.170, 

0510 

.  -33.742, 

-33.741, 

-33.405, 

-33.000, 

-32.521, 

-32.082, 

-31.577, 

-31.259, 

0511 

.  -30.816, 

-30.376, 

-30.749, 

-31.071, 

-31.509, 

-31.871, 

-31.624, 

-31.266, 

0512 

.  -30.858, 

-30.423, 

-29.951, 

-29.500, 

-29.090, 

-28.744 , 

-28.362, 

-27.875, 

0513 

.  -27.374, 

-26.876, 

-26.375, 

-25.880, 

-25.400, 

-25.293, 

-25.219, 

-16.007, 

0514 

.  -15.508, 

-15.006, 

-14.506, 

-14.012, 

-13.518, 

-13.048, 

-12.942, 

-12.560/ 

0515 

data  ( latitude (i) , 

i-  3681, 

3760)  / 

0516 

.  -12.138, 

-11.746, 

-11.746, 

-11.272, 

-10.904, 

-10.577, 

-10.236, 

-9.862, 

0517 

.  -9.489, 

-9.085, 

-8.916, 

-8.916, 

-8.445, 

-7 . 967, 

-7.462, 

-6.961, 

0518 

.  -6.472, 

-5.987, 

-5.507, 

-5.122, 

-5.052, 

-5.052, 

-5.082, 

-4 . 933, 

0519 

-4.665, 

-4.387, 

-4.041, 

-3.701, 

-3 .407, 

-3.171, 

-2.922, 

-2.808, 

0520 

.  -2.858, 

-2.882, 

-2.881, 

-2.906, 

-2.823, 

-2 . 679, 

-2.459, 

-2.489, 

0521 

.  -2.626, 

-2 . 908, 

-3.284, 

-2.793, 

-2.375, 

-1.897, 

-1.616, 

-1.311, 

0522 

.  -1.299, 

-1.113, 

-25.216, 

-24.803, 

-24.550, 

-24.205, 

-23.878, 

-23.763, 

0523 

.  -23.601, 

-23.391, 

-23.353, 

-23.354, 

-22.944, 

-22 .898, 

-23.010, 

-22 . 967, 

0524 

.  -22.947, 

-22 . 531, 

-22.223, 

-22.031, 

-21.532, 

-21.276, 

-21.276, 

-20 .836, 

0525 

.  -20.469, 

-20 . 002, 

-19.618, 

-19.120, 

-18.617, 

-18.134, 

-17.779, 

-17.278  ■ 

0526 

data  ( latitude f i ) . 

i-  3761, 

3840)  ,' 

052’ 

.  -16. ■’■’9, 

-16. OS’. 

-16.007 , 

-1 . 113, 

-1.032, 

-0.804, 

-0.64', 

-  '  1  ?  , 

0528 

.  -1.043, 

-1.524, 

-1.732, 

-2 . 056, 

-2.524, 

-2 . 6’1 , 

-2.6'2, 

-2.215, 

0529 

-1.898, 

-2.020, 

-1 .783. 

-1.782, 

-1 .289. 

-1 .256, 

-1.405 , 

-1.405, 

0530 

-1.619, 

-1 . 583, 

-1.348, 

-1.075, 

-1 .017, 

-1 . 01' , 

-0.541. 

-0.138, 

0531 

0.174, 

0 . 532 , 

0.907, 

1.325, 

1.768, 

1 . 996  , 

2.464, 

2.941, 

0532 

3.430, 

3. 922, 

4.325, 

4.033. 

4.033, 

4.528, 

4 . 823 , 

5.116, 

0533 

5.465, 

5.560, 

5.749, 

5.347, 

5.347, 

5.846, 

5.949, 

5.982, 

0534 

5.976, 

5 . 844 , 

5. 944, 

5.824, 

5.485, 

5.486, 

5.978, 

6.003, 

0535 

8.577, 

8.481, 

8.196, 

7.957, 

7. 624, 

7.169, 

6.687 , 

6.821, 
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0536 

6 

527, 

6 

239, 

5 

999, 

11 

852, 

11 

649, 

11 

145, 

10 

692, 

10 

247  ' 

0537 

data 

(latitude (i) , 

i-  3841, 

3920) 

/ 

0538 

9 

836, 

9 

.  423, 

9 

.052, 

9 

326, 

9 

831, 

10 

249, 

10 

733, 

i_  i_ 

057, 

0539 

.  11 

239, 

11 

391, 

11 

880, 

12 

111, 

12 

110, 

11 

800, 

11 

487, 

11 

449, 

0540 

.  11 

193, 

10 

710, 

10 

454  , 

10 

544, 

10 

618, 

10 

604, 

10 

329, 

10 

144  . 

0541 

10 

097, 

10 

262, 

10 

446, 

10 

638, 

10 

638, 

10 

"69, 

10 

682, 

10 

738, 

0542 

.  10 

698, 

10 

555, 

10 

055, 

9 

996, 

9 

996, 

9 

891, 

9 

783, 

9 

552, 

0543 

9 

062, 

8 

944, 

8 

627, 

8 

813, 

8 

944, 

8 

627, 

8 

493, 

8 

549, 

0544 

8 

573, 

13 

370, 

13 

.368, 

12 

591, 

12 

590, 

-2 

747, 

-2 

746, 

-5“= 

829, 

0545 

.  -55 

830, 

-55 

824, 

-55 

824, 

-55 

587, 

-55 

590, 

-55 

098, 

-55 

199, 

-55 

068, 

0546 

.  -55 

107, 

-54 

966, 

-55 

449, 

-55 

230, 

-55 

259, 

-54 

991, 

-54 

970, 

-54 

945, 

0547 

.  -54 

945, 

-54 

898, 

-54 

899, 

-54 

860, 

-54 

862, 

-54 

632, 

-54 

632, 

-54 

010; 

0548 

data 

(latitude (i) , 

i-  3921, 

4000) 

/ 

0549 

.  -54 

014, 

-53 

602, 

-54 

103, 

-53 

600, 

-53 

607, 

-54 

889, 

-54 

862, 

-54 

829, 

0550 

.  -54 

683, 

-54 

475, 

-54 

487, 

-54 

567, 

-54 

216, 

-54 

387, 

-54 

466, 

-54 

68'’, 

0551 

.  -54 

687, 

-54 

210, 

-53 

819, 

-53 

542, 

-53 

435, 

-52 

944, 

-52 

54  0, 

-52 

556, 

0552 

.  -52 

645, 

-53 

94  2, 

-53 

944, 

-54 

312, 

-54 

312, 

-54 

079, 

-54 

082, 

-54 

076, 

0553 

.  -54 

076, 

-53 

780, 

-54 

128, 

-53 

705, 

-53 

586, 

-53 

790, 

-53 

523, 

-53 

527, 

0554 

.  -53 

397, 

-53 

400, 

-53 

.252, 

-53 

256, 

-52 

727, 

-52 

990, 

-53 

275, 

-53 

0  63, 

0555 

.  -52 

778, 

-52 

729, 

-52 

734, 

-52 

729, 

-52 

709, 

-52 

709, 

-52 

397, 

-52 

391, 

0556 

.  -52 

228, 

-52 

224, 

-51 

941, 

-51 

943, 

-52 

079, 

-52 

073, 

-51 

802, 

-51 

802, 

0557 

.  -52 

307, 

-52 

309, 

-52 

088, 

-52 

088, 

-51 

900, 

-51 

892, 

-51 

613, 

-51 

614, 

0558 

.  -51 

473, 

-51 

472, 

-51 

207, 

-51 

205, 

-51 

055, 

-51 

051, 

-50 

847  , 

-50 

848/ 

0559 

data 

(latitude (i) , 

i-  4001, 

4080) 

/ 

0560 

.  -50 

889, 

-‘•0 

889, 

-50 

794, 

-50 

792, 

-50 

434, 

-50 

431, 

-50 

050, 

-49 

554, 

1.5  61 

.  -49 

051, 

-49 

483, 

-49 

987, 

-50 

049, 

-49 

882, 

-49 

883, 

-49 

279, 

-49 

274, 

0562 

.  -49 

270, 

-49 

270, 

-52 

.131, 

-52 

130, 

-49 

069, 

-49 

068, 

-48 

792, 

-48 

792  , 

0563 

.  -48 

694  , 

-48 

198, 

-48 

671, 

-48 

692, 

-48 

438, 

-48 

436, 

-47 

977, 

-47 

978, 

0564 

.  -49 

693, 

-48 

688, 

-48 

706, 

-48 

222, 

-48 

697, 

-48 

703, 

-48 

040, 

-48 

040, 

0565 

.  -47 

841, 

-47 

834, 

-47 

783, 

-47 

782, 

-47 

121, 

-47 

122, 

-47 

161, 

-47 

156, 

0566 

.  -46 

102, 

-46 

097, 

-45 

737, 

-45 

730, 

-45 

756, 

-45 

757, 

-45 

971, 

-45 

972, 

0567 

.  -45 

754, 

-45 

752, 

-45 

696, 

-45 

693, 

-45 

560, 

-45 

559, 

-45 

352, 

-45 

349, 

0568 

.  -45 

274, 

-45 

272, 

-45 

398, 

-45. 

396, 

-45 

300, 

-45 

295, 

-45 

025, 

-45 

025, 

0569 

.  -44 

964, 

-44 

958, 

-44 

820, 

-44. 

818, 

-44 

911, 

-44 

907, 

-44 

694, 

-44 

696/ 

0570 

data 

(latitude (i) , 

i-  4081, 

4160) 

/ 

0571 

.  -44 

673, 

-44 

670, 

-44 

803, 

-44. 

804, 

-44 

728, 

-44 

728, 

-44 

917, 

-44 

417, 

0572 

.  -44 

915, 

-44 

918, 

-44 

527, 

-44. 

526, 

-44 

358, 

-44 

556, 

-44 

438, 

-44 

433, 

0573 

.  -44 

292, 

-44 

289, 

-44 

326, 

-44. 

324, 

-44 

199, 

-44 

198, 

-43 

940, 

-43 

939, 

0574 

.  -43 

635, 

-43 

635, 

-42 

998, 

-42. 

999, 

-42 

639, 

-42 

638, 

-42 

556, 

-42 

353, 

0575 

.  -43 

386, 

-42 

94  7, 

-42 

446, 

-41. 

957, 

-42 

173, 

-42 

596 

-43 

052, 

-43 

380, 

0';76 

.  -55 

232, 

-55 

235, 

-55 

166, 

-55. 

170, 

-54 

728, 

-54 

728, 

-54. 

802, 

-54 

888, 

0577 

.  -54 

787, 

-54 

802, 

-52 

646, 

-53. 

093, 

-53 

579, 

-53 

971, 

-54 

263, 

-54 

578, 

7578 

.  -54 

634, 

-54 

898, 

-54 

938, 

-54 

887, 

-54 

832, 

-54 

787, 

-39 

088, 

-39 

088, 

0579 

.  -27 

811, 

-27 

811, 

-26 

419. 

-26. 

419, 

-0 

575, 

-0 

575, 

-0 

012, 

-0 

012, 

0580 

.  -0 

153, 

-0 

153, 

0 

201. 

0. 

201, 

0 

606, 

0 

606, 

0 

645, 

0 

645/ 

0581 

data 

( latitude  <i)  , 

i-  4161, 

4240) 

/ 

0582 

0 

311, 

0 

013, 

0 

309, 

0 

311, 

0 

071, 

0 

071, 

-0 

271, 

-0 

754, 

0583 

.  -1 

186, 

-1 

480, 

-1 

733, 

-1. 

768, 

-1 

655, 

-1 

174, 

-0 

670, 

-0 

207, 

0584 

-0 

138, 

-0 

240, 

-0 

160, 

-0. 

234, 

-0 

271, 

0 

873, 

0 

873, 

2 

181, 

0585 

2 

181, 

2 

257, 

2 

257. 

-1. 

020, 

-0 

576, 

-1 

068, 

-1. 

409, 

-1 

020, 

0586 

.  -3 

866, 

-3 

866, 

-23 

966, 

-23. 

966, 

-23 

218, 

-23 

218, 

12. 

62  6, 

12 

62  6, 

0587 

12 

334, 

12 

062, 

12 

360. 

12 

384, 

12 

307, 

12 

307  , 

11. 

8;  3, 

11 

823, 

0588 

.  11 

817, 

11 

817, 

10 

966. 

10. 

966, 

11 

898, 

11 

898, 

10 

"ce. 

10 

806, 

058  9 

.  11 

0  63, 

11 

041, 

10 

955, 

11. 

063, 

10 

824, 

10 

335, 

10 

067, 

10 

039, 

0  5  90 

10 

274, 

10 

775, 

10 

824  . 

11  . 

343. 

11 

343. 

12 

228, 

12 

228  , 

13 

144  , 

7  5  9  I 

13 

144  , 

13 

718, 

13 

718, 

1^. 

05"’, 

13 

05'  , 

-60 

735  . 

-  60 

'35  , 

-  n 

7  "*  3 

n a  2 

dat  a 

(lat 

itude  f i )  , 

1-  41 

41, 

4  320) 

/ 

7=^  9  3 

.  -60 

7  7  1 

-54 

512, 

-54 

512, 

-54 

890, 

-54 

509, 

-54 

2  70, 

-54 

164, 

5'i  , 

3  94 

.  -54 

890. 

-56 

316, 

-56 

316. 

-56. 

727, 

-56 

72  7. 

-57 

086  , 

-57 

086  , 

-57 

819, 

•*>  c,  a  3 

-  57 

819. 

-58 

4  93, 

-58 

493, 

-59. 

070, 

-59 

O'O , 

-  5  Q 

4  69, 

-59. 

469, 

”  Z 

uo 

0  5  96 

.  -20 

4  90. 

-20 

4  94  , 

-20 

4  94, 

0. 

936, 

0 

936, 

n 

922. 

C 

922, 

-5Z 

02: 

0597 

.  -51 

786, 

-51 

413  , 

-51 

915, 

-52 

208, 

-52 

025, 

-52 

110, 

-51. 

717, 

-51 

335, 

7  5  98 

.  -51 

379, 

-51 

817, 

-5: 

928, 

-52 

101, 

-51 

900, 

-51 

8  98, 

-27. 

187, 

-27 

187, 

0  5  9? 

.  -26 

463, 

-26 

463, 

-33 

772, 

-33. 

772, 

-33 

662, 

-33 

662, 

-26. 

-47, 

-2€ 

347, 

138 
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ObOC 

.  -26 

263, 

-26 

263, 

-1 

307, 

-1 

30", 

-1 

.344, 

-1 

.344, 

-C 

.691, 

-0 

691, 

0  6C1 

-0 

489, 

-0 

489, 

0 

364, 

0 

364, 

0 

648, 

0 

648, 

0 

099, 

-0 

.  358, 

060: 

.  -0 

.  823, 

-0 

964  , 

-0 

464  , 

-0 

024, 

0 

099, 

-0 

289, 

-0 

289, 

-0 

.149,' 

0  60  3 

dst  j 

( latitude (i) , 

i-  4321, 

4400) 

/ 

06C4 

-0 

149, 

-15 

394  , 

-15 

727, 

-16 

158, 

-16 

235, 

-15 

896, 

-15 

425, 

-15 

.  395, 

0  605 

.  -69 

596, 

-69 

262, 

-68 

917, 

-68 

430, 

-68 

084, 

-67 

888, 

-67 

625, 

-67 

220, 

0606 

.  -67 

149, 

-6" 

146, 

-67 

">59, 

-66 

910, 

-66 

503, 

-66 

734, 

-  6  6 

162, 

-65 

914, 

0  60-^ 

.  -65 

"75  , 

-56 

029, 

-66 

455, 

-66 

354, 

-66 

708, 

-66 

954, 

-  6  6 

914  , 

-66 

821, 

0  6  0  8 

.  -66 

630, 

-66 

576, 

-66 

268, 

-66 

337, 

-66 

503, 

-6t 

644, 

-66 

746, 

-66 

925, 

0  60  5 

.  -66 

882  , 

-67 

219, 

-67 

237, 

-70 

427, 

-70 

651, 

-70 

544, 

-70 

601, 

-70 

793, 

0610 

_  T  1 

202, 

-"I 

533, 

-71 

951, 

-72 

373, 

-72 

878, 

-7." 

329, 

-73 

448  , 

-76 

.226, 

0611 

.  -76 

723, 

-77 

218, 

-77 

68  7, 

-78 

174, 

-78 

483, 

-78 

578, 

-78 

949, 

-79 

.014, 

0612 

.  -67 

625, 

-67 

221, 

-67 

219, 

-73 

709, 

-73 

666, 

-73 

477, 

-73 

284, 

-73 

.174  , 

0613 

.  -72 

869, 

-72 

459, 

-71 

956, 

-71 

486, 

-70 

981, 

-70 

489, 

-70 

031, 

-69 

534, 

0614 

data 

(latitude (i) , 

i-  4401, 

4480) 

0  615 

.  -69 

323, 

-66 

288, 

-65 

932, 

-65 

539, 

-65 

046, 

-65 

120, 

-65 

121, 

-64 

.714, 

0616 

.  -64 

496, 

-64 

03", 

-63 

8  67, 

-63 

637, 

-63 

356, 

-63 

491, 

-63 

675, 

-64 

.  044  , 

0610 

.  -64 

368, 

-64 

665, 

-65 

035, 

-65 

427, 

-65 

911, 

-65 

9.  i. 

-66 

392, 

-66 

.256, 

0618 

.  -66 

169, 

-66 

171, 

-66 

617, 

-67 

009, 

-67 

466, 

-67 

968, 

-68 

313, 

-74 

.018, 

0619 

.  -74 

063, 

-73 

583, 

-73 

186, 

-72 

788, 

-72 

637, 

-72 

256, 

-71 

755, 

-71 

407, 

0620 

.  -70 

9?J, 

-71 

256. 

-71 

750, 

-7- 

365, 

-70 

934, 

-71 

380, 

-71 

420, 

-71 

.417, 

0621 

.  -71 

314, 

-71 

250, 

-71 

360, 

-71 

364, 

- 

088, 

-70 

840, 

-70 

691, 

-70 

605, 

0622 

.  -70 

400, 

-70 

473, 

-70 

357, 

-70 

357, 

-70 

698, 

-70 

4  60, 

-70 

221, 

-70 

2  90, 

0  62  3 

.  -70 

160, 

-69 

971, 

-70 

153, 

-70 

367, 

-70 

466, 

-70 

509, 

-7C 

358, 

-70 

197, 

0624 

.  -70 

077, 

-70 

051, 

-70 

050, 

-69 

838, 

-69 

786, 

-69 

504  , 

-69 

116, 

-63 

637/ 

0625 

dit  a 

( latitude (i( , 

i-  4481, 

4560) 

/ 

0626 

.  -68 

710, 

-69 

116, 

-84 

8  90, 

-85 

241, 

-85 

416, 

-85 

468, 

-85 

107, 

-85 

.249, 

062" 

.  -84 

812, 

-84 

628, 

-84 

286, 

-83 

806, 

-83 

307, 

-82 

812, 

-82 

317, 

-81 

885, 

0628 

.  -81 

389, 

-81 

118, 

-81 

357, 

-81 

361, 

-75 

705, 

-75 

705, 

-75 

258, 

-75 

230, 

0629 

.  -75 

192, 

-75 

035, 

-75 

065 

-75 

206, 

-74 

712, 

-74 

348, 

-73 

925, 

-73 

736, 

0630 

.  -73 

617, 

-73 

617, 

-73 

356, 

-73 

338, 

-72 

950, 

-73 

064, 

-73 

044, 

-72 

999, 

0  531 

.  -73 

276, 

-7' 

230, 

-73 

173, 

-73 

243, 

-73 

325, 

-73 

324, 

-73 

0C5, 

-73 

158, 

0632 

.  -73 

041, 

-73 

539, 

-73 

654, 

-73 

892, 

-73 

485, 

-73 

101, 

-73 

434, 

-73 

555, 

0633 

.  -73 

799, 

-69 

322, 

-69 

I"!, 

-68. 

904. 

-67 

082, 

-66 

604, 

-66 

288, 

-68 

314, 

0634 

.  -68 

742  , 

-68 

379, 

-68 

874, 

-69. 

354, 

-69 

805, 

-70 

274, 

-70 

719, 

-70 

719, 

0635 

.  -71 

072, 

-71 

533, 

-72 

008, 

-72. 

234, 

-72 

736, 

-73 

194, 

-73 

127, 

-73 

5  65/ 

0636 

data 

(latit'ude  (i)  , 

i-  4561, 

4640) 

/ 

0637 

.  -74 

010, 

-74 

129, 

-74 

129, 

-74. 

571, 

-74 

90  ,  , 

-75 

408, 

-75 

740, 

-76 

047, 

0638 

.  -76 

246, 

-76 

594, 

-  .5 

668, 

-76. 

580, 

-76 

360, 

-75 

959, 

-75 

929, 

-75 

930, 

0639 

.  -76 

407, 

-76 

852, 

-77 

279, 

-77 

486, 

-77 

979, 

-78 

004, 

-77 

894  . 

-77 

651, 

0640 

.  -78 

131, 

-78 

401, 

-78 

819, 

-78  . 

693, 

-7b 

289, 

-78 

7  95, 

-79 

175, 

-  19 

625, 

064  1 

.  -79 

626, 

-79 

279, 

-79. 

530, 

79. 

980, 

-79 

904, 

-80 

149, 

-80 

510, 

-80 

894  , 

0642 

.  -81 

118, 

-81 

411, 

-81 

773, 

-82. 

123, 

-82 

454, 

-82 

952, 

-83 

038, 

-83 

040, 

0643 

.  -82 

619, 

-82 

212, 

-81 

978, 

-81. 

821, 

-81 

887, 

-81 

487, 

-81 

204, 

-80 

924, 

0644 

.  -80 

"57, 

-80 

565, 

-80 

565, 

-80. 

317, 

-79 

820, 

-79 

323, 

-79 

335, 

-79 

300, 

0645 

.  -78 

986, 

-78 

482, 

-78 

035, 

-77. 

621, 

-77 

344, 

-76 

991, 

-76 

624, 

-76 

403, 

064  6 

.  -76 

295, 

-76 

295. 

-76 

083, 

-75. 

986, 

-75 

92  5  , 

-75 

7  97, 

-75 

304, 

-74 

853/ 

"64" 

aata 

( latitude (i) , 

i-  4641, 

4720) 

/ 

"648 

.  -74 

501. 

-74 

136, 

-74 

017, 

-68 

905, 

-68 

425, 

-67 

926, 

-67 

513, 

-67 

030, 

"  64 

.  -67 

084  , 

-69 

201, 

-69 

681, 

-69. 

928, 

-70 

419, 

-70 

331, 

-70 

833, 

-71 

247, 

0  6  5  0 

.  -'1 

"28, 

-"2 

231. 

-72 

371, 

-72. 

021, 

-71 

589, 

-71 

090, 

-70 

680, 

-70 

188, 

j  1 5  1 

.  -69 

858, 

-69 

611, 

-69 

595, 

-66. 

734, 

-66 

670, 

-66 

537, 

-66 

631, 

-66 

632, 

^  2 

.  -66 

591 , 

-66 

630, 

-66 

652, 

-66. 

703, 

-66 

479, 

-66 

099, 

-65 

936, 

-65 

979, 

0  65  3 

.  -66 

004  . 

-66 

004  , 

-66 

170, 

-66 . 

374, 

-66 

403, 

-66 

719, 

-66 

686, 

-66 

283, 

0  6  5  4 

.  -66 

162, 

"  b 

5"6, 

-66 

"48, 

-66. 

512, 

-66 

433  . 

-66 

434  , 

-66 

905 , 

-67 

054  , 

'65- 

-  6  6 

1  , 

~  6  6 

293. 

“66, 

206, 

-66 

133, 

,1 «  0 

-65 

5  91, 

-65 

0  8?, 

-65 

3  ~  7 , 

"656 

"65 

8"1  , 

2  3  n  _ 

-66 

268, 

-6" 

237, 

62  6. 

-67 

811  , 

-  K  7 

94"  . 

-68 

2  93. 

-68 

420  , 

-68 

"62  , 

-68 

"68. 

-68. 

9.39, 

-b8 

4  30. 

-68 

804  , 

-6? 

16?. 

-6? 

158 

6  5  9 

lat  a 

(lat 

itude  f i )  , 

1-  4" 

2 1 , 

48001 

0  65  5 

.  -69 

3  0  5  , 

-69 

619, 

-69 

979, 

-  "0 . 

242. 

-  TC' 

42". 

_  -  T 

448  . 

-  7  3 

514  . 

-  -  3 

82" 

066' 

.  -'4 

189, 

-"4 

673, 

-74 

961. 

-  "  5  . 

3"b, 

-  T*' 

8"1. 

-76 

226, 

-79 

012, 

-  7  0 

516, 

0  6  61 

.  -’9 

963, 

-80 

452, 

-80. 

669, 

-81 . 

170, 

-81. 

641, 

-82 

082, 

-82. 

550, 

-8^ 

999, 

0  6  62 

.  -83 

385, 

-83 

798  , 

-84 

051, 

-84 

306, 

-84 

442  . 

-84 

457, 

-69. 

116, 

-69 

542  , 

"66  3 

.  -69 

31", 

-69 

787, 

-69. 

643, 

-69. 

158, 

-68. 

725, 

-68 

449. 

-68. 

139, 

-6" 

980, 

139 
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0664 

.  -67.721, 

-67.475, 

-67.729, 

-67.496, 

-66.993, 

-67.057, 

-67.140, 

-67.136, 

0665 

.  -66.715, 

-66.334, 

-65.994, 

-65.896, 

-65.886, 

-65.997, 

-66.396, 

-66.683, 

0666 

.  -67.061, 

-67.413, 

-67.374, 

-67.531, 

-67.578, 

-67.578, 

-67.682, 

-61  .ns. 

0667 

.  -67.859, 

-67.738, 

-68.231, 

-68.734, 

-69.201, 

-84.457, 

-84.669, 

-84 . 892 , 

0668 

.  -81.361, 

-80 . 909, 

-80.493, 

-80.009, 

-79.667, 

-79.422, 

-79.153, 

-78.849/ 

0669 

data  (latituda (i) , 

i-  4801, 

4880)  / 

0670 

.  -78.425, 

-78 . 158, 

-77.926, 

-77.684, 

-77.684, 

-77.185, 

-77.082, 

-77.227, 

0671 

.  -77.387, 

-77.761, 

-77.454, 

-77.155, 

-76.654, 

-76.489, 

-76.414, 

-75.912, 

0672 

.  -75.678, 

-75.505, 

-75.505, 

-75.490, 

-75.112, 

-75,025, 

-74 . 729, 

-74. ■’45, 

0673 

,  -74.732, 

-74 . 829, 

-74 . 721, 

-74.649, 

-74 . 649, 

-74.667, 

-74.726, 

-74.723, 

0674 

.  -74.627, 

-74.344, 

-74.525, 

-74.189, 

-74.444, 

-74.856, 

-74.379, 

-74 . 700, 

0675 

.  -75.149, 

-75.257, 

-77.131, 

-77.131, 

-77.759, 

-77.569, 

-77.345, 

-77.836, 

0676 

,  -77.759, 

-73.421, 

-73.421, 

-67.448, 

-67.448, 

-66.623, 

-66.623, 

-66.263, 

067'' 

.  -66.263, 

-65.682, 

-65.682, 

-72 . 606, 

-73.102, 

-72 . 618, 

-72.606, 

-72 . 981, 

0678 

.  -73.481, 

-73.290, 

-72.818, 

-72.981, 

-73.191, 

-73.191, 

-67.779, 

-67.779, 

0679 

.  -67.538, 

-67.082, 

-66.661, 

-67.153, 

-67.571, 

-67.538, 

-66.302, 

-66.302/ 

0680 

data  ( latitude (i) , 

i-  4881, 

4960) / 

0681 

.  -65.864, 

-65.864, 

-64.883, 

-64.883, 

-64 . 695, 

-64.305, 

-64.806, 

-64. 695, 

0682 

.  -64.428, 

-64 . 428, 

-62.638, 

-62.462, 

-62 . 651, 

-62.638, 

-62.521, 

-62.521, 

0683 

.  -62.361, 

-62.361, 

-62.279, 

-62.279, 

-62.196, 

-61.926, 

-62.220, 

-62.196, 

0684 

.  -61.243, 

-61.243, 

-61.260, 

-61.260, 

-63.162, 

-63.162, 

-63.426, 

-63.123, 

0685 

.  -63.430, 

-63.426, 

-63.583, 

-63.583, 

-64 .442 , 

-63.958, 

-64.072, 

-64.442, 

0686 

.  -64.528, 

-64.528, 

-65.254, 

-65.254, 

-70.574, 

-70.574, 

-70.448, 

-70.448, 

0687 

.  -71.041, 

-71.041, 

-70 . 629, 

-70.629, 

-70.162, 

-70.162, 

-70.156, 

-70.156, 

0688 

.  -72.651, 

-72.594, 

-72.674, 

-72.651, 

-72.170, 

-71 . 938, 

-72.054, 

-71.895, 

0689 

.  -72.177, 

-72.520, 

-72.459, 

-72.265, 

-72.170, 

-73.048, 

-73.048, 

-73.418, 

0690 

.  -73.418, 

-73.104, 

-72.602, 

-72.824, 

-73.179, 

-73.104, 

-71.178, 

-70.857/ 

0691 

data  ( latitude  (i)  , 

i-  4961, 

5040)  / 

0692 

.  -70.624, 

-71.053, 

-71.191, 

-71.178, 

-70.132, 

-70.132, 

-69.738, 

-69.738, 

0693 

.  -72.684, 

-72.414, 

-71.942, 

-71,941, 

-72.067, 

-71.578, 

-71.643, 

-71.162, 

4 

.  -71.171, 

-70.695, 

-70.237, 

-69.738, 

-69.273, 

-68.882, 

-69.085, 

-69.555, 

0  <■  ■■  5 

.  -70,043, 

-70.511, 

-71.007, 

-71.509, 

-72.003, 

-72.457, 

-72.634, 

-72.722, 

0696 

.  -72.684, 

-63.890, 

-63.890, 

-68.736. 

-68.73  6, 

-69.666, 

-69.166, 

-69.651, 

0697 

.  -69.666, 

-70.642, 

-70.642, 

-71.032, 

-71.032, 

-79.557, 

-79.060, 

-78.698, 

0698 

.  -78.449, 

-78.902, 

-79.348, 

-79,557, 

-80.806, 

-80.429, 

-80.200, 

-80.289, 

0699 

.  -80.002, 

-80.448, 

-80.806, 

-80.919, 

-80.494, 

-80.140, 

-79.698, 

-79.203, 

0700 

.  -78.706, 

-78.251, 

-77.936, 

-78.088, 

-78.542, 

-79.043, 

-79.539, 

-80.040, 

0701 

.  -80.467, 

-80.681, 

-80.852, 

-80.919, 

-78.658, 

-78.602, 

-78.629, 

-78.658/ 

0702 

data  { latitude { i ) , 

i-  5041, 

5120)  / 

0703 

.  -74.858, 

-74.485, 

-74.802, 

-74 . 858, 

-73.137, 

-73,137, 

-62.998, 

-62.998, 

0704 

.  -70.007, 

-70.007, 

-72.253, 

-72.253, 

-70.556, 

-70.556, 

-66.247, 

-66.247, 

0705 

.  -65.679, 

-65.679, 

-65.465, 

-65.465, 

-66.872, 

-66.872, 

-67.625, 

-67 . 625, 

0706 

.  -79.878, 

-79. 717, 

-79.344, 

-78.852, 

-79.054, 

-79.462, 

-79.878, 

-77.126, 

0707 

.  -77.126, 

-74.464, 

-74,464, 

-74.544, 

-74.544, 

-74.519, 

-74.519, 

-74.164, 

0708 

.  -73.919, 

-73.643, 

-73.323, 

-73.646, 

-74.109, 

-74.164, 

-73.994, 

-74.235, 

0709 

.  -74.368, 

-73.876, 

-73,781, 

-73.797, 

-73.994, 

-73.975, 

-73.975, 

44.622, 

C ''  1 0 

44.140, 

43 . 745, 

43.745, 

43.301, 

42.904, 

42.506, 

42.115, 

41.981, 

0711 

41.981, 

41.509, 

41.281, 

41.082, 

40 . 988, 

40.618, 

40.335, 

40.639, 

0-712 

40.733, 

40.733, 

40.907, 

40.856, 

40.726, 

40.245, 

40.233, 

40.351/ 

0713 

data  ( latitude  (i)  , 

i-  5121, 

5200)  / 

0^14 

.  39.898, 

39.881, 

39.881, 

39.476, 

38 . 982, 

38.547, 

38 .299, 

37 . 835, 

CIS 

.  37.835, 

38.024, 

37,539, 

37.163, 

36.676, 

36.438, 

36.386, 

36.386, 

cie 

.  36.852, 

3  6.986, 

37 .485, 

37.829, 

38 . 158, 

38.174, 

37.951, 

38 . 378 , 

371^ 

.  38.373, 

38.321, 

38 .299, 

38.299, 

38 . 750, 

39 . 174 , 

39.584, 

39 . 692 , 

0718 

39.692, 

40.124, 

40  500 , 

41.081, 

41.583, 

41.849, 

41.850, 

42 . 221 . 

C  7  1  9 

.  42.502, 

42 .810, 

4  2 , 97  < , 

43 . 408, 

43.5:2, 

43.845, 

44.224. 

-3  4  .  €  9  9  , 

00  2  0 

.  45.178, 

44,951, 

45.320. 

45 . 59t, 

45 . 590, 

45  .  €30 , 

4  5. 4  8  € , 

44 . 994 . 

0021 

.  44.511, 

44 . 080, 

44 .082, 

43 . 782, 

43 . 452, 

42.?"', 

4:. 524, 

42  .  199. 

0022 

41.919, 

41.934, 

41 .438, 

41 .20?, 

41.021. 

4  C’ .  0  3  9  , 

40.646, 

4  0 . €4  € , 

•*1-2'^ 

d  A  7  Q7 

■JQ  TQI 

40.174, 

4*^  191. 

TO  ^AA 

39. 431, 

T  Q  T  -5  T 

0-724 

data  ( latitude ( i ) , 

i-  5201, 

52801 

0725 

38. ■"34, 

38 . 270, 

37.918, 

37 . 918, 

38.410, 

38 .830, 

39.311, 

39.776, 

0'2  6 

40.074, 

40.239, 

40.239, 

40.626. 

40 . 959, 

41 .246, 

41.415, 

41.722. 

r. 

.  42.071, 

42.089, 

42.089, 

42.418, 

42 . 780. 

43.242, 

43.711, 

44 . 1C7, 
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0728 

44.347, 

44.332, 

43.926, 

43.782, 

43.782, 

43.505, 

43.170, 

43 . 144, 

0‘'29 

.  43.340, 

43.460, 

43.461, 

43.157, 

42.669, 

42.435, 

42.435, 

41.934, 

0730 

41.635, 

41.337, 

41.188, 

40.992, 

40.577, 

40.416, 

40.416, 

40.021, 

0731 

.  39.587, 

39.086, 

38 . 636, 

38.358, 

37.904, 

37 . 606, 

37 . 606, 

37.555, 

0732 

.  37.215, 

36.769, 

36.692, 

36.746, 

36.732, 

36.671, 

36.671, 

36.467, 

0733 

.  36.111, 

36.213, 

36.643, 

37.080, 

37.197, 

37.192, 

37.191, 

36.999, 

0734 

37.121, 

37.590, 

38.093, 

38.500, 

38.971, 

38.722, 

38.722, 

39.214/ 

0735 

da^a  ( latitude (i) , i 

-  5281, 

5360) / 

0736 

.  39.670, 

40.117, 

40.618, 

41.115, 

41.602, 

41.964, 

41.964, 

42.455, 

0737 

.  42.921, 

43.303, 

43.627, 

43.776, 

43.776, 

43.596, 

43.579, 

43.652, 

0738 

43.514, 

43.422, 

43 .401, 

43.401, 

43.508, 

43.372, 

43.360, 

43.395, 

0739 

.  43.396, 

43.823, 

44.317, 

44.818, 

45.317, 

45.008, 

45.486, 

45.707, 

0740 

.  45.707, 

46.208, 

46.508, 

46.977, 

47.021, 

47.021, 

47.373, 

47.625, 

0741 

.  47.820, 

48.004, 

48.041, 

48.040, 

48.543, 

48.713, 

48.836, 

48.518, 

0742 

.  48.692, 

48 . 693, 

48 . 640, 

49.141, 

49.610, 

49.352, 

49.341, 

49.275, 

0743 

.  49.275, 

49.481, 

49.902, 

50.210, 

50.709, 

51.028, 

51.091, 

51.091, 

0744 

.  51.346, 

51.402, 

51.904, 

51.988, 

51.988, 

52.382, 

52.871, 

53.145, 

0745 

.  53.384, 

51.651, 

51.741, 

51.662, 

51.826, 

51.686, 

51.706, 

53.958/ 

0746 

data  (latitude (i) , i 

-  5361, 

5440)  / 

0747 

.  54.394, 

54.669, 

54 . 686, 

55.151, 

55.614, 

56.118, 

56.583, 

56.617, 

0748 

.  56.169, 

55.874, 

55.432, 

55.356, 

56.583, 

56.805, 

57.052, 

56.999, 

0749 

.  57.101, 

57.101, 

57.190, 

57.571, 

57.571, 

57.230, 

57.230, 

57.078, 

0750 

.  57.078, 

56.617, 

55.356, 

54.859, 

54.669, 

55.611, 

55.120, 

55.102, 

0751 

.  55.272, 

55.767, 

55.718, 

55.916, 

56.179, 

55.734, 

55.417, 

55.421, 

0752 

54.686, 

54.184, 

53.814, 

53 . 796, 

53.700, 

53.418, 

53.414, 

53.384, 

0753 

.  54.518, 

54 .528, 

53 . 929, 

54 . 171, 

54 .171, 

54.423, 

54.231, 

53.941, 

0754 

.  53.958, 

54 .461, 

54 . 343, 

54.343, 

54.721, 

54.767, 

54.570, 

54.256, 

0755 

.  54.140, 

53.947, 

53.929, 

65.816, 

65.556, 

65.059, 

64.711, 

64.280, 

0756 

63.887, 

63.519, 

63 .416, 

63.416, 

63.094, 

62.643, 

62.154, 

61.659/ 

0757 

data  ( latitude  (i)  ,  i 

-  5441, 

5520)  / 

0758 

.  61.160, 

61.057, 

61.057, 

60.563, 

60.391, 

60.045, 

59.926, 

60.561, 

0759 

.  60.456, 

60.396, 

60.163, 

60.004, 

59.827, 

59.927, 

58.986, 

58.492, 

0760 

.  58.079, 

57.503, 

57.114, 

56. 

56.179, 

55.421, 

55.857, 

56.163, 

0761 

.  56.080, 

56.538, 

57.022, 

57,512, 

57.740, 

57.740, 

58.239, 

58.627, 

0762 

.  58.731, 

59.152, 

59.303, 

59.287, 

59.478, 

59.455, 

59.581, 

60.074, 

0763 

.  60.434, 

60.691, 

61.194, 

61.313, 

61.311, 

61.810, 

62.311, 

62.759, 

0764 

.  63.171, 

63.468, 

63.602, 

63.602, 

63.955, 

64.379, 

64.848, 

65.341, 

0765 

.  65.567, 

65.806, 

65.817, 

69.790, 

70.001, 

70.257, 

70.711, 

70.756, 

0766 

.  70.270, 

70.763, 

70.434, 

70.936, 

70.526, 

70.077, 

70.579, 

70.482, 

0767 

.  69.991, 

70.287, 

70.207, 

70.207, 

69.796, 

69.765, 

69.306, 

69.791/ 

0768 

data  (latitude  (i)  ,  i 

-  5521, 

5600)  / 

0769 

.  69.649, 

69.292, 

68.830, 

68.481, 

68.389, 

68.391, 

67.897, 

67.874, 

0770 

67.783, 

67.783, 

67.386, 

67.244, 

67.204, 

67.151, 

66.756, 

66.275, 

0771 

.  65.836, 

65.332, 

65.001, 

64.514, 

64.428, 

64.428, 

63.986, 

63.822, 

0772 

.  63.462, 

63.391, 

63.074, 

63.001, 

62 .723, 

62.604, 

62.103, 

62.272, 

0773 

.  62.187, 

62.187, 

61.877, 

61.682, 

61.195, 

61.133, 

61.158, 

61.044, 

0774 

.  61.054, 

60.553, 

60.100, 

60.439, 

60.003. 

59.549, 

59.564, 

59.128, 

0775 

.  58.750, 

58.750, 

58.364, 

58.124, 

58.071, 

58.359, 

58.733, 

59.015, 

077  6 

59.502, 

59.154, 

58.987, 

53.071, 

52.927, 

40.493, 

40.493, 

40.796, 

0  7'"' 

.  40.796, 

40.005, 

40.005, 

39.205, 

39.205, 

38.978, 

38.970, 

39.039. 

077  8 

.  38.704, 

38.334, 

38.452, 

38.837, 

39.039, 

37 . 680, 

37 . 680, 

37.471/ 

07-9 

data  (lat 

itude  (i)  ,  i 

-  5601, 

5680)  / 

0790 

.  37.471, 

37 . 990, 

37 . 990, 

37 . 676, 

37.676, 

37.503, 

37.503, 

37 . 501, 

0-81 

.  37.501, 

37.174. 

37.174. 

36.788, 

36.788, 

36.477, 

36.477, 

35.311, 

0782 

.  35.007, 

34 . 954, 

35.095. 

35.193. 

35 . 523 , 

35.587, 

35.418, 

35.335, 

n  -■  9  3 

35.183, 

35.311, 

36.377, 

-6.?- 7. 

36.7';i, 

36.751, 

37.118, 

37.118, 

0-84 

37.r-43, 

37.043, 

7  _  goo ^ 

37 . 999, 

3-  .  769. 

37.769, 

37 . 923 , 

37.923, 

0785 

38.468, 

38.468 , 

38.835. 

38.835. 

39.818. 

39. 018, 

42.784, 

42 .784 , 

0-86 

42.778. 

42 . -78, 

42 . 985, 

42.905. 

43 ,196. 

43 . 137 , 

43.188, 

43.196. 

0-8- 

43.399. 

43.380, 

43.C'1. 

43.071, 

44.169. 

44.169, 

44.694 , 

44 . 344 , 

0  788 

44.691, 

44 . 694 , 

45.165. 

44 . 676, 

45.157, 

45.165, 

45.214, 

45.214, 

0-89 

.  54.334, 

54.334, 

54.462, 

54.462, 

54.749, 

54.749, 

53.744, 

53.744/ 

0  7  90 

data  (latitude (i) , i 

-  5681, 

5760)  : 

7 ' 9 1 

.  53.718, 

53.718, 

53.602, 

53.602, 

53.498, 

53.498, 

36.766, 

36. 766, 
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0792 

.  30 

.256, 

37 

836, 

37 

.358, 

36 

.856, 

36 

783, 

37 

108, 

37 

298, 

37 

0793 

.  37 

.944, 

38 

146, 

37 

.993, 

38 

.012, 

38 

188, 

38 

297, 

38 

256, 

42 

844, 

0794 

.  42 

.  844, 

41 

243, 

40 

.859, 

40 

.359, 

39 

857, 

39 

357, 

39 

145, 

38 

960, 

0795 

.  39 

463, 

39 

964  , 

40 

.467, 

40 

.947, 

40 

965, 

41 

.243, 

36 

025, 

36 

025, 

0796 

.  35 

.803, 

35 

803, 

37 

.001, 

37 

.001, 

37 

902, 

37 

739, 

37 

902, 

38 

723, 

0797 

.  38 

723, 

38 

527, 

38 

.527, 

39 

.519, 

39 

519, 

40 

030, 

40 

030, 

39 

966, 

0798 

.  39 

472, 

39 

568, 

39 

942, 

39 

.966, 

39 

123, 

39 

123, 

38 

759, 

38 

759, 

0799 

37 

766, 

37 

766, 

36 

998, 

36 

998, 

43 

006, 

42 

.509, 

42 

.010, 

41 

.526, 

0800 

.  41 

.743, 

42 

236, 

42 

.634, 

43 

.008, 

43 

006, 

45 

.819, 

45 

.819, 

46 

157/ 

0801 

data 

(latitud* (i) , i 

-  5761, 

5840) / 

0802 

46 

157, 

46 

701, 

46 

.701, 

46 

.913, 

46 

913, 

47 

387, 

47 

387, 

48 

478, 

0803 

.  48 

478, 

49 

254, 

49 

.254, 

49 

.500, 

49 

.500, 

52 

.564, 

52 

.564, 

53 

.182, 

0804 

.  53 

182, 

53 

443, 

53 

.443, 

53 

.466, 

53 

466, 

55 

.354, 

55 

.232, 

54 

.867, 

0805 

.  54 

411, 

54 

041, 

53 

.540, 

53 

.488, 

52 

612, 

53 

081, 

53 

378, 

53 

821, 

0806 

.  54 

227, 

54 

292, 

54 

.471, 

54 

.972, 

55 

253, 

55 

354, 

54 

010, 

54 

010, 

0807 

.  57 

961, 

57 

685, 

57 

.684, 

57 

.191, 

56 

733, 

56 

415, 

56 

360, 

56 

360, 

0808 

.  56 

051, 

55 

730, 

55 

.275, 

54 

.796, 

54 

675, 

54 

674, 

54 

395, 

53 

926, 

0809 

.  53 

685, 

53 

684, 

53 

.300, 

52 

.810, 

52 

954, 

52 

689, 

52 

191, 

51 

784, 

0810 

.  51 

506, 

51 

375, 

51 

347, 

51 

.346, 

50 

942, 

50 

738, 

50 

797, 

50 

861, 

0811 

.  50 

701, 

50 

729, 

50 

.453, 

50 

.362, 

50 

145, 

50 

134, 

51 

014, 

51 

.241,/ 

0812 

data 

(latitude (i) , i 

-  5841, 

5920 

/ 

0813 

.  51 

351, 

51 

733, 

51 

469, 

51 

.609, 

51 

648, 

52 

135, 

52 

525, 

52 

7  98, 

0814 

.  52 

789, 

52 

789, 

53 

171, 

53 

.332, 

53 

727, 

54 

225, 

54 

451, 

54 

.931, 

0815 

.  54 

769, 

54 

770, 

54 

.848, 

55 

.346, 

55 

844, 

55 

489, 

55 

988, 

56 

438, 

0816 

.  56 

813, 

56 

813, 

56 

.563, 

57 

.059, 

57 

561, 

57 

931, 

57 

971, 

57 

971, 

0817 

.  58 

456, 

58 

557, 

58 

639, 

58 

.176, 

57 

961, 

53 

488, 

52 

988, 

52 

503, 

0818 

.  52 

353, 

52 

353, 

52 

154, 

51 

.925, 

51 

643, 

51 

484, 

51 

602, 

51 

.783, 

0819 

.  51 

783, 

52 

143. 

52 

580, 

52 

.612, 

58 

509, 

58 

012, 

58 

511, 

58 

509, 

0820 

.  57 

684, 

57 

684, 

57 

.488, 

57 

.488, 

57 

406, 

57 

406, 

57 

049, 

57 

049, 

0821 

.  57 

695, 

57 

248, 

57 

.428, 

57 

.695, 

57 

054, 

57 

054, 

56 

688, 

56 

688, 

0822 

.  56 

534, 

56 

534, 

56 

.111, 

56 

.111, 

56 

142, 

56 

142, 

55 

917, 

55 

917/ 

0823 

data 

(latitude (i) , i 

-  5921, 

6000)  / 

0824 

.  56 

650, 

56 

650, 

51 

369, 

51 

369, 

50 

134, 

50 

599, 

51 

014, 

58 

936, 

0825 

.  58 

936, 

58 

850, 

58 

850, 

50 

678, 

50 

678, 

49 

934, 

49 

934, 

53 

425, 

0826 

.  53 

425, 

54 

409, 

54 

409, 

55 

717, 

55 

717, 

57 

814, 

57 

814, 

60 

837, 

0827 

.  60 

837, 

60 

466, 

59 

971, 

60 

466, 

60 

725, 

60 

725, 

54 

957, 

54 

957, 

0828 

.  55 

272, 

54 

806, 

55 

191, 

55 

621, 

55 

964, 

55 

916, 

55 

102, 

55 

227, 

0829 

.  55 

532, 

55 

611, 

55 

970, 

55 

970, 

57 

087, 

57 

087, 

55 

300, 

55 

300, 

0830 

.  55 

059, 

55 

059, 

55 

148, 

55 

148, 

55 

084, 

55 

084, 

57 

303, 

57 

303, 

0831 

.  56 

974, 

56 

97  4, 

70 

924, 

70 

924, 

70 

522, 

70 

522, 

70 

274, 

70 

274. 

0832 

70 

478, 

70 

784, 

70 

467, 

70 

478, 

70 

246, 

70 

246, 

69 

801, 

69 

801, 

0833 

.  69 

530, 

69 

530, 

70 

059, 

70 

059. 

70 

006, 

70 

006, 

70 

053, 

70 

053/ 

0834 

data 

(latitude (1) , i 

-  6001, 

6080 

/ 

0835 

.  69 

Oil, 

69 

501, 

69 

007, 

69 

Oil, 

68 

911, 

68 

911, 

60 

263, 

68 

723, 

0836 

.  68 

257, 

68 

263, 

68 

617, 

68 

617, 

68 

167, 

68 

167, 

68 

044, 

68 

044, 

0837 

.  68 

071, 

68 

071, 

65 

366, 

65 

366, 

64 

963, 

64 

963, 

63 

717, 

63 

717, 

'1838 

.  63 

551, 

63 

551, 

63 

386, 

63 

386, 

62 

334, 

62 

334, 

62 

264, 

62 

2  64, 

0839 

.  61 

846, 

61 

846, 

60 

674, 

60 

674, 

59 

962, 

59 

962, 

59 

409, 

59 

409, 

0840 

.  58 

282, 

58 

282, 

57 

338, 

56 

856, 

56 

377, 

56 

879, 

57 

337, 

57 

338, 

0841 

.  57 

899, 

57 

401, 

57 

017, 

57 

507, 

57. 

909, 

57 

899, 

57 

950, 

57 

950, 

0842 

.  58 

390, 

58 

390, 

64 

973, 

64 

973, 

63 

244, 

63 

244, 

60 

288, 

60 

288, 

0843 

60 

400, 

60 

400, 

60 

156, 

60 

156, 

60 

192, 

60 

192, 

60 

064, 

60 

064  , 

0844 

66 

382, 

65 

883, 

65 

523, 

65 

029, 

64 

666, 

64 

383, 

64 

383, 

64 

1  82,' 

0845 

data 

(lat 

itude (i> , i 

-  6081, 

6160) 

/ 

0846 

63 

857  , 

63 

746, 

63 

409, 

63 

522. 

63 

757  , 

63 

849, 

53 

849. 

f  ■■ 

S':'  . 

0847 

64 

IST  , 

64 

6on , 

64 

790, 

64 

890 , 

64 

88? , 

64 

998  . 

65 

141  . 

65 

5  35, 

0848 

65 

444  . 

65 

94  6, 

35 

910  , 

66 

328, 

66 

219, 

65 

057  , 

65 

956. 

65 

454  , 

084  9 

.  65 

645. 

65 

990, 

65 

866, 

66 

172, 

66 

483, 

66 

2'1, 

66 

384  , 

61 

564  . 

0  8  50 

61 

564  , 

61 

87  ?  , 

61 

873, 

62 

317, 

62 

317, 

62 

35'  , 

62 

3  5', 

c  2 

301  , 

0851 

.  62 

301, 

6  2 

144  , 

62 

144  , 

54 

286, 

54 

61?. 

5  4 

2'8  , 

54 

286, 

52 

92  '  , 

^'852 

.  52 

424  . 

52 

584  , 

53 

005, 

53 

071 , 

31 

239, 

31 

411  , 

31 

411, 

31 

542, 

0853 

.  31 

441, 

31 

441, 

31 

292, 

31 

237, 

31 

237, 

31 

095, 

30 

842, 

30 

826, 

0854 

.  27 

533, 

27 

099, 

26 

614, 

26 

164, 

25 

736, 

25 

278, 

24 

808, 

24 

377  , 

0855 

24 

013  , 

23 

527, 

23 

041, 

22 

686, 

22. 

341, 

22 

295, 

30 

826, 

31 

049  ' 
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0856 

data 

(latituda (i) , 

i-  6161, 

6240) / 

0857 

.  31 

098, 

31 

278, 

31 

445, 

31.551, 

31 

570, 

31 

644, 

27 

535, 

28 

021, 

0858 

.  28 

.398, 

28 

802, 

28 

802, 

29.285, 

29 

757, 

29 

951, 

31 

644, 

32 

019, 

0859 

.  32 

000, 

32 

180, 

32 

427, 

32.757, 

32 

912, 

32 

826, 

32 

708, 

32 

441, 

0860 

.  32 

.069, 

31 

568, 

31 

.210, 

31.210, 

30 

737, 

30 

394, 

30 

273, 

30 

549, 

0861 

.  30 

838, 

31 

02  6, 

31 

188, 

31.230, 

31 

388, 

31 

809, 

32 

296, 

32 

449, 

0862 

.  32 

701, 

32 

789, 

32 

849, 

32.824, 

33 

061, 

33 

171, 

33 

171, 

33 

534, 

0863 

33 

648, 

33 

972, 

34 

416, 

34.765, 

35 

196, 

35 

265, 

35 

266, 

35 

712, 

0864 

.  36 

117, 

36 

519, 

36 

980, 

36.764, 

37 

206, 

37 

298, 

37 

120, 

36 

942, 

0865 

.  36 

942, 

36 

869, 

37 

052, 

37.051, 

36 

893, 

37 

028, 

36 

825, 

36 

700, 

0866 

.  36 

887, 

36 

917, 

36 

787, 

36.643, 

36 

627, 

36 

628, 

36 

549, 

36 

485/ 

0867 

data 

(latitude  (i)  , 

i-  6241, 

6320)  / 

0868 

.  36 

260, 

35 

917, 

35 

769, 

35.613, 

35 

260, 

35 

093, 

35 

095, 

35 

095, 

0869 

.  35 

183, 

35 

199, 

35 

239, 

35.209, 

35 

509, 

35 

831, 

35 

781, 

35 

781, 

0870 

.  35 

304, 

34 

831, 

34 

384, 

33.963, 

33 

701, 

33 

478, 

33 

270, 

32 

871, 

0871 

.  32 

480, 

32 

044, 

32 

044, 

31.634, 

31 

149, 

30 

645, 

30 

194, 

29 

749. 

0872 

.  29 

326, 

28 

961, 

28 

697, 

28.325, 

28 

123, 

27 

993, 

27 

747, 

27 

665, 

0873 

.  24 

003, 

23 

559, 

23 

120, 

22.635. 

22 

263, 

21 

816, 

21 

320, 

20 

822, 

0874 

.  20 

766, 

27 

665, 

27 

201, 

26.728, 

26 

442, 

26 

144, 

25 

669, 

25 

196, 

0875 

24 

697, 

24 

347, 

24 

002, 

20.766, 

20 

579, 

20 

201, 

19 

706, 

19 

210, 

0876 

.  18 

750, 

18 

255, 

17 

753, 

17.265, 

16 

808, 

16 

326, 

16 

060, 

16 

061, 

0877 

.  15 

574, 

15 

155, 

14 

821, 

14.431, 

13 

976, 

13 

530, 

13 

443, 

13 

516/ 

0878 

data 

(latitude (i) , 

i-  6321, 

6400)  / 

0879 

.  13 

409, 

13 

286, 

12 

851, 

12.563, 

12 

610, 

12 

832, 

12 

553, 

12 

582, 

0880 

.  12 

323, 

12 

323, 

12 

293, 

12.016, 

11 

921, 

11 

462, 

11 

008, 

10 

981, 

0881 

.  10 

482, 

10 

153, 

9 

872, 

9.495, 

9 

040, 

9 

036, 

9 

035, 

8 

544, 

0882 

8 

112, 

7 

694, 

7 

319, 

7.143, 

6 

856, 

6 

557, 

6 

219, 

5 

998, 

0883 

5 

656, 

5 

304, 

5 

003, 

4.779, 

4 

557, 

4 

358, 

4 

353, 

4 

353, 

0884 

4 

536, 

4 

741, 

4 

924, 

5.061 , 

5 

119, 

5 

177, 

5 

216, 

5 

210, 

0885 

5 

303, 

5 

173, 

5 

352, 

5.085, 

5 

085, 

4 

977, 

4 

781, 

4 

956, 

0886 

5 

116, 

5 

277, 

5 

510, 

5.726, 

5 

784, 

6 

050, 

6 

101, 

6 

101, 

0887 

6 

234, 

6 

307, 

6 

363, 

6.389, 

6 

577, 

6 

396, 

6 

226 

5 

875, 

0888 

5 

648, 

5 

151, 

4 

656, 

4.370, 

4 

323, 

4 

759, 

4 

468, 

4 

515/ 

0889 

data 

(latitude (i) , 

i-  6401, 

6480) / 

0890 

4 

519, 

4 

518, 

4 

543, 

4.545, 

4 

214, 

4 

214, 

3 

901, 

3 

631, 

0891 

3 

144, 

2 

649, 

2 

348, 

2.348, 

1 

850, 

1 

424, 

1 

076, 

1 

000, 

0892 

1 

000, 

0 

535, 

0 

185, 

0.095, 

-0 

372, 

-0 

686, 

-0 

686, 

-1 

170, 

0893 

.  -1 

571, 

-1 

609, 

-2 

327, 

-2.530, 

-2 

968, 

-3 

331, 

-3 

703, 

-3 

944, 

0894 

.  -1 

613, 

-1 

389, 

-1 

846, 

-2.276, 

-2 

326, 

-3 

946, 

-4 

304, 

-4 

708, 

0895 

.  -5 

019, 

-5 

858, 

-5 

970, 

-5.770, 

-5 

266, 

-5 

019, 

1 

K) 

772, 

-13 

209, 

0896 

.  -13 

665, 

-14 

139, 

-14 

637, 

-15.114, 

-15 

609, 

-16 

070, 

-16 

570, 

-17 

072, 

0897 

.  -17 

207, 

-5 

858, 

-6 

Oil, 

-6.448, 

-6 

861, 

-7 

333, 

-7 

803, 

-8 

261, 

0898 

-8 

7  62, 

-9 

096, 

-9 

336, 

-9.337, 

-9 

821, 

-10 

272, 

-10 

697, 

-11 

198, 

0899 

.  -11 

700, 

-12 

185, 

-12 

599, 

-12.773, 

-17. 

207, 

-17 

709, 

-18. 

187, 

-18 

615/ 

0900 

data 

(latitude (i) . 

i-  6481, 

6560) / 

0901 

.  -19 

021, 

-19 

464, 

-19 

909, 

-20.357, 

-20 

837, 

-21 

259, 

-21. 

694, 

-22 

100, 

0902 

.  -22 

548, 

-22 

682, 

-22 

682, 

-23.138, 

-23 

138, 

-23 

637, 

-24 

137, 

-24 

616, 

0903 

.  -25 

081, 

-25 

582, 

-26 

076, 

-26.556, 

-27 

055, 

-27 

522, 

-27 

970, 

-28 

327, 

0904 

.  -28 

577, 

-28 

577, 

-29 

027, 

-29.484, 

-29 

965, 

-30 

439, 

-30 

892, 

-31 

327, 

0905 

.  -31 

742, 

-32 

236, 

-32 

722, 

-33.214, 

-33 

640, 

-34 

138, 

-34. 

348, 

-34 

348, 

0906 

.  -34 

334, 

-34 

692, 

-34 

698, 

-34.441, 

-34 

428, 

-34 

351, 

-34 

063, 

-34 

085, 

0  90  7 

.  -33 

992, 

-34 

063, 

-34 

187, 

-33.998, 

-34 

025, 

-34 

026, 

-33 

739, 

-33 

639, 

0908 

.  -33 

386, 

-33 

090, 

-32 

759, 

-32.421, 

-32 

056, 

-31 

668, 

-31 

355, 

-30 

962, 

0  90  9 

.  -30 

534, 

-30 

086, 

-29 

882, 

-29.880, 

-29 

423. 

-29 

043, 

-28 

753, 

-28 

330, 

9910 

.  -27 

844. 

-27 

358, 

-26 

871, 

-26.847, 

-26 

849, 

-26 

347, 

-25 

97  9 , 

-25 

565, 

0  911 

data 

(lat 

itude ( i) , 

i=  6561. 

6640) / 

0912 

.  -25 

262, 

-25 

080, 

-24 

906, 

-24 . 856, 

-24 

855, 

-24 

661, 

-24 

290, 

-23 

813, 

0913 

,  -23 

312, 

-22 

809, 

-22 

305, 

-21.853, 

-21 

378, 

-20 

969, 

-2C 

969, 

-20 

582, 

0  914 

-20 

081 , 

-19 

604  , 

-19 

720, 

-19.368, 

-19 

o 

o 

-18 

863, 

-14 

879, 

-14 

380  . 

'  0 1 5 

.  -13 

87'  , 

-13 

375, 

-12 

884, 

-12 . 388, 

-11 

8^8  , 

-11 

388, 

-10 

892  , 

-10 

4  , 

0  91- 

.  -18 

862, 

-18 

473, 

-18 

099. 

-17.701, 

-17 

4  63, 

-17 

246, 

-17 

065, 

-16 

831  , 

0  91' 

.  -16 

568, 

-16 

199, 

-15 

776, 

-15.372, 

-14 

867, 

-14 

879, 

-10. 

479, 

-10 

145, 

'91-- 

-9 

752, 

-9 

256, 

-8 

782, 

-8.304, 

-7 

826, 

-7 

329, 

-6 

826. 

-6 

456, 

r  g  ■  - 

.  -5 

992, 

-5 

526, 

-5 

032, 

-4.671, 

-4 

671, 

-4 

317, 

-3. 

866, 

-3 

383, 
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0920 

.  -2 

923, 

-2 

535, 

-2 

226, 

-1. 

958, 

-1 

671, 

-1 

674, 

-1 

256, 

-0 

833, 

0  921 

.  -0 

4  O’, 

-C 

105, 

0 

002, 

0. 

001, 

u 

368, 

0 

729, 

1 

046, 

1 

389/ 

0922 

data 

(latitude (i) , 

i-  6641, 

6720) 

/ 

0023 

1 

681, 

1 

940, 

2 

187, 

2. 

450, 

2 

811, 

3 

155, 

3 

527, 

3 

884, 

0924 

3 

937, 

3 

937, 

4 

317, 

i 

730, 

5 

149, 

5 

558, 

5 

988, 

6 

468, 

0925 

6 

920, 

7 

313, 

7 

313, 

7 

760, 

8 

176, 

8 

629, 

9 

046, 

9 

506, 

0926 

.  10 

003, 

10 

423, 

10 

452, 

10. 

452, 

10 

869, 

11 

373, 

11 

871, 

11 

948, 

0927 

.  11 

592, 

11 

453, 

11 

328, 

11. 

244, 

11 

244, 

11 

288, 

11 

126, 

11 

181, 

0928 

.  10 

932, 

10 

713, 

10 

791, 

10. 

692, 

10 

469, 

10 

416, 

10 

621, 

10 

961, 

0929 

11 

384, 

11 

574, 

12 

708, 

12 

276, 

11 

853, 

11 

567, 

11 

574, 

18 

033, 

0930 

.  17 

574, 

17 

106, 

16 

621, 

12 

708, 

13 

032, 

13 

369, 

13 

762, 

14 

068, 

0931 

.  14 

477, 

14 

536, 

14 

536, 

14. 

704, 

14 

913, 

15 

364, 

15 

534, 

15 

959, 

0932 

.  16 

451, 

16 

618, 

18 

033, 

18 

272, 

18 

651, 

19 

001, 

19 

493, 

19 

988/ 

0933 

data 

(latitude (i) , 

i-  6721, 

6800) 

/ 

0934 

.  20 

489, 

20 

987, 

21 

474, 

21. 

964, 

22 

287, 

31 

138, 

31 

137, 

31 

216, 

0935 

.  31 

217. 

34 

739, 

34 

739, 

33. 

798, 

33 

798, 

37 

532, 

37 

532, 

35 

924, 

0936 

.  35 

924, 

29 

143, 

29 

143, 

28 

500, 

28 

094, 

28 

294, 

28 

500, 

27 

939, 

0937 

.  27 

939, 

28 

562, 

28 

364, 

28 

480, 

28 

562, 

28 

200, 

28 

200, 

27 

756, 

0938 

.  27 

756, 

28 

529, 

28 

529, 

30. 

034, 

30 

034, 

32 

822, 

32 

822, 

33 

061, 

0939 

.  33 

061, 

14 

899, 

14 

899, 

15. 

001, 

15 

001, 

15 

001, 

15 

001, 

15 

293, 

0940 

.  15 

293, 

16 

002, 

16 

002, 

16. 

793, 

16 

793, 

16 

656, 

16 

656, 

16 

803, 

0941 

.  16 

803, 

17 

003, 

17 

003, 

19. 

853, 

19 

853, 

11 

878, 

11 

878, 

11 

626, 

0942 

.  11 

626, 

11 

601, 

11 

601, 

11. 

565, 

11 

565, 

11 

251, 

11 

251, 

11 

193, 

0943 

.  11 

193, 

11 

202, 

11 

2  02, 

11 

195, 

11 

195, 

11 

302, 

11 

302, 

7 

614/ 

0944 

data 

(latitude (i) , 

i-  6801, 

6880) 

/ 

0945 

.  7 

614, 

-1 

421, 

-1 

421, 

0. 

404, 

0 

404, 

1 

690, 

1 

690, 

3 

748, 

0946 

3 

274, 

3 

751, 

3 

748, 

-16. 

792, 

-16 

7  92, 

-26 

014, 

-26 

014, 

-21 

714, 

094’ 

.  -21 

714, 

-11 

379, 

-11 

846, 

-11 

386, 

-11 

379, 

-12 

243, 

-12 

243, 

-12 

162, 

0948 

.  -12 

162, 

-12 

675, 

-12 

675, 

-12. 

749, 

-12 

748, 

-9 

339, 

-9 

339, 

-9 

343, 

0949 

.  -9 

343, 

-7 

978, 

-7 

978, 

-5. 

939, 

-6 

385, 

-5 

887, 

-5 

939, 

-5 

438, 

0950 

-4 

936, 

-5 

430, 

-5 

438, 

-4. 

073, 

-4 

073, 

-2 

202, 

-2 

202, 

15 

605, 

0951 

.  15 

605, 

-20 

998, 

-20 

998, 

-4. 

281, 

-4 

281, 

-4 

551, 

-4 

551, 

-7 

115, 

0952 

-7 

115, 

-10 

330, 

-10 

330, 

-10. 

397, 

-10 

397, 

-20 

123, 

-20 

438, 

-20 

123, 

0953 

.  -19 

677, 

-19 

677, 

-13 

400, 

-13. 

400, 

-17 

074, 

-17 

074, 

-25 

522, 

-25 

499, 

0954 

.  -25 

289, 

-25 

023, 

-24 

553, 

-24. 

082, 

-23 

582, 

-23 

099, 

-22 

669, 

-22 

165/ 

0955 

data 

(latitude (i) , 

i-  6881, 

6960) 

/ 

0956 

.  -21 

671, 

-21 

274, 

-20 

799, 

-20. 

388, 

-20 

383, 

-20 

383, 

-19 

932, 

-19 

429, 

0957 

.  -18 

974, 

-18 

480, 

-17 

980, 

-17. 

479, 

-17 

047, 

-16 

588, 

-16 

198, 

-15 

956, 

0958 

.  -15 

782, 

-15 

712, 

-15 

419, 

-15. 

456. 

-14 

961, 

> 

852, 

-20 

997, 

-21 

489, 

0959 

.  -21 

969, 

-22 

444, 

-22 

945, 

-23. 

433, 

-23 

925, 

.4 

391, 

-24 

861, 

-25 

173, 

0960 

.  -25 

245, 

-25 

509, 

-25 

522, 

-14. 

850, 

-14 

627, 

-14 

162, 

-13 

665, 

-13 

579, 

0961 

.  -13 

280, 

-12 

789, 

-12 

298, 

-11. 

94  8, 

-11 

948, 

-12 

384, 

-12 

828, 

-13 

299, 

0962 

.  -13 

774, 

-14 

274, 

-14 

774, 

-15. 

214, 

-15 

707, 

-15 

989, 

-15 

989, 

-15 

548, 

0963 

.  -16 

010, 

-16 

483, 

-16 

919, 

-17. 

401, 

-17 

904, 

-18 

404, 

-18 

869, 

-19 

346, 

0964 

.  -19 

825, 

-20 

298, 

-20 

778, 

-20. 

997, 

-46 

451, 

-46 

451, 

-46 

120, 

-46 

120, 

0965 

.  -46 

958, 

-46 

958, 

-40 

391, 

-40. 

391, 

-37 

115, 

-37 

115, 

-15 

994, 

-15 

994/ 

0966 

data 

( latitude (i) , 

i-  6961, 

7040) 

/ 

0  9  6’ 

.  -7 

983, 

-7 

983, 

1 

009. 

1. 

511, 

1 

855, 

2 

164, 

1 

662, 

1 

362, 

0968 

1 

009, 

-4 

309, 

-3 

814. 

-3. 

342, 

-3 

838, 

-4 

2  98, 

-4 

798, 

-5 

256, 

096? 

.  -5 

745, 

-5 

922, 

-5 

921, 

-6. 

417, 

-6 

630, 

-7 

071, 

-7 

570, 

-7 

997  , 

0970 

.  -8 

426, 

-8 

489, 

-8 

021, 

-7 

889, 

-7 

890, 

-7 

398, 

-7 

064, 

-6 

670, 

0971 

.  -6 

199, 

-5 

697, 

-5 

234, 

-4 

735, 

-4 

250, 

-4 

307, 

-17 

974, 

-17 

566, 

0972 

.  -17 

117, 

-16 

791, 

-16 

557, 

-16. 

559. 

-16 

780, 

-17 

068, 

-17 

351, 

-17 

709, 

0973 

.  -17 

974, 

-9 

700, 

-10 

180, 

-10. 

666, 

-11 

169, 

-11 

664, 

-12 

089, 

-12 

586, 

0  97  4 

.  -13 

O’O, 

-13 

56? 

-14 

051, 

-14  . 

175. 

-1? 

■'O?. 

-13 

200, 

-12 

697  , 

-12 

206, 

0  9’  5 

.  -11 

'60, 

-11 

566, 

-11 

565, 

-11 

156. 

-10 

65  5, 

-10 

165, 

-  o 

723  , 

_  p 

700, 

^  9’  6 

-2 

04  6, 

-1 

563, 

-1 

071 , 

-n 

569, 

_n 

inn 

0 

045  , 

n 

046. 

0 

184 

0  97' 

data 

( lat 

itud« 

>  (i)  , 

i-  7041, 

7120) 

0  97  P 

0 

339, 

0 

325, 

-n 

070  , 

-0 

190 

-0 

I''!  . 

-0 

092  , 

-0 

527  , 

_n 

93'  , 

0970 

-  X 

327  , 

-1 

'62, 

-2 

10?. 

-2 

112  . 

-2 

5  3  3. 

-2 

557, 

-2 

55', 

-  2 

3  93 

0980 

-2 

882  , 

"  z 

409, 

-2 

389, 

-2 

781, 

— 

32  6, 

-2 

044  , 

11 

632, 

12 

026, 

0981 

12 

296, 

11 

790, 

11 

632, 

-li  . 

095, 

-17 

095, 

35 

926, 

36 

426, 

36 

910, 

0982 

.  36 

587  , 

36 

718, 

36 

641, 

36. 

251, 

36 

138. 

36 

021, 

36 

021, 

36 

284, 

0  983 

.  3  6 

599, 

36 

819, 

36 

825, 

36. 

327, 

36 

222, 

36 

2  63, 

36 

710, 

36 

697, 
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0984 

.  36.697, 

36.567, 

36.662, 

36.788, 

37.007, 

37.476, 

37.978, 

38.204, 

0905 

38.638, 

38.373, 

38.866, 

39.269, 

39.471, 

39.470, 

39.966, 

40.316, 

0986 

40.464, 

40.507, 

40.380, 

40.646, 

40.719, 

40.900, 

41.156, 

41.212, 

098"' 

.  41.212, 

41.075, 

41.340, 

41.582, 

41.833, 

42.002, 

41.979, 

41.940/ 

0988 

data  ( latitude (i) , 

i-  7121, 

7200) / 

0989 

.  42.091, 

42.090, 

41.684, 

41.655, 

41.241, 

41.150, 

41.118, 

40.920, 

0990 

.  41.038, 

41.008, 

40.976, 

35.005, 

35.502, 

35.926, 

35.005, 

34.648, 

0991 

.  34.648, 

34.224, 

33.752, 

33.291, 

33.095, 

33.095, 

32.620, 

32.132, 

0992 

.  31.673, 

31.596, 

31.596, 

31.326, 

31.326, 

31.122, 

31.179, 

31.044, 

0993 

.  31.044, 

31.193, 

29.951, 

29.466, 

29.069, 

28.586, 

28.294, 

28.294, 

0994 

.  27.913, 

28.119, 

28.542, 

28.542, 

29.022. 

29.486, 

29.552, 

29.552, 

0995 

.  29.546, 

29.546, 

29.360, 

29.360, 

28.870, 

28.378, 

28.139, 

28.139, 

0996 

.  27.964, 

27.964, 

27.524, 

27.096, 

26.693, 

26.251, 

25.805, 

25.441, 

0997 

.  24.976, 

24 . 486, 

24.174, 

24.174, 

23.896, 

23.499, 

23.018, 

22.583, 

0998 

.  22.083, 

21.583, 

21.091, 

20.685, 

20.569, 

20.568, 

20.274, 

20.000/ 

0999 

data  (latitude (i) , 

i-  7201, 

7280) / 

1000 

.  19.611, 

19.167, 

18.688, 

18.270, 

17.838, 

17.531, 

17.050, 

16.686, 

1001 

.  16.196, 

15.706, 

15.214, 

14.735, 

14.244, 

13.773, 

13.279, 

13.278, 

1002 

.  12.837, 

12.603, 

12.694, 

12.821, 

13.057, 

13.369, 

13.417, 

13.479, 

1003 

.  13.631, 

13.912, 

13.909, 

14.098, 

14.497, 

14.512, 

14.512, 

14.750, 

1004 

.  14.043, 

15.055, 

15.165, 

15.325, 

15.578, 

16.071, 

16.448, 

16.628, 

1005 

.  16.749, 

16.977, 

17.036, 

17.034, 

17.174, 

17.174, 

17.661, 

17.904, 

1006 

.  17.937, 

18.359, 

18.788, 

18.935, 

19.309, 

19.810, 

20.004, 

20.004, 

1007 

.  20.460, 

20.391, 

24.748, 

25.161, 

25.599, 

26.048, 

26.550, 

26.964, 

1008 

.  27.331, 

27 . 609, 

28.070, 

20.545, 

28.546, 

20.391, 

20.844, 

21.245, 

1009 

.  21.585, 

22.033, 

22.522, 

22.765, 

23.168, 

23.566, 

23.705, 

23.797/ 

1010 

data  (latitude (i) , 

i-  7281, 

7360) / 

1011 

.  23.988, 

24.372, 

24.804, 

25.303, 

25.636, 

25.636, 

26.128, 

26.066, 

1012 

.  26.066, 

25.656, 

25.312, 

24.948, 

24.546, 

24.310, 

24.052, 

24.124, 

1013 

.  24.122, 

23.984, 

24.353, 

24.617, 

24.618, 

24.986, 

25.480, 

25.972, 

1014 

.  25.731, 

25.243, 

24.747, 

28.545, 

28.997, 

29.386, 

29.864, 

30.012, 

1015 

.  30.012, 

29.923, 

29.964, 

29.963, 

30.371, 

30.165, 

30.216, 

29.791, 

1016 

.  29.409, 

28. 947, 

28.476, 

28.154, 

35.672, 

35.373, 

34.974, 

34.699, 

1017 

.  34.673, 

35.174, 

35.361, 

35.390, 

35.574, 

35.672, 

40.145, 

40.145, 

1018 

.  39.326, 

39.326, 

38.538, 

38,538, 

37.679, 

37.679, 

37.771, 

37.771, 

1019 

.  37.004, 

37.004, 

36.859, 

36.659, 

36.636, 

36.636, 

36.443, 

35.999, 

1020 

.  36.443, 

35.815, 

35.815, 

17.003, 

17.003, 

16.876, 

16.584, 

16.076/ 

1021 

data  (latitude  (i)  , 

i-  7361, 

7440)  / 

1022 

.  12.240, 

12.240, 

12.651, 

12.321, 

12.504, 

12.624, 

12.651, 

17.558, 

1023 

.  17.558, 

20.692, 

20.218, 

20.693, 

20.692, 

24.230, 

24.230, 

24.545, 

1024 

.  24.545, 

24.589, 

24.589, 

24 .326, 

24.326, 

26.240, 

26.240, 

29.983, 

1025 

.  29.983, 

30.778, 

30.778, 

30.758, 

30.758, 

30.900, 

30.900, 

30.753, 

1026 

.  30.752, 

30.823, 

30.823, 

30.811, 

30.811, 

30.593, 

30.593, 

30.419, 

1027 

.  30.419, 

30.678, 

30.745, 

30.701, 

30.678, 

31.194, 

30.812, 

30.812, 

1028 

.  30.588, 

30.564, 

30.420, 

30.176, 

29.952, 

-37.895, 

-37.895, 

-38.722, 

1029 

.  -38.722, 

-49.719, 

-49.561, 

-49.228, 

-48.738, 

-48.983, 

-49.055, 

-49.410, 

1030' 

.  -49.719, 

-49.083, 

-49.003, 

-52.988, 

-52.988, 

-54.459, 

-54.459, 

53.003, 

1031 

.  53.003, 

52 . 446, 

52.446, 

52.119, 

52.119, 

51 . 649, 

51.408, 

51 . 618,- 

1032 

data  (latitude (i) , 

i-  7441, 

7520)  / 

1033 

.  51.649, 

51.829, 

51.829, 

51.909, 

51.909, 

51.889, 

51.809, 

51.972, 

1034 

.  51.972, 

51.857, 

51.857, 

51.9'C, 

31 . 876, 

51 . 909, 

51.909, 

52.095, 

103  5 

.  52.0  95, 

51 . 987, 

51 . 987, 

51.970, 

51.970, 

52.419, 

52.048, 

52.419, 

1036 

.  52.123, 

52.106. 

52.095, 

52.123, 

52.382, 

52.382, 

52.524, 

52.524, 

193' 

52.684, 

52 . 684, 

52 .778, 

52.778, 

53.035, 

53 . 035, 

52.855, 

52.855, 

103? 

53.496, 

53.131. 

52 . 833. 

53.267, 

53,518, 

53 .496, 

53.967, 

53.525, 

1039 

.  53.324, 

53.676, 

53 . 967 . 

54.11*. 

54  .  ll’’. 

54.087, 

54 . 087 , 

54 .125 . 

1040 

.  54.125, 

54.292, 

54.292. 

56.613. 

56.613, 

57 .209. 

57.209, 

60.410, 

1041 

59.976, 

59.852, 

60.161, 

60.380, 

60.410, 

60.586, 

60.506, 

62.943, 

1042 

.  63.330, 

63.327, 

63 . 667 , 

63 . 436, 

62.943, 

65.749, 

65.749, 

52 .022 

1043 

data  (lat 

itude ( i ) , 

i-  7521, 

7600) 

104  4 

.  52.022, 

20 . 272  , 

20.060, 

19.692, 

19.279, 

10.927, 

19.381, 

19.861, 

1045 

.  20.272, 

20.939, 

20.939, 

20.606, 

20.606, 

20.925, 

20.925, 

21.203, 

1046 

.  21.203, 

21.697, 

21.697, 

22.183, 

22.183, 

22.009, 

22.009, 

21.641, 

r 

o 

.  21.641, 

23.043, 

23.043, 

23.578. 

23.578, 

25.011, 

25.011, 

25.788, 
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1048 

.  25.788. 

26.078, 

26.078, 

28.209, 

28.209, 

28.219, 

28.219, 

28.391, 

1049 

.  28.391, 

16.729, 

16.729, 

44.623, 

44.814, 

45.211, 

71.141, 

71.141, 

1050 

.  74.512, 

74.512, 

76.684, 

76.684, 

78.001, 

77.533, 

77.487, 

77.984, 

1051 

.  78.001, 

78.243, 

78.243, 

78.804, 

78.804, 

78.960, 

78.960, 

80.342, 

1052 

80.036, 

79.592, 

79.206, 

79.381, 

79.711, 

80.129, 

80.421, 

80.038, 

1053 

80.299, 

80.342, 

80.221, 

80.221, 

79.538, 

79.081, 

78.589, 

78.201/ 

1054 

data  ( latitude  (i)  , 

i-  7601, 

7680)  / 

1055 

78.683, 

78.409, 

78.104, 

77.926, 

77.676, 

77.18*^ 

77.001, 

77.440, 

1056 

77.916, 

78.400, 

78.668, 

79.095, 

79.551, 

79.959, 

79.502, 

79.010, 

1057 

.  79.477, 

79.549, 

79.538, 

54.286, 

54.619, 

'4.278, 

54.286, 

27.140, 

1058 

.  26.695, 

26.205, 

25.756, 

25.679, 

25.593, 

25.396, 

25.398, 

25.332, 

1059 

.  25.262, 

25.117, 

25.197, 

25.198, 

25.216, 

25.259, 

25.230, 

25.373, 

106C 

.  25.281, 

25.323, 

25.383, 

25.423, 

25.593, 

25.593, 

25.172, 

24.769, 

1061 

24.343, 

24.064, 

24.064, 

23.928, 

23.928, 

23.910, 

23.910, 

23 . 937, 

1062 

.  23.938, 

23.774, 

23.774, 

23.844, 

23.430, 

23.064, 

22.825, 

22.854, 

1063 

.  22.936, 

22.550, 

22.373, 

22.274, 

22.275, 

21.803, 

21.464, 

21.072, 

1064 

.  20.787, 

20.760, 

20.968, 

21.126, 

21.127, 

21.523, 

22.001, 

22.277/ 

1065 

data  (latituda  (i)  , 

i-  7681, 

7760)  / 

1066 

.  21.772, 

21.747, 

21.494, 

21.033, 

20.529, 

20.057, 

19.554, 

19.217, 

1067 

.  19.217, 

18.750, 

18.273, 

17.780, 

17 .295, 

16.798, 

16.303, 

15.854, 

1068 

.  15.428, 

14.945, 

14.518, 

14.244, 

14.244, 

13.754, 

13.261, 

12.771, 

1069 

.  12.313, 

11.921, 

11.469, 

11.016, 

10.543, 

10.070, 

9. 666, 

9.676, 

1070 

9.658, 

9.675, 

9.666, 

9.658, 

9.173, 

8.744, 

8.354, 

8.087, 

1071 

8.288, 

8.656, 

8.655, 

9.082, 

9.247, 

9.199, 

9.435, 

9.887, 

1072 

.  10.152, 

10.152, 

10.261, 

10.752, 

11.255, 

11.753, 

12.214, 

12.662, 

1073 

.  13.156, 

13.593, 

14.088, 

14.562, 

14.562, 

15.054, 

15.531, 

15 . 875, 

1074 

.  15.941, 

16.369, 

16.386, 

16.680, 

17.169, 

17.412, 

17.708, 

18.083, 

1075 

.  18.333, 

18.332, 

18.708, 

19.144, 

19.454, 

19.883, 

19.820, 

20.044/ 

1076 

data  (latitude  (i)  , 

i-  7761, 

7840)  / 

.  20.407, 

20.901, 

21.400, 

21.611, 

21.829, 

22.329, 

22.235, 

22.236, 

10/8 

.  21.744, 

22.062, 

21.566, 

21.918, 

21.918, 

22,229, 

21.729, 

22.133, 

1079 

.  22.471, 

22. 614, 

22.128, 

22.086, 

22.584, 

23.088, 

23.460, 

23.460, 

1080 

.  23.100, 

22.655, 

22.753, 

22.365, 

21.883, 

21.388, 

20.930, 

21.055, 

1081 

.  21.055, 

20.605, 

20.180, 

19.816, 

19.910, 

19.459, 

19.014, 

19.364, 

1082 

.  19.385, 

19.198, 

19.255, 

19,385, 

18.882, 

18.447, 

17.964, 

17.472, 

1083 

.  16.982, 

16.514, 

16.016, 

16.338, 

16.161, 

16.160, 

15.788, 

15.928, 

1084 

.  16.267, 

16.746, 

16.619, 

17.077, 

17.451, 

17.451, 

17.101, 

16.606, 

1085 

.  16.187, 

15.691, 

15.198, 

14.726, 

14.228, 

13.727, 

13.382, 

13.319, 

1086 

.  13.320, 

12.843, 

12.347, 

11.846, 

11.347, 

10.863, 

10.365, 

10.349/ 

1087 

data  ( latitude  (i)  , 

i-  7841, 

7920)  / 

1088 

.  10.349, 

9.878, 

9.402, 

8.911, 

8.412, 

8.225, 

7.868, 

7.454, 

1089 

7.130, 

6.664, 

6.419, 

6.237, 

6.576, 

6.924, 

6.959, 

7.199, 

1090 

7,634, 

7.255, 

7.749, 

8.242, 

8.631, 

9.129, 

9.190, 

9.189, 

1091 

9.189, 

9.653, 

10.156, 

10.639, 

11.109, 

11.577, 

12.024, 

12.521, 

10  92 

.  13.015, 

13.364, 

13.372, 

13.500, 

13.238, 

12.745, 

12.657, 

12.657, 

1093 

.  12.705, 

12.388, 

12.065, 

11.709, 

11.641, 

6.420, 

5.969, 

5.468, 

1094 

4.969, 

4.511, 

4.031, 

3.609, 

3.183, 

2.708, 

2.407, 

2.158, 

1095 

2.039, 

2.039, 

1.737, 

1.499, 

1.435, 

1.886, 

2.348, 

2.717, 

1096 

3.200, 

3.505, 

3,504, 

4.004, 

4.507, 

4.994, 

5.429, 

5.725, 

1097 

6.132, 

6.237, 

11.641, 

11.174, 

11.086, 

10.589, 

10.557, 

10.423/ 

1098 

data  (latitude (i)  , 

i-  7921, 

8000) / 

1099 

10.423, 

10.129, 

9.626, 

9.187, 

9.187, 

8.709, 

8 . 961, 

9.234, 

HOC 

9.412, 

9.412, 

9.870, 

9.565, 

10.058, 

10.088, 

10.482, 

10.481, 

1101 

.  10.489, 

10.576, 

10.807, 

11.060, 

11.314, 

11.715, 

12.215, 

12.714, 

1102 

.  13.079, 

13.078, 

13.575, 

14 . 078, 

14 . 559, 

15 . 037 , 

15.486, 

15 .893, 

1103 

.  16.284, 

16.539, 

16.888, 

17.013. 

17.012. 

17.360, 

I" .740, 

18.219, 

1104 

18.554, 

19 . 0^0, 

19.467, 

19. 94  2, 

20.203, 

20.302, 

^J 

o 

o 

20.724 , 

1105 

20 . 995 , 

21 . 336, 

21.545, 

22.510, 

22.549, 

21 . 545, 

21.607, 

21.642, 

110  6 

21. "44, 

21.452, 

21.453, 

21,015, 

20.527, 

20.257, 

20.756, 

21.251, 

HO" 

21.401, 

21 . 481 , 

21.481, 

21.616, 

21.937, 

21 . 889, 

22 .049, 

22 . 54", 

1108 

22.188, 

22 . 686, 

23.154, 

22.662, 

22.521, 

22 . 520, 

22.511, 

22 .549 

1109 

data  ( latitude (i )  , 

1-  8001, 

8080) / 

1110 

22.449, 

22.450, 

22 . 754 , 

22.686, 

22 . 833, 

23 . 002, 

23.415, 

23.710, 

1111 

.  24.021, 

24.460, 

24.461, 

24.584, 

24.869, 

25.185, 

25.568, 

25.967, 
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1112 

.  26.283, 

26.776, 

26. 626, 

27.110, 

27.451, 

27.924, 

28.110, 

28.109, 

1113 

.  28.233, 

28.591, 

29.088, 

29.523, 

29.978, 

30.305, 

30.123, 

30.195, 

lll-I 

.  30.195, 

30.390, 

30.650, 

30.863, 

31.352, 

31.672, 

31.992, 

31,918, 

1115 

32.274, 

31 . 943, 

32.069, 

31.854, 

31.689, 

32.116, 

32.510, 

32.982, 

1116 

.  33.440, 

33.903, 

34.354, 

34.566, 

40.097, 

39.635, 

39.539, 

39.037, 

1111 

.  38.639, 

38.589, 

38.139, 

37.899, 

37.844, 

37.798, 

37.834, 

38.619, 

1118 

.  38.959, 

39.263, 

39.750, 

40.030, 

40.290, 

40.592, 

40.863, 

41.361, 

1119 

.  41.858, 

42.219, 

42.291, 

37.834, 

37.331, 

36.844, 

36.866, 

36.430/ 

1120 

data  ( latitude (i) , 

i-  8081, 

8160) / 

1121 

.  36.061, 

36.058, 

35.652, 

35.157, 

34.674, 

34.684, 

34.776, 

34 . 949, 

1122 

.  35.117, 

35.116, 

35.117, 

35.455, 

35.934, 

36.429, 

36.932, 

37.410, 

1123 

.  37.840, 

38.272, 

38.619, 

42.289, 

42.596, 

43.037, 

43.219, 

42.853, 

1124 

.  42.757, 

42.935, 

43.231, 

43.503, 

43.947, 

44.364, 

44.742, 

45.120, 

1125 

45.491, 

45.877, 

46.303, 

46.764, 

47.198, 

47 . 630, 

48.035, 

48.415, 

1126 

.  48.566, 

48.567, 

49.056, 

49.543, 

50.041, 

50.527, 

51.010, 

51.493, 

1127 

.  51.907, 

52.392, 

52.893, 

53.254, 

53.254, 

53.569, 

53.984, 

54.227, 

1128 

54.296, 

53.792, 

53.577, 

54.014, 

53.798, 

54.297, 

54.599, 

54.739, 

1129 

.  55.151, 

55.524, 

55.811, 

56.156, 

56.600, 

56.996, 

57.318, 

57.703, 

1130 

.  58.097, 

58.485, 

58.865, 

59.229, 

59.341, 

59.375, 

59.410, 

59.456/ 

1131 

data  (latitud* (i) , 

i-  8161, 

8240) / 

1132 

.  59.285, 

59.396, 

59.688, 

59.652, 

59.582, 

59.271, 

58.903, 

59.011, 

1133 

.  59.092, 

59.259, 

59.267, 

59.137, 

59.534, 

59.990, 

60.408, 

60.718, 

1134 

61.167, 

61.589, 

61.773, 

61.903, 

61.847, 

61.344, 

60.866, 

61.054, 

1135 

61.429, 

61.714, 

62.198, 

62.609, 

62 .567, 

62.450, 

62.452, 

62.463, 

1136 

62.010, 

61.524, 

61.042, 

60.678, 

60.423, 

59.988, 

59.599, 

59.244, 

1137 

.  58.804, 

58.408, 

58.072, 

57.817, 

57 .402, 

56.975, 

56.575, 

56.084, 

1138 

.  55.584, 

55.079, 

54.582, 

54.091, 

53.596, 

53.098, 

52.603, 

52.118, 

1139 

51.618, 

51.132, 

51.352, 

51,717, 

52.154, 

52.652, 

52.651, 

53.044, 

1140 

.  53.240, 

53.740, 

54.215, 

54.538, 

54.516, 

54.971, 

55.441, 

55.921, 

1141 

.  56.328, 

56.641, 

57.095, 

57.569, 

57.802, 

58.288, 

58.733, 

59.162/ 

1142 

data  ( latitude (i) , 

i-  8241, 

8320)  / 

1143 

.  59.629, 

59.824, 

59.824, 

59.987, 

60.132, 

60.433, 

59.932, 

60.245, 

1144 

.  60.537, 

60.567, 

60.381, 

59.941, 

60.394, 

60.714, 

61.066, 

61.458, 

1145 

.  61.701, 

61.884, 

62.174, 

62.434, 

62.863, 

62.866, 

62.561, 

62.371, 

1146 

.  62.741, 

63.222, 

63.519, 

64.023, 

64.372, 

64.663. 

64.746, 

64.845, 

1147 

.  64.704, 

64.704, 

65.030, 

65.072, 

65.505, 

65.973, 

66.410, 

65.927, 

1148 

.  65.478, 

65.599, 

65.437, 

64.948, 

64.733, 

64.386, 

64.619, 

64.616, 

1149 

.  64.425, 

64.846, 

65.267, 

65.514, 

65.898, 

66.399, 

66.781, 

67.001, 

1150 

.  67.086, 

66.603, 

67.030, 

67.517, 

67.895, 

68.184, 

68.522, 

68.821, 

1151 

.  68.982, 

69.296, 

69.538, 

69.771, 

69.852, 

69.839, 

69.842, 

69.971, 

1152 

.  70.094, 

69.666, 

69.240, 

68.749, 

69.011, 

69.285, 

69.768, 

69.522/ 

1153 

data  (latitude (i) , 

i-  8321, 

8400)  / 

1154 

.  69.597, 

69.691, 

69.646, 

69.241, 

68.743, 

69.236, 

69,678, 

70.133, 

1155 

.  70.627, 

'  0  .  . 

7’  005 

■”'  ,  9o  ' 

915, 

70.789, 

70.98'?, 

70.987, 

1156 

.  71.394, 

77.669, 

72.173, 

72.329, 

72.026, 

71.677, 

72.171, 

72.269, 

1157 

.  72.345, 

72.636, 

72.702, 

72.863, 

72.475, 

71.983, 

71.490, 

71.548, 

1158 

.  71.472, 

71.513, 

71.515, 

71.505, 

71.507, 

71.289, 

70.817, 

71.080, 

1159 

.  71.506, 

72.008, 

72.309, 

71.832, 

72.279, 

72.542, 

72.726, 

72 . 920, 

1160 

.  72.999, 

73.181, 

73.581, 

73.695, 

73.580, 

73.091, 

72.607, 

72.595, 

1161 

.  72.595, 

73.071, 

73.569, 

73.765, 

74.015, 

73.508, 

73.307, 

73.144, 

1162 

72.802, 

73.281, 

73.622, 

73 . 948, 

74.345, 

74 . 680, 

74 . 996, 

75.459, 

1163 

.  75.836, 

76.328, 

76.700, 

76.734, 

76.518, 

77.018, 

77.084, 

77.551/ 

1164 

data  (latitude  (i)  , 

i-  8401, 

8480) / 

1165 

.  ■'7.630, 

77.291, 

76.840, 

76.419, 

76.479, 

75.975, 

75.474, 

75.166, 

1166 

.  75.170, 

75.592, 

76.078, 

16.057, 

75.861, 

76.115. 

75.758, 

75.608. 

1167 

.  75,350, 

75.151, 

’4 . 645, 

74 . 146, 

'3 . 670, 

73.383, 

’2.994, 

’2 . 991 . 

1168 

’3,406, 

73.778, 

73.699, 

73.658, 

’3.641. 

73 . 339, 

72  .  859. 

’2 .364 , 

1169 

.  72,040, 

71.691, 

71.203, 

70.720, 

70.254, 

70.086. 

70.086, 

’0.589, 

1170 

71.007, 

71 . 433, 

71.702, 

12.104, 

’2.381, 

72.210, 

’1 . 979, 

71  .  4  92, 

ll'l 

,  71.275, 

71 . 070, 

71 . 070, 

71.302 , 

'1.795. 

72.269. 

72.765, 

’2.224, 

11''2 

,  ■’1,909, 

71.482. 

71.022, 

70.556, 

70.092. 

6  9.593, 

69.091, 

69. 189, 

ll^O 

69.136, 

68.796, 

68.314, 

67.871, 

67 . 601, 

67.567, 

67.567, 

67.555, 

1174 

.  68.020, 

68.523, 

68.956, 

68.867, 

68.466, 

67.980, 

67.513, 

67 . 039 

1175 

data  (latitude (i) , 

i-  8481, 

8560)  1 
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1176 

.  66.682, 

66.281, 

66.367, 

66.474, 

66.870, 

66.870, 

66.520, 

66.973, 

1177 

.  67.312, 

67.724, 

68.228. 

68.729, 

69.176, 

69.680, 

70.184, 

70.687, 

1178 

.  71.181, 

71.676, 

72.158. 

72.662, 

72 . 909, 

72.908, 

72.888, 

72.476, 

1179 

.  71.986, 

71.521, 

71.177, 

70.705, 

70.205, 

69.714, 

69.509, 

69.020, 

1180 

.  68.538, 

68.312, 

68.312, 

68.609, 

68 . 935, 

69.206, 

69.533, 

69.717, 

1181 

.  69.794, 

69.478, 

69.035, 

68.707, 

68.974, 

68.696, 

68.582, 

68.581, 

1182 

68.486, 

68.219, 

68.721, 

68.665, 

68.396, 

68.142, 

67.855, 

67.618, 

1183 

.  67.118, 

66.823, 

66.824, 

66.825, 

67.239, 

67.739, 

67.813, 

68.273, 

1184 

.  68.578, 

68. 632, 

68.168, 

67.666, 

67.177, 

66.728, 

66.242, 

66.411, 

1185 

66.234, 

66.167, 

66.167, 

65.902, 

65.543, 

65.065, 

64.588, 

64.627/ 

1186 

data  ( latituda (i) , 

i-  8561, 

8640) / 

1187 

.  64.718, 

65.124, 

64.831, 

64.409, 

64 . 106, 

63.924, 

63.924, 

63.967, 

1188 

.  64.346, 

64.684, 

65.174, 

65.680, 

66.160, 

66.480, 

66.872, 

67.151, 

1189 

.  67.150, 

66.912, 

66.725, 

66.461, 

66.297, 

66.129, 

66. 078, 

66.266, 

1190 

.  66.641, 

67.101, 

67.586, 

67.958, 

68.059, 

68.059, 

68.369, 

68.731, 

1191 

.  69.035, 

69.271, 

69.309, 

69.457, 

69.947, 

69.790, 

60.561, 

60.337, 

1192 

.  60.189, 

59.847, 

59.763, 

59.445, 

59.577, 

59.490, 

59. 490, 

59.473, 

1193 

.  59.219, 

58.730, 

58.247, 

57.753, 

57.737, 

57.743, 

57.243, 

56.973, 

1194 

.  57.377, 

57.700, 

57.429, 

56.954, 

56.467, 

55.965, 

55.473, 

54.971, 

1195 

.  55.467, 

55.042, 

54.741, 

54.462, 

40.729, 

40.891, 

40.901, 

38.289, 

1196 

.  38.122, 

37.955, 

37.451, 

37.123, 

37.151, 

40.731, 

40.228, 

39.879/ 

1197 

data  ( latitude  (i)  , 

i-  8641, 

8720)  / 

1198 

39,386, 

38.934, 

38.943, 

39.324, 

39.594, 

39.823, 

39.833, 

40.096, 

1199 

.  38.289, 

38.764, 

39.199, 

39.155, 

39.329, 

39.782, 

40.052, 

40.327, 

1200 

.  40.699, 

40 . 901, 

34.566, 

34.943, 

35.363, 

35.753, 

36.212, 

36.433, 

1201 

.  36.697, 

36,898, 

36.922, 

37.395, 

37.544, 

37.483, 

37.771, 

37.683, 

1202 

.  37.340, 

37.151, 

45.212, 

45.714, 

45.317, 

45.580, 

45.817, 

45.917, 

1203 

.  46.206, 

46.607, 

46.625, 

46.625, 

46.7.20, 

47.209, 

46.731, 

46.237, 

1204 

.  46.129, 

46.041, 

45.683, 

45.194, 

44.760, 

44.395, 

44.743, 

44 . 908, 

1205 

,  44.991, 

45.284, 

45.385, 

45.592, 

46.055, 

46.499, 

46.256, 

46.256, 

1206 

.  46.611, 

46.750, 

46.924, 

47.097, 

47.238, 

47.116, 

46.  861, 

46.622, 

1207 

.  46.671, 

46.671, 

46.300, 

45.814, 

45.433, 

45.424, 

44.982, 

44.637/ 

1208 

data  (latitud*  (i)  , 

i-  8721, 

8800)  / 

1209 

44.368, 

44.155, 

43.797, 

43.431, 

43.318, 

43.318, 

43.074, 

42.760, 

1210 

.  42.298, 

41,809, 

41.388, 

41.173, 

40.940, 

40.976, 

24.073, 

24.073, 

1211 

.  21.942, 

21.942, 

21.867, 

21.866, 

21.886, 

21.886, 

21.595, 

21.594, 

1212 

.  -0.603, 

-0,603, 

-0.656, 

-0.656, 

-0.682, 

-0.682, 

-0.671, 

-0.671, 

1213 

.  -0.626, 

-0.626, 

-0.589, 

-0.589, 

-0.284, 

-0.284, 

0.496, 

0.496, 

1214 

0.403, 

0.403, 

0.305, 

0.305, 

0.270, 

0.270, 

0.228, 

0.228, 

1215 

0.240, 

0.240, 

0.285, 

0,285, 

0.388, 

0.388, 

0.508, 

0.508, 

1216 

0.848, 

0.848, 

0.801, 

0.801, 

0.843, 

0.843, 

2.033, 

2.033, 

1217 

1.991, 

1.991, 

1.893, 

1.893, 

1.830, 

1.830, 

1.791, 

1.791, 

1218 

1.806, 

1.806, 

1.843, 

1.843, 

1.933, 

1.933, 

1.97  6, 

1.976/ 

1219 

data  (latitud* (i) , 

i-  8801, 

8880)  / 

1220 

2.027, 

2.027, 

2.082, 

2.082, 

2.110, 

2.110, 

2.327, 

2.327, 

1221 

2.293, 

2.293, 

2.187, 

2.187, 

2.200, 

2.200, 

2.348, 

2.348, 

1222 

2.437, 

2.437, 

2.506, 

2.506, 

2.694, 

2.694, 

2.682, 

2.692, 

1223 

2.742, 

2.742, 

2.953, 

2.953, 

2.778, 

2.778, 

2.904, 

2.904, 

1224 

2.893, 

2.893, 

2 . 916, 

2.916, 

2.955, 

2.955, 

2.962, 

2.962, 

1225 

3.110, 

3.110, 

3.374, 

3,374, 

3.451, 

3.451, 

3.552, 

3.552, 

1226 

3.511, 

3.511, 

3 . 517, 

3.517, 

3.727, 

3.727, 

4.003, 

4 .003, 

122" 

4.266, 

4.266, 

3.945, 

3.945, 

3.847, 

3.847, 

3.942, 

3 . 942, 

1220 

3.973, 

3.973, 

4.104, 

4.104, 

4.173, 

4.173, 

4.178, 

4.178, 

1229 

4.191, 

4.191, 

4.342, 

4 . 342, 

4.371, 

4 . 371, 

4 .435. 

4 .435/ 

1230 

data  (latit 

ude (i) , 

i«  8881, 

8960)  ' 

1231 

4.453, 

4.453, 

4.474, 

4.474. 

>3 , 630. 

4.630, 

4.896, 

4 .896, 

1232 

4.971, 

4 . 9"1 , 

5.133, 

5.133, 

5 . 173 , 

5.173, 

5  .  C  ®  ? 

5.299, 

1233 

5.454, 

5.454, 

5.368. 

5 . 368, 

5.362. 

5 .362 , 

5.308. 

5 . 308 , 

1234 

5.283, 

5 . 283 , 

5.419, 

5.419. 

5 . 991 . 

5.981, 

5. 969. 

5 .  S»b?, 

1235 

5,864, 

5.864, 

5.814, 

5 . 814 , 

. 

5.771, 

5.730, 

5  .  "*  ?  . 

1236 

5.041, 

5.841, 

5.911. 

5.911, 

5.070. 

5.9""', 

6.157, 

6.15', 

1237 

6.189, 

6.189, 

6.240. 

6.240, 

6.287, 

6.287, 

6.330, 

6.330, 

12 

6.327, 

6.327, 

6.351, 

6.351. 

6.442, 

6.442, 

6.412, 

6.412, 

12  3  9 

6.622, 

6. 622, 

6 . 668, 

6.668, 

6.710, 

6.710, 

6.774, 

6.774, 
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1240 

6.831, 

6.831, 

6.919, 

6.919, 

6.971, 

6.971, 

6.963, 

6.963/ 

1241 

data  (latitude  (i)  ,  i 

-  8961, 

9040)  / 

1242 

7.028, 

7.028, 

7.093, 

7.093, 

3.292, 

3.292, 

11.694, 

11.694, 

1243 

.  11.595, 

11.595, 

11.212, 

11.212, 

11.502, 

11.502, 

11.246, 

11.246, 

1244 

.  11.119, 

11.119, 

10.779, 

10.779, 

10.567, 

10,567, 

10.830, 

10.830, 

1245 

.  10.145, 

10.145, 

10.085, 

10.085, 

8.303, 

8.303, 

10.057, 

10.057, 

1246 

.  10.137, 

10.137, 

10.949, 

10.949, 

10.864, 

10.864, 

-7.436, 

-7.436, 

1247 

.  -6.653, 

-6.653, 

-6.389, 

-6.389, 

-6.229, 

-6.229, 

-6.196, 

-6.196, 

1248 

.  -6.123, 

-6.123, 

-6.168, 

-6.168, 

-5.328, 

-5,328, 

-5.360, 

-5.360, 

1249 

.  -5.235, 

-5.235, 

-5.251, 

-5.251, 

-5.237, 

-5.237, 

-5.285, 

-5.285, 

1250 

.  -5.440, 

-5.440, 

-5.408, 

-5.408, 

7.600, 

7.098, 

6.604, 

6.126, 

1251 

5.936, 

6.102, 

6.324, 

6.717, 

7.213, 

7.677, 

8.104, 

8.252/ 

1252 

data  (latitude  (i)  ,  i 

-  9041, 

9120)  / 

1253 

8.251, 

8.705, 

9.111, 

9.499, 

9.821, 

9.482, 

9.594, 

9.094, 

1254 

8.614, 

8.122, 

7.622, 

7.601, 

7.683, 

7.679, 

9.102, 

9.102, 

1255 

9.535, 

9.535, 

9.760, 

9.760, 

21.885, 

21.884, 

12.895, 

12.897, 

1256 

.  12.307, 

12.307, 

12.179, 

12.069, 

21.995, 

21.995, 

22.044, 

22.044, 

1257 

.  22.037, 

22.037, 

21.963, 

21.963, 

22.158, 

22.158, 

22.775, 

22.302, 

1258 

.  22.727, 

22.775, 

22.446, 

22.446, 

22.877, 

22.877, 

23.034, 

23.034, 

1259 

.  23.058 

23.058, 

22.606, 

22.606, 

22.449, 

22.449, 

22.516, 

22.516, 

1260 

.  22.355, 

22.355, 

22.251, 

22.251, 

22.197, 

22.197, 

21.913, 

21.911, 

1261 

.  21.755, 

21.755, 

23.506, 

23.506, 

20.084, 

20.081, 

19.951, 

19.951, 

1262 

.  19.560, 

19.560, 

18.890, 

18.885, 

14.139, 

14.134, 

14.902, 

14.900/ 

1263 

data  (latitude (i) , i 

-  9121, 

9200) / 

1264 

.  16.231, 

16.228, 

15.933, 

15.924, 

7.605, 

7.605, 

9.411, 

9.411, 

1265 

9.471, 

9.471, 

16.507, 

16.506, 

15.565, 

15.561, 

14.179, 

14.180, 

1266 

.  13.939, 

13.934, 

13.859, 

13.859, 

13.444, 

13.444, 

12.974, 

12.975, 

1267 

.  12.773, 

12.774, 

12.361, 

12.368, 

12.502, 

12.506, 

12.417, 

12.423, 

1268 

.  12.371, 

12.375, 

12.289, 

12.294, 

12.169. 

12.174, 

12.544, 

12.548, 

1269 

.  11.844, 

11.846, 

11.780, 

11.782, 

11.655, 

11.661, 

11,893, 

11.904, 

1270 

.  11.608, 

11.611, 

11.928, 

11.930, 

11.858, 

11.864, 

11.453, 

11.461, 

1271 

.  11.224, 

11.229, 

11.006, 

11.006, 

10.831, 

10.833, 

10,976, 

10.978, 

1272 

.  10.880, 

10.881, 

10.441, 

10.436, 

10.521, 

10.520, 

10.163, 

10.163, 

1273 

9.803, 

9.797, 

10.007, 

10.007, 

10.727 

10.725, 

13.664, 

13.662/ 

1274 

data  (latitude (i) . i 

-  9201, 

9280)  / 

1275 

.  13.532, 

13.034, 

12.532, 

12.081, 

11.579, 

12.069, 

12.568, 

13.063, 

1276 

.  13.544, 

13.533, 

12.960, 

12.951, 

12.144, 

12.145, 

12.015, 

12.015, 

1277 

.  12.271, 

12.269, 

11.580, 

11.576, 

11.468, 

11.468, 

10,786, 

10.777, 

1278 

9.239, 

9.239, 

8.323, 

8.324, 

8.545, 

8.542, 

8.214, 

8.209, 

1279 

8.007, 

7.999, 

8.014, 

8.012, 

7.418, 

7.413, 

7.414, 

7.410, 

1280 

7.190, 

7.182, 

13.174, 

13.175, 

9.762, 

9.756, 

9.081, 

9.072, 

1281 

.  12.948, 

12.948, 

8,170, 

8.170, 

8.108, 

8.100, 

8.166, 

8.162, 

1282 

7.266, 

7.261, 

6.571, 

6.571, 

7.174, 

7.168, 

9.550, 

9.544, 

1283 

9.7  93, 

9.788, 

9.542, 

9.542, 

9.623, 

9.620, 

6.709, 

6.703, 

1284 

.  12.298, 

12.297, 

12.140, 

12.142, 

11.753, 

11.754, 

6.260, 

6.259/ 

1285 

data  (latitude  (i)  ,  i 

-  9281, 

9360) / 

1286 

6.464, 

6.464, 

5.449, 

5.446, 

2.871, 

2.868, 

1.388, 

1.382, 

1287 

.  11.406, 

11.403, 

10.442, 

10.439, 

8.766, 

8.765, 

9.92  6, 

9.926, 

1288 

.  10.659, 

10.662, 

10.553, 

10.552, 

7.872, 

7.872, 

9.708, 

9.708, 

1289 

9.419, 

9.419, 

20.871, 

20.873, 

20.834, 

20.836, 

20.844, 

20.840, 

1290 

.  21.034, 

21.032, 

20.958, 

20.956, 

20.136, 

20.139, 

21.036, 

21.037, 

1291 

.  21.016, 

21.017, 

21.113, 

21.118, 

21.273. 

21.271, 

21.354, 

21.358, 

1292 

.  21.384, 

21.386, 

15.790, 

15.790, 

16.051, 

16.051, 

16.666, 

16.666, 

1293 

16.839, 

16.839, 

16.936, 

16.936, 

16.983, 

16.983, 

16.982, 

16.982, 

1294 

16.463, 

16.463. 

16.544  , 

16.544. 

16.447, 

16.447 , 

20.720, 

20.720, 

1295 

21.054, 

21 . 055, 

19.977, 

19.966, 

20.106. 

19.749, 

19.351, 

18 . 883, 

129G 

data  f latitude ( i ), i 

=  9361, 

9440)  / 

1297 

18.533, 

18 . 199, 

18.288, 

18.496, 

18 . 994 , 

19.451, 

19.717, 

19.983 , 

1298 

.  21.056, 

21.058, 

21 .196, 

21 . 199, 

24 . 434 . 

24 .439, 

25.425, 

25 .426, 

1299 

29.079, 

29.086, 

29.681, 

29. 686, 

30 . 063 , 

30.067, 

31.799, 

31 .580, 

1300 

31.782, 

31.801, 

37 . 978, 

37 . 979, 

37.811, 

37.804 , 

34.499, 

34,492, 

1301 

33.542, 

33.226, 

33.544, 

33.536, 

34 . 915, 

34 . 902, 

34 . 950, 

34 . 943, 

1302 

.  37.528, 

37.518, 

25.119, 

25.120, 

24 . 618, 

24.141, 

23.651, 

23.162, 

1303 

22.728, 

22.286, 

22.487, 

22.954. 

23.453, 

23.931, 

24.373, 

24.778, 
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1304 

.  25.122, 

22.045, 

22.045, 

23.534, 

23.536, 

24.420, 

24.419, 

32.454, 

1305 

.  32.867, 

33.246, 

33.609, 

33.933, 

33.574, 

33.354, 

32.883, 

32.837, 

1306 

.  32.694, 

34.085, 

33.620, 

33.501, 

33.285, 

32.845, 

33.106, 

33.605/ 

1307 

data  (latitude (i) , 

i-  9441, 

9520)  / 

1308 

.  34.016, 

33.977, 

34.326, 

34.200, 

34,065, 

41.439, 

40.976, 

40.499, 

1309 

.  40.038, 

39.556, 

39.089, 

38.668, 

38.280, 

37.784, 

37.287, 

36.821, 

1310 

.  36.339, 

35.851, 

35.436, 

35.037, 

35.538, 

35.183, 

35.007, 

34.953, 

1311 

.  34.646, 

34.646, 

34.854, 

34.355, 

34.170, 

33.724, 

33.538, 

33.942, 

1312 

.  34.415, 

34.716, 

34.728, 

34.513, 

34.276, 

34.241, 

33.842, 

34.034, 

1313 

.  34.004, 

34.406, 

34.704, 

35.040, 

35.438, 

35.563, 

35.493, 

35.628, 

1314 

.  35.724, 

35.535, 

35.973, 

36.356, 

36.770, 

21 .212, 

37.521, 

37.141, 

1315 

.  36.750, 

37.024, 

37.249, 

37.637, 

37.991, 

38.449, 

38.888, 

39.366, 

1316 

.  39.868, 

40.371, 

40.824, 

40.983, 

41.485, 

41.434, 

45.513, 

45.125, 

1317 

.  44.710, 

44.378, 

44.095, 

43.923, 

44.188, 

43.687, 

43.252, 

42.979/ 

1318 

data  (latitude  (i)  , 

i-  9521, 

9600) / 

1319 

.  42.969, 

42.663, 

42.221, 

42.194, 

42.461, 

42.559, 

42.565, 

42.068, 

1320 

.  41.649, 

42.069, 

42.542, 

42.869, 

43.367, 

43.158, 

43.621, 

44.076, 

1321 

.  44.574, 

45.067, 

45.506, 

43.587, 

43.587, 

34.688, 

34.686, 

34.237, 

1322 

.  34.230, 

33.830, 

33.824, 

33.311, 

33.307, 

33.077, 

33.069, 

34.538, 

1323 

.  34.530, 

34.779, 

34.777, 

33.144, 

33.141, 

34.096, 

34.086, 

45.243, 

1324 

.  45.246, 

45.451, 

45.449, 

42.211, 

42.214, 

38.287, 

37.811, 

28.200, 

1325 

.  38.281, 

36.328, 

36.318, 

32.694, 

32.219, 

31.749, 

31.249, 

31.642, 

1326 

.  31.161, 

31.384, 

31.868, 

32.351, 

32.458, 

32.349, 

32.356, 

32.693, 

1327 

.  32.697, 

30.828, 

30.355, 

30.838, 

30.823, 

30.445, 

30.443, 

29.993, 

1328 

.  29.992, 

29.874, 

29.872, 

29.653, 

29.653, 

28.356, 

28.356, 

28.500/ 

1329 

data  (latitude  (i)  , 

i-  9601, 

9680)  / 

1330 

.  28.223, 

28.509, 

28.498, 

28.191, 

28.191, 

27.899, 

27.901, 

27.415, 

1331 

.  27.417, 

26.859, 

26.456, 

26.876, 

26.855, 

26.386, 

26.386, 

25.869, 

1332 

.  25.870, 

24.866, 

24.859, 

24.438, 

24.439, 

24.411, 

24.405, 

24.469, 

1333 

.  24.470, 

24.483, 

24.483, 

30.480, 

30.480, 

27.733, 

27.733, 

27.621, 

1334 

.  27.621, 

27.174, 

27.174, 

27.079, 

27.079, 

26.712, 

26.712, 

24.789, 

1335 

.  24.789, 

25.446, 

25.446, 

20.024, 

20.024, 

27.236, 

27.236, 

44.509, 

1336 

.  44.052, 

44.507, 

43.536, 

43.535, 

43.866, 

43.861, 

53.153, 

52.650, 

1337 

.  52.154, 

51.658, 

51.215, 

50.719, 

50.217, 

49.716, 

49.214, 

48.736, 

1338 

.  48.272, 

47.774, 

47.276, 

46.776, 

46.274, 

46.608, 

46.588, 

46.119, 

1339 

,  46.616, 

47.008, 

47.459, 

47 . 944, 

48.432, 

48.910, 

49.304, 

49.156/ 

1340 

data  ( latitude  (i)  , 

i-  9681, 

9760) / 

1341 

.  48.753, 

49.204, 

49.690, 

50.169, 

50.656, 

51.152, 

51.641, 

52.117, 

1342 

.  52.604, 

52.803, 

48.291, 

48.291, 

46.211, 

46.243, 

52.803, 

53.301, 

1343 

.  53.768, 

54.268, 

53.782, 

53.461, 

53.153, 

54.903, 

54.907, 

54.774, 

1344 

.  54.939, 

54.782, 

54.776, 

59,018, 

59.023, 

59.317, 

59.318, 

45.514, 

1345 

.  45.199, 

44 . 961, 

44.550, 

45.012, 

45.416, 

45.503, 

45.514, 

45.603, 

1346 

.  45.866, 

45.603, 

47.127, 

47.125, 

47.306, 

47.303, 

47.721, 

47.723, 

1347 

48.049, 

48.051, 

48.735, 

48.736, 

49.168, 

49.169, 

49.291, 

49.296, 

1348 

49.767, 

49.767, 

50.879, 

50.884, 

50.054, 

50.299, 

50.094, 

50.052, 

1349 

.  50.629, 

50.627, 

55.327, 

54,829, 

55.326, 

54.863, 

54.510, 

54.865, 

1350 

.  54.865, 

58.559, 

58.809, 

58.562, 

58.561, 

70.799, 

70.997, 

71.002/ 

1351 

data  (lat 

itude (i) , 

i-  9761, 

9840)  / 

1352 

.  71.501, 

71.556, 

71,536, 

71.191, 

70.799, 

69.768, 

69.978, 

69.567, 

1353 

.  69.763, 

70. 658, 

70.659, 

70.737, 

70.746, 

70.821, 

70.819, 

71.509, 

1354 

71.506, 

74.248, 

74.246, 

73.892, 

73.901, 

73.875, 

73.455, 

73.290, 

1355 

73.436, 

73 . 848, 

73.878, 

75.586, 

75.090, 

74.786, 

74.855, 

75.238, 

1356 

.  75.336, 

75.589, 

76.634, 

76.637, 

74.807, 

74 . 965, 

74 . 922, 

75.297, 

1357 

75.027, 

75.462, 

75.861, 

76.082, 

75.622, 

75.997, 

75.967, 

75.468, 

1358 

74 . ?«1 , 

74  €60. 

74 . 825, 

75 . 374 , 

75.37  0^ 

72.429, 

72.235, 

72 . 503 , 

135  3 

72.42?, 

12  €29, 

72  632 , 

72. 651, 

12 .€€1 . 

72 . 659, 

72 . €53 , 

72 .871 , 

1360 

72  .  ROT  . 

12  401  , 

72.743, 

7'^ 

1? . 431 , 

7  0=^^^ 

■^2 

72 .402 , 

1361 

.  72.971, 

12  119, 

72.471, 

72.887, 

73 . 395, 

73 . 676, 

73 . 55B, 

73.055/ 

13  62 

data  (lat 

itude (i) , 

i=  9841. 

9920)  I 

1  3  63 

72.P73, 

73.838, 

73.838, 

7-*  mo 

73 , 04 1 , 

14.29€. 

14 . 296, 

7  4  .  0  93 , 

1364 

74.094, 

76 . 368, 

76.370, 

76.605, 

76.609, 

77.231, 

77 . 231 , 

77 . 38^ , 

1365 

77.390, 

78 . 127, 

78.127, 

78.214, 

78.214, 

77.954, 

78.190, 

78 . 303, 

1366 

.  78.751, 

79.149, 

79.075, 

78.589, 

78.116, 

77 . 955, 

79.249, 

79.743, 

1367 

80.098, 

80.101, 

79.651, 

79.174, 

78.929, 

78.832, 

79.247, 

81.290, 
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1368 

.  80.978, 

80.495, 

80.029, 

80.213, 

80.662, 

81.132, 

81.290, 

81.206, 

1369 

.  81.209, 

80.954, 

80.955, 

79.544, 

79.544, 

80.044, 

79.834, 

80.062, 

1370 

.  80.044, 

77.164, 

77.199, 

77.202, 

77.199, 

76.717, 

76.717, 

76.263, 

1371 

.  76.263, 

76.706, 

76.706, 

75.993, 

75.993, 

75.928, 

75.928, 

75.500, 

1372 

.  75.496, 

75.138, 

75.138, 

74.989, 

74.986, 

74.810, 

74.813, 

74.506/ 

1373 

data  (latitude (i) , 

i-  9921,10000)/ 

1374 

.  74.506, 

74.543, 

74.541, 

74 .500, 

74.503, 

74.025, 

74.026, 

74.079, 

1375 

.  74.084, 

74.159, 

74.159, 

74.606, 

74.605, 

72.893, 

72.902, 

72.329, 

1376 

.  72.344, 

73.172, 

73.182, 

73.527, 

73.528, 

73.410, 

73.420, 

73.026, 

1377 

.  73.033, 

73.038, 

73.492, 

73.015, 

73.051, 

69.892, 

70.394, 

70.095, 

1378 

.  69.902, 

69.181, 

69.196, 

69.083, 

69.509, 

69.241, 

68.815, 

69.050, 

1379 

.  69.089, 

70.977, 

70.987, 

71.781, 

72.153, 

72.645, 

73.136, 

73.386, 

1380 

.  73.238, 

72.802, 

72.301, 

71.924, 

71.925, 

71.462, 

71.023, 

70.573, 

1381 

.  70.683, 

70.752, 

71.203, 

71.576, 

71.805, 

74.687, 

74.432, 

73.960, 

1382 

.  73.474, 

73.304, 

73.584, 

74.086, 

74.482, 

74.574, 

74.574, 

74.720, 

1383 

.  75.161, 

75.483, 

75.719, 

75.947, 

76.234, 

76.670, 

76.951, 

76.532/ 

1384 

data  (latitude (i) , 

i-10001, 10080)/ 

1385 

.  76.530, 

76.310, 

76.260, 

76.060, 

75.726, 

75.385 

74.999, 

74.689, 

1386 

.  80.007, 

80.007, 

80.107, 

80.111, 

80.122, 

80.127, 

80.209, 

80.219, 

1387 

.  80.089, 

80.520, 

80.075, 

80.098, 

80.629, 

80.808, 

80.592, 

80.627, 

1388 

.  80.541, 

80.887, 

80.454, 

80.541, 

80.839, 

81.166, 

80.718, 

80.844, 

1389 

.  81.004, 

81.007, 

81.103, 

81.103, 

80.827, 

80.827, 

81.023, 

80.851, 

1390 

81.024, 

80.719, 

80.723, 

81.216, 

81.219, 

81.473, 

81.473, 

81.730, 

1391 

.  81.730, 

81.608, 

81.608, 

81.686, 

81.691, 

66.791, 

66.790, 

65.189, 

1392 

.  65.181, 

59.043, 

59.042, 

59.084, 

59.082, 

58.675, 

58.670, 

58.150, 

1393 

.  58.143, 

58.597, 

58.220, 

58.590, 

46.244, 

46.211, 

46.366, 

46.146, 

1394 

.  46.348, 

46.366, 

45.073, 

45.073, 

39.593, 

39.593, 

39.092, 

39.092/ 

1395 

data  (latitude (i) , 

i-10081, 10160) / 

1396 

.  45.044, 

45.044, 

45.579, 

45.579, 

39.328, 

38.942, 

38.440, 

37.939, 

1397 

.  37.532, 

37.476, 

37.111, 

36.830, 

36.660, 

36.601, 

36.728, 

36.861, 

1398 

.  36.913, 

37.415, 

37.915, 

38.419, 

38.909, 

39.005, 

33.316, 

33.311, 

1399 

.  13.262, 

12.956, 

12.579, 

12.791, 

13.192, 

13.262, 

51.508, 

51.035, 

1400 

.  50.554, 

51.045, 

51.515, 

55.724, 

55.255, 

54.760, 

54.268, 

53.799, 

1401 

.  53.326, 

52.981, 

52.705, 

52.440, 

52.111, 

51.705, 

51.546, 

51.511, 

1402 

.  51.868, 

52.089, 

52.505, 

52.817, 

53.247, 

53.632, 

53.996, 

54.462, 

1403 

,  54.912, 

55.391, 

55.746, 

46.429, 

46.774, 

46.727, 

46.798, 

46.594, 

1404 

.  46.633, 

46.473, 

46.792, 

46.378, 

46.379, 

46.458, 

46.575, 

46.465, 

1405 

.  46.328, 

46.016, 

45.533, 

45.028, 

45.438, 

45.942, 

46.368, 

46.429/ 

1406 

data  (latitude (i) / 

i-10161, 10240) / 

1407 

.  44.736, 

45.158, 

45.481, 

45.953, 

46.397, 

46.765, 

46.679, 

62.861, 

1408 

62.586, 

62.089, 

61.631, 

61.144, 

61.049, 

61.530, 

61.886, 

62.384, 

1409 

,  62.094, 

62.572, 

62.877, 

62.862, 

58.952, 

58.555, 

58.091, 

58.441, 

1410 

.  58.867, 

58.571, 

59.062, 

58.938, 

61.731, 

61.394, 

61.092, 

60 . 627, 

1411 

.  60.171, 

60.058, 

60.432, 

60.894, 

61.384, 

61.729, 

60.592, 

60.592, 

1412 

69.287, 

69.286, 

46.680, 

46.195, 

46.080, 

46.220, 

46.165, 

45.811, 

1413 

.  45.379, 

45.725, 

46.036, 

46.220, 

39.328, 

39.827, 

40.264, 

40.222, 

1414 

.  40.586, 

40.866, 

41.321, 

41.738, 

42.116, 

42.534, 

42.958, 

43.458, 

1415 

.  43.952, 

44.366, 

44.747, 

44.747, 

45.163, 

45.633, 

45.767, 

46.057, 

1416 

.  46.469, 

46.614, 

46.882, 

47.113, 

46.884, 

46.949, 

46.658, 

46.155/ 

lai"' 

data  (latitude (i), 

i-10241, 10320) / 

1418 

.  46.031, 

46.033, 

45.592, 

45.380, 

45.318, 

44 . 906, 

44.571, 

44.634, 

1419 

44.130, 

43.661, 

43.169, 

42.901, 

42.812, 

42.312, 

41.814, 

41.367, 

1420 

41.863, 

42 . 109, 

41.794, 

41.343, 

40.982, 

40.680, 

40.886, 

40. 998, 

1421 

.  40.524, 

40.023, 

40.004, 

39.545, 

39.253, 

39.056, 

39.005, 

46.079, 

1422 

45.938, 

45.477, 

45.008, 

44 . 508, 

44 . 020, 

43.745, 

43.663, 

43 . 603, 

1422 

.  43.2-54, 

44.257, 

44 . 678, 

44 . 736, 

-21 . 008 , 

-21 . 503 , 

-  2  1  .  ?  6  6  , 

-22 .427, 

1424 

.  -22.411, 

-22.634, 

-23 .138, 

-23.572, 

-23  .  =>49, 

-24.151, 

-24.151, 

-24 . 605 , 

1425 

.  -24.978, 

-25.312, 

-25.807, 

-26.305, 

-26.802, 

-27 . 295 , 

-2~.723, 

-27 . 953 , 

142*^ 

.  -27 . 252 , 

-28 . 444 . 

-28.943, 

-29.425, 

-2? . 920, 

-30 . 396, 

-30.895, 

-O’ , 388 , 

1422 

-31.863, 

-32.336, 

-32 . 444 . 

-32.443, 

-  3  2  .  ~  ?  6 , 

-33 . 122 , 

-33.554, 

-  3  4 . 0  0? 

1428 

data  (latitude  (i)  , 

i=10321, 10400) . 

142? 

.  -34.490, 

-34.980, 

-35.406, 

-35.860, 

-36.087, 

-36.086, 

-36.591, 

-37.078, 

1430 

.  -37.565, 

-37.793, 

-37.814, 

-37.914, 

-38.209, 

-38.578, 

-38.695, 

-39.143, 

1431 

.  -39.143, 

-38.819, 

-38.464, 

-38.409, 

-37.933, 

-38.109, 

-38.517, 

-38.858, 
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:  '32 

.  -38 

861, 

-38 

859, 

-38 

629, 

-38.375, 

-38 

.268, 

-38 

.144, 

-38 

.008, 

-37 

.611, 

1433 

.  -37 

220, 

-36 

956, 

-36 

957, 

-36.460, 

-36 

.013, 

-35 

.659, 

-36 

.001, 

-35 

.633, 

1434 

.  -35 

653, 

-35 

653, 

-35 

649, 

-35.167, 

-34 

665, 

-34 

.216, 

-34 

.669, 

-35 

.152, 

1435 

.  -35 

243, 

-34 

825, 

-34 

324, 

-33.838, 

-33 

.376, 

-32 

.876, 

-33 

.182, 

-33 

.648 

1436 

.  -33 

878, 

-34 

243, 

-34 

630, 

-35.013, 

-35 

.010, 

-34 

.733, 

-34 

.238, 

-33 

.791, 

1437 

.  -33 

337, 

-33 

106, 

-32 

606, 

-32.270, 

-32 

.211, 

-31 

.954, 

-32 

029, 

-32 

.028, 

1438 

.  -31 

833, 

-31 

574, 

-31 

605, 

-31.576, 

-31 

626, 

-31 

.680, 

-31 

899, 

-32 

.094/ 

1439 

data 

( latitude (i) , 

i-10401, 10480)  / 

1440 

.  -32 

239, 

-32 

307, 

-32 

247, 

-32.274, 

-40 

.745, 

-41 

.206, 

-41 

.712, 

-42 

.215, 

1441 

.  -42 

604, 

-43 

105, 

-43 

231 

-43.233, 

-42 

.825, 

-43 

.262, 

-43 

.614, 

-43 

.539, 

1442 

.  -43 

104, 

-42 

673, 

-42 

170, 

-41.745, 

-41 

405, 

-41 

405, 

-40 

909, 

-40 

.711, 

1443 

.  -41 

Oil, 

-41 

171, 

-40 

979, 

-40.831, 

-40 

744, 

-32 

.272, 

-  2 

551, 

-32 

.764, 

1444 

.  -32 

945, 

-33 

331, 

-33 

774, 

-34.003, 

-33 

894, 

-33 

826, 

-3  j 

819, 

-33 

.885, 

1445 

.  -33 

937, 

-34 

097, 

-34 

389, 

-34.388, 

34 

.452, 

-34 

.739, 

-35 

.015, 

-35 

.021, 

1446 

.  -35 

035, 

-34 

850, 

-34 

517, 

-34.362, 

-33 

879, 

-33 

.522, 

-33 

.524, 

-33 

.417, 

1447 

.  -32 

919, 

-32 

424, 

-31 

918, 

-31.441, 

-30 

987, 

-30 

533, 

-30 

040, 

-29 

.540, 

1448 

.  -29 

064, 

-28 

789, 

-28 

789, 

-28.321, 

-27 

878, 

-27 

378, 

-26 

932, 

-26 

.533, 

1449 

.  -26 

048, 

-26 

485, 

-25 

984, 

-26.313, 

-25 

888, 

-25 

472, 

-25 

037, 

-24 

.894/ 

1450 

data 

(latitude (i) , 

i-10481,  10560)/ 

1451 

.  -24 

894, 

-24 

435, 

-23 

935, 

-23.510, 

-2'! 

009, 

-22 

520, 

-22 

050 

-22 

509, 

145: 

.  -22 

149, 

-21 

753, 

-21 

569, 

-21.260, 

-20 

999, 

-20 

999, 

-20 

747, 

-20 

624, 

1453 

.  -20 

661, 

-20 

410, 

-20 

311, 

-23.022, 

-20 

069, 

-19 

973, 

-19 

973, 

-19 

907, 

1454 

.  -19 

715, 

-19 

465, 

-19 

061, 

-18.625, 

-18 

270, 

-17 

767, 

-17 

266, 

-16 

937, 

1455 

.  -16 

521, 

-16 

596, 

-16 

590, 

-17.018, 

-17 

464, 

-17 

058, 

-16 

651, 

-16 

157, 

1456 

.  -16 

273, 

-16 

399, 

-15 

896, 

-15.399, 

-15 

521, 

-15 

520, 

-15 

519, 

-15 

156, 

1457 

.  -15 

141, 

-14 

639, 

-14 

232, 

-14.641, 

-14 

196, 

-14 

107, 

-13 

727, 

-13 

726, 

1458 

.  -13 

950, 

-14 

318, 

-14 

676, 

-15.179, 

-14 

794, 

-14 

848, 

-14 

927, 

-14 

790, 

1459 

.  -14 

526, 

-14 

027, 

-13 

579, 

-13.324, 

-12 

923, 

-12 

923, 

-12 

711, 

-12 

351, 

1460 

.  -12 

296, 

-12 

291, 

-12 

138, 

-11.671, 

-11 

489, 

-11 

512, 

-11 

499, 

-11 

499/ 

1461 

jta 

(latitude (i) , 

i-10561, 10640) / 

1462 

.  -11 

792, 

-11 

905, 

-12 

062, 

-12.147, 

-12 

111, 

-11 

819, 

-12 

299, 

-12 

459, 

1463 

.  -11 

989, 

-11 

882, 

-11 

882, 

-12.269, 

-12 

714, 

-13 

183, 

-13 

278, 

-13 

780, 

1464 

.  -14 

236, 

-14 

660, 

-14 

724 

-14.726, 

-IS 

103, 

-15 

372, 

-15 

724, 

-15 

8  96, 

1465 

.  -16 

159, 

-16 

454, 

-16 

751, 

-16. 059, 

-17 

225, 

-17 

512, 

-17 

572, 

-17 

57:  , 

1466 

.  -17 

688, 

-17 

470, 

-17 

001, 

-16.573, 

-16 

103, 

-15 

602, 

-15 

131, 

-14 

6.-  • 

1467 

.  -14 

134, 

-13 

640, 

-13 

352, 

-13.352, 

-12 

859, 

-12 

358, 

-11 

931, 

-11 

452, 

■468 

.  -10 

953, 

-10 

744, 

-11 

216, 

-11.710, 

-11 

973, 

-11 

974  . 

-12 

474, 

-12 

925, 

1469 

.  -13 

419, 

-13 

920, 

-14 

395, 

-14.300, 

-14 

561, 

-14 

842, 

-14 

946, 

-14 

944, 

1470 

.  -15 

434, 

-15 

922, 

-16 

421, 

-16.816, 

-17 

259, 

-17 

745, 

-18 

238, 

-18 

532, 

1471 

.  -13 

532, 

-19 

026, 

-19 

298, 

-19.415, 

-19 

829, 

-19 

947, 

-20 

198, 

-20 

699/ 

1472 

data 

(latitude (i) , 

i-10641, 10720) / 

1473 

.  -21 

000, 

-21 

007, 

-12 

183, 

-12,183, 

-12 

163, 

-12 

163, 

4 

170, 

4 

■  69, 

1474 

4 

380, 

4 

741, 

4 

939, 

5.110, 

5 

494, 

5 

782, 

5 

749, 

5 

867, 

1475 

5 

867, 

6 

295, 

6 

€25, 

6.586, 

6 

399, 

5 

981, 

5 

550, 

5 

354, 

1476 

4 

902, 

4 

902, 

4 

818, 

4.891, 

4 

590, 

4 

149, 

3 

790, 

3 

394, 

1477 

3 

085, 

2 

963, 

2 

869, 

2.547, 

2 

071, 

1 

632, 

1 

62  6, 

1 

€95, 

1478 

2 

038, 

2 

064, 

4 

4  93, 

4.492, 

4 

675, 

4 

676, 

6 

671, 

6 

672, 

1479 

7 

294, 

7 

298, 

7 

232, 

7.241, 

5 

276, 

5 

276, 

2 

4  90. 

2 

497, 

1480 

4 

903, 

4 

818, 

4 

891, 

4.711, 

4 

590, 

5 

571, 

5 

582, 

5 

274, 

1481 

5 

218, 

5 

221, 

5 

103, 

4.725, 

4 

322, 

3 

937, 

7 

653, 

3 

384, 

1482 

3 

074, 

2 

602, 

2 

301, 

2 .026, 

1 

821, 

1 

821, 

1 

702, 

1 

534/ 

1483 

data 

(latitude (i) , 

i-10721, 1 

^.800)  / 

1484 

1 

119, 

0 

741, 

0 

609, 

0.245, 

0 

398, 

0 

341 , 

-0 

141, 

-0 

287, 

1485 

-0 

259, 

-0 

743, 

-1 

'’33, 

-1.038, 

-1 

519, 

-1 

995, 

-2 

483, 

-2 

34?, 

14  86 

-2 

623 , 

-2 

966 , 

-3 

453, 

-3.953, 

-4 

45° 

-4 

958  , 

457, 

-5 

66°, 

1487 

-5 

66C  , 

_  5 

743, 

-5 

487, 

-5.453, 

051 . 

-4 

79b, 

-4 

c  n  " 

-4 

182  , 

1498 

_3 

793, 

-3 

442, 

-3 

100, 

-2 . 680, 

-2 

71'', 

-1 

825  , 

-1 

3  P  . 

-1 

044  , 

1489 

.  -1 

043, 

-C 

631 , 

-0 

240. 

<j  .  149. 

n 

4  ?6 . 

f} 

?6?  . 

1 

4  3  9, 

1 

894  , 

14  90 

2 

163, 

2 

36? , 

867, 

3.231, 

n  0 , 

8  no  . 

4 

If- , 

4 

512  . 

1491 

4 

889, 

e; 

360, 

5 

56?, 

5.700, 

5 

70?  . 

8??. 

5 

P3R  , 

i. 

350 

1492 

2 

596, 

2 

385, 

2 

355  . 

2.054. 

2 

. 

2 

nf, - 

2 

05h, 

1 

625  , 

1499 

1 

623, 

-0 

317, 

-0 

321, 

-0.460, 

-0 

466, 

-1 

773, 

-1. 

494, 

-1  . 

008 

1494 

data 

( lat 

Ltude  (i)  , 

i-10801, 10880) / 

1495 

-1 

286, 

-1 

737, 

-1 

772, 

-2.374 . 

-2 

376, 

-1 

757, 

-2 

759, 

-3. 

067, 
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1496 

-3.067, 

-5.485,  -5.487, 

0.933, 

0.950, 

1.369, 

1.265, 

0.92  6, 

1497 

.  -5.744, 

-5.744,  -6.534, 

-6.533, 

-2.825, 

-2.825, 

-2.903, 

-2.901, 

1498 

.  -1.491, 

-1.904,  -2.393, 

-2.560, 

-3.059, 

-2.903, 

-2.517, 

-2.122, 

1499 

.  -2.072, 

-1.634,  -1.500, 

-1.492, 

-2.558, 

-2.681, 

-3.169, 

-3.047, 

1500 

.  -2.558, 

-2.557,  -0.270, 

-0.273, 

-0.388, 

-0.389, 

-0.347, 

-0.348, 

1501 

-0.002, 

-0.005,  0.212, 

0.209, 

0.162, 

0.159, 

0.366, 

0.360, 

1502 

0.708, 

0.706,  0.835, 

0.835, 

0.974, 

0.969, 

1.025, 

1.024, 

1503 

1.142, 

1.135,  0.95C. 

0.946, 

0.791, 

0.789, 

0.794, 

0.786, 

1504 

0.797, 

0.795,  0.742, 

0.740, 

1.025, 

1.025, 

0.593, 

0.589/ 

1505 

data  ( latitude (i) # i—10881 , 10960) / 

1506 

0.859, 

1.023,  0.877, 

0.854, 

0.796, 

0.773, 

0.799, 

0.786, 

1507 

1.2:"'. 

1.206,  1.448, 

1.573, 

1.451, 

1.436, 

1.945, 

1.940, 

1508 

2.838, 

2.844,  2.736, 

2.743, 

3.281, 

3.286, 

3.154, 

3.155, 

1509 

4.692, 

4.693,  3.850, 

3.852, 

2.982, 

2.984, 

2.898, 

2.900, 

1510 

2.533, 

2.540,  1.013, 

1.014, 

-1.031, 

-1.033, 

-1.570, 

-1.571, 

1511 

.  -4.760, 

-4.764,  -3.281, 

-3.780, 

-3.300, 

-3.285, 

-3.405, 

-3.416, 

1512 

2.313, 

2.313,  3.430, 

3.433, 

3.578, 

3.580, 

3.572, 

3.574, 

1513 

4.102, 

4.102,  4.258, 

4.261, 

2.064, 

1.718, 

1.292, 

0.822, 

1514 

0.323, 

-0.105,  -0.588, 

-0.969, 

-1.293, 

-1.782, 

-2.248, 

-2.521, 

1515 

.  -2.521, 

-2.901,  -3.051, 

-3.009, 

-3.446, 

-3.319, 

-3.281, 

-3.254/ 

1516 

data  (latitude (i) , i-10961, 11040) / 

1517 

.  -3.469, 

-3.334,  -3.349, 

-3.349, 

-3.852, 

-3.979, 

-3.794, 

-3.546, 

1518 

.  -3.124, 

-2.634,  -2.191, 

-1.812, 

-1.427, 

-1.165, 

-0.880, 

-0.525, 

1519 

.  -0.524, 

-0.028,  0.470, 

0.784, 

0.829, 

0.956, 

1.311, 

1.598, 

1520 

1.956, 

2.444,  2  804, 

3.195, 

3.600, 

3.704, 

4.169, 

-7.684, 

1521 

-7.684, 

-7.838,  -j.059. 

-8.206, 

-8.264, 

-8.270, 

-8.343, 

-8.398, 

1522 

.  -8.356, 

-8.554,  -8.639, 

-8.140, 

-7.708, 

-7.719, 

-7.730, 

-7.347, 

1523 

.  -7.046, 

-7.046,  -6.91  ., 

-6.724, 

-6.700, 

-6.501, 

-6.952, 

-6.927, 

1524 

.  -6.848, 

-6.850,  -6.550, 

-6.341, 

-6.206, 

-5.981, 

-6.019, 

-6.018, 

1525 

.  -6.042, 

-5.903,  -6.367, 

-6.763, 

6.829, 

-6.976, 

-7.422, 

-7.481, 

1526 

.  -■  656, 

-7.787,  -7.676, 

-7.694, 

-7.796, 

-7.840, 

-5.732, 

-5.731/ 

1527 

dat.  (latitude (i) , i-11041, 11120) / 

1528 

.  -6.839, 

-6.839,  -8.092, 

-8.187, 

-8.173, 

-8.640, 

-8.432, 

-8.117, 

1529 

.  -8.090, 

-8,669,  -8.669, 

-8.219, 

-8.638, 

-8.919, 

-8.434, 

-8.218, 

1530 

-8.386, 

-8.573,  -8.659, 

-8.330, 

-8.372, 

-8.297, 

-8.626, 

-8.748, 

1531 

.  -8.841, 

-8.923,  -9.035, 

-6.741, 

-8.375, 

-8.387, 

-8.134, 

-8.136, 

1532 

.  -9.433, 

-9.374,  -9.412, 

-9.662, 

-10.032, 

-10.260, 

-9.974, 

-9.755, 

1533 

.  -9.623, 

-9.429,  -8.430, 

-8.430, 

-8.268, 

-8.328, 

-8.467. 

-8.489, 

15'  4 

.  -8.641, 

-8.385,  -8.749, 

-8.849, 

-8.914, 

-8.827, 

-8.821, 

-8.784, 

1535 

.  -8.366, 

-8.269,  -8.289, 

-8.286, 

-8.273, 

-8.226, 

-8.567, 

-8.271, 

1536 

.  -8.345, 

-8.342,  -8.136, 

-8.167, 

-8.446, 

-8.136, 

-10.547, 

-10.545, 

1537 

.  -10.761,  - 

10.509,  -10.886, 

-10.760, 

-10.257, 

-10.257, 

-10.156, 

-10.153/ 

1538 

data  (latitude (i) ,i-11121, 11200)/ 

1539 

.  -9.462, 

-9.226,  -9.074, 

-8.911, 

-8.686, 

-8.459, 

-8.510, 

-8.561, 

1540 

-8.820, 

-9.125,  -9.182, 

-9.184, 

-9.354, 

-9.745, 

-10.226, 

-10.279, 

1541 

< 

o 

o 

-9.741,  -9.461, 

-8.144, 

-8.150, 

-7 . 661, 

-7 . 606, 

-7.888, 

1542 

.  -7.658, 

-7.512,  -7.512, 

-8.105, 

-8.104, 

-7.065, 

-7.065, 

-7.798, 

1543 

.  -7.799, 

-7.116,  -7.621 

-8.020, 

-7.526, 

-7.142, 

-7.117, 

-8.084, 

1544 

-8.085, 

-7.116,  -7.115, 

-5.784, 

-6.286, 

-5.786, 

-5.787, 

-5.591, 

154  5 

.  -5.653, 

-5.193,  -4.711, 

-4.219, 

-3.736, 

-3.517, 

-3.083, 

-2 . 619, 

1546 

.  -2.160, 

-1.676,  -1.178, 

-0.771, 

-0.878, 

-0.877, 

-0.379, 

0.110, 

1547 

0.583, 

0  808,  1.182, 

1.247, 

1.081, 

1.009, 

0.871, 

0.815, 

1548 

0.816, 

■'.913,  0.829, 

1.017, 

1.412, 

1 .7?  7, 

1.238, 

0 . 858/ 

1549 

data  (latit 

ude  (i)  , 1=11201, 11280) / 

15'  0 

0.452, 

0.333,  0 . 304 , 

0.511 , 

0.511, 

0.493, 

0.480, 

0 . 52°, 

1551 

0 . 4  1 C  , 

':'.52B,  '^.24^, 

-0.232. 

-0.710^ 

-1 , 018 , 

-1.368, 

-1.367, 

1552 

-1.171, 

-0.849,  -0.931, 

-C.771 , 

-n  .  , 

-C .  947  , 

-  J  .  9  0  5  , 

-1  .283, 

155^ 

-1.616 

-1.858,  -1.994, 

-1 . 994 , 

-2 . 254 , 

-2 , 695, 

-3 . 081 , 

-3 .565, 

15  54 

-3.894, 

-4.284,  -4.429, 

-4.827. 

-4 .764, 

-4 , 268, 

-4 . 044 , 

-4 . 045, 

15  5  5 

-  3  .  '  9 1  . 

-3 . 34  9 ,  -2 . Sf- . 

-2.678. 

-2  .  ■-‘65 . 

-3,422, 

-3 . 919, 

-4.421, 

1  5  5  5 

-4.918, 

-5.412,  -5.592, 

1 .531, 

1.526, 

2,333, 

2.329, 

2.75°, 

155 

2.753, 

3.429,  3.423, 

3.757, 

3.754, 

3.903, 

3.900, 

4.477, 

15  5  5 

4.006, 

4.508,  4.471, 

-0.146, 

-0.152, 

-0.472, 

-0.474, 

-0.377, 

15  5  3 

-0.37  9, 

-0.336,  -0.345, 

-0.266, 

-0.265, 

-1.305, 

-1.624, 

-1.212/ 
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1560  d^ta  (latitude (i) , i-11281 , 11360) / 


1561 

.  -1.226, 

-1.311, 

-1.841, 

-1.843, 

-1 . 689, 

-1.691, 

-1.949, 

-1.954, 

1562 

.  -1.658, 

-1.700, 

-2.013, 

-1.657, 

-1.784, 

-1.791, 

-1.953, 

-1.784, 

1563 

.  -1.979, 

-2.467, 

-2.004, 

-1.979, 

-3.549, 

-3.547, 

-3.978, 

-3.979, 

1564 

.  -5.078, 

-5.081, 

-4.618, 

-5.115, 

-4.616, 

-4.620, 

-4.404, 

-4.906, 

1565 

.  -5.402, 

-5.684, 

-5,198, 

-4.697, 

-4 . 406, 

-3.120, 

-3.061, 

-3.219, 

1566 

.  -3.711, 

-3.767, 

-3.468, 

-3.123, 

-2.860, 

-2.855, 

-2.959, 

-2.834, 

1567 

-2.989, 

-3.195, 

-3.621, 

-3.629, 

-3.364, 

-3.445, 

-3.351, 

-3.456, 

1568 

.  -3.446, 

-2. 959, 

-2.859, 

-3.594. 

-3.593, 

-3.523, 

-3.520, 

-3.496, 

1569 

.  -3.494, 

-3 . 648, 

-3.648, 

-4.503, 

-4.510, 

-3.963, 

-3 . 965, 

-4.432, 

1570 

.  -4.437, 

-4.694, 

-4.694, 

-5.677, 

-5 . 679, 

-5.301, 

-5.755, 

-5.293/ 

1571 

data  (latitude (i) , 

i-11361, 11440) / 

1572 

-5.304, 

-6.170, 

-6.512, 

-6.922, 

-6.427, 

-6.172, 

-5.434, 

-5.872, 

1573 

-6.356, 

-5.956, 

-5.484, 

-5.437, 

-1.435, 

-1.480, 

-1.739, 

-1.435, 

1574 

.  -1.176, 

-1.178, 

-0.309, 

-0.711, 

-0.566, 

-0.310, 

-0.615, 

-0.614, 

1575 

.  -0.266, 

-0.268, 

0.378, 

0.374, 

0.740, 

0.738, 

0.852, 

0.851, 

1576 

2.014, 

2.506, 

2.010, 

2.017, 

0.202, 

0.398, 

0.468, 

-0.032, 

1577 

-U.498, 

-0.882, 

-0.611, 

-0.226, 

-0.214, 

-0.214, 

0.288, 

0.774, 

1578 

1.240, 

1.718, 

2.118, 

1.634, 

1.433, 

1.432, 

1.042, 

1.159, 

1579 

1.532, 

1.066, 

0.824, 

0.551, 

0.201, 

0.033, 

0.032, 

-0.010, 

1580 

.  -0.164, 

-0.244, 

-0.240, 

-0.053, 

-0.009, 

-0.418, 

-0.419, 

-0.770, 

1581 

-0.773. 

-0.893, 

-0.891, 

-1.146, 

-1 .146, 

-1 . 680, 

-2.008, 

-1 . 678/ 

1582 

data  (latitude (i) , 

i-11441, 11520) / 

1583 

.  -1.685, 

-2.625, 

-2 . 621, 

-4.105, 

-4.107, 

-7.379, 

-7.559, 

-8.041, 

1584 

-8.348, 

-8.380, 

-7.894, 

-7.503, 

-7.377, 

-8.168, 

-8.177, 

-9.128, 

1585 

-9.810, 

-8.438, 

-7 . 989, 

-8.154, 

-8.165, 

-7 . 662, 

-7.255, 

-6.976, 

1586 

-6.974, 

-6.974, 

-6.743, 

-6.341, 

-5.841, 

-5.463, 

-5.213, 

-4 . 996, 

1587 

.  -4.845, 

-4 . 669, 

-4.495, 

-4.468, 

-4.259, 

-4.259, 

-3.924, 

-3.827, 

1588 

.  -3.394, 

-3.  (99, 

-4.106, 

-3.685, 

-3.194, 

-2.922, 

-2.801, 

-2.471, 

1589 

.  -2.565, 

-2.718, 

-2.718, 

-2.292, 

-2.240, 

-2.283, 

-2.222, 

-1 . 988, 

1590 

.  -1.527, 

-1.410, 

-0.910, 

-0.789, 

-0.789, 

-0.584, 

-0.351, 

-0.453, 

1591 

.  -0.697, 

-0.753, 

-1.161, 

-1.662, 

-2.161, 

-2.614, 

-2.861, 

-2.863, 

1592 

-3.168, 

-3.386, 

-3.131, 

-2.708, 

-2.328, 

-2.204, 

-1.954, 

-1.954/ 

1593 

data  (latitude (i) , 

i-11521, 11600) / 

1594 

.  -1.591, 

-1.596, 

-1.761, 

-1.974, 

-2.181, 

-2.375, 

-2.408, 

-2.613, 

15  95 

-2.608, 

-1.748, 

-1.751, 

-2.013, 

-2.018, 

-2.324, 

-2.334, 

-0.941, 

1596 

.  -0.943, 

-1.480, 

-1.481, 

-1.597, 

-1.647, 

-1.722, 

-1.818, 

-1.688, 

15  97 

.  -1.600, 

-0 . 658, 

-0.784, 

-1.093, 

-1.142, 

-0.771, 

-0.662, 

-2 , 6ub , 

1598 

.  -2.761, 

-2.964, 

-3.161, 

-3.317, 

-3.403, 

-3.641, 

-3.809, 

-4.041, 

1599 

.  -4.373, 

-4.619, 

-5.057, 

-5.506, 

-5.651, 

-5.898, 

-5.971, 

-6.330, 

1600 

.  -6.751, 

-6.740, 

-6.748, 

-6,747, 

-7.217, 

-7.602, 

-7 . 946, 

-8.290, 

1601 

.  -8.721, 

-9.098, 

-9.026, 

-9.525, 

-9.  620, 

-10.078, 

-10.209, 

-10.689, 

160  2 

.  -10.544, 

-10.463, 

-10.463, 

-10,345, 

-10.238, 

-10.181, 

-10.138, 

-9.965, 

1603 

.  -9.546, 

-9.246, 

-8 . 883, 

-8.455, 

-8 . 366, 

-8.364, 

-8.040, 

-7 . 914/ 

160  4 

data  ( latitude (’) » 

i-11601, 11680) / 

1605 

.  -7.777, 

-7.576, 

-7.704, 

-8.005, 

-8.299, 

-8.283, 

-8.464, 

-8.869, 

ICOk 

,  -9.145, 

-9.252, 

-9.192, 

-9.1,7, 

-9.129, 

-8.426, 

-8.696, 

-8  .451, 

160' 

-8.426, 

-8.359, 

-8.358, 

-10.539, 

-10.539, 

-11.323, 

-11.519, 

-11.363, 

IOC  8 

.  -11.323, 

-11.353, 

-11.353, 

-10. 623, 

-10. 623, 

-10.598, 

-10.598, 

-9.712, 

1  6  0  '■> 

-9.929, 

-9.759, 

-9.712, 

-9.342, 

-9.627, 

-9.456, 

-9.342, 

-8.977, 

1  fc'  7  : 

-8.977, 

-8.432, 

-8.432, 

-9.214, 

-9.214 , 

-5 .194 , 

-5.194, 

-5.492. 

1  1  1 

-5.492, 

-4  .  146, 

-4 . 602, 

-4.987, 

-5.486, 

-5.540, 

-5.938, 

-6.134, 

1  1  2 

-6.2^r'6, 

-6 . 290, 

-6.059, 

-5 . 919, 

-5.749, 

-5.533, 

-5.586, 

-5.52', 

161"' 

-5.064, 

-5.546, 

-5.551, 

-5.227, 

-4 . 935. 

-4.456, 

-4.206, 

-4.146, 

'  1  a 

-2.764 

-2.87’, 

-3 . 062 , 

-3.329. 

-'.6^1, 

-  3 . 9  P  '  , 

-4.4  5^'. 

-4.141 

!  6 : 

d  a  7  'la- 

t  u  d  o  1 1  >  . 

! =1 1 681 , j  1 

7  6  f'  ) 

1  C  1  .. 

-  1  .  ’  7  p  , 

-  -  .457, 

- .  1  4  '  , 

-2 . P'4 . 

- : .564. 

_  ^  9  n  o  _ 

.  p'"':'. 

-  ,1.  .*36^. 

161' 

17  . 

-2.476. 

-2.4  6':, 

-  T  "3  r  ■; 

-1.-53. 

-2.596, 

-  2  .  ^ 

- : .  1 : . 

-  2  .  '  , 

-  3  .  4  7  , 

-  ■  .04  3. 

-  3  .  4  4  6  . 

->.441^. 

-4  .  "4'  , 

-  4  .  ' '  4  '  . 

-  4  .  ?  1  , 

i  6  1  o 

-  4 . : . 

-3  .  4?'=  . 

.  4  3'  . 

-4 . 546  . 

-4  .  '-a-  . 

-  ■ .  4  , 

.  68?  . 

-6.2'7=, 

-7.882. 

-6 . 644 . 

-6.21'. 

.  P''l  . 

-  p  .  4  . 

-5.01-., 

_  c,  _  n  1  '1 

■  6 .  : 

-4.-48, 

-4 . 648, 

-4 . 869, 

-4 . 969, 

-  2  -  2  '  *  , 

-2,237, 

-1 . 961 . 

:  *^1 . 

.  -2. '40, 

-1 . 961 , 

-1,111. 

-1 . Ill, 

-1 .209, 

-1.209, 

-1.382, 

-1  .3B. . 

;  2. 

-1.694, 

-  1  .  694 , 

-4.535, 

-4.535. 

-4.048, 

-4.048, 

14.456, 

14.504, 
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1624 

18 

.406, 

17 

.916, 

17 

.418, 

16 

.966, 

16 

.510, 

16 

.055, 

15 

.860, 

15 

.374, 

1625 

.  14 

.897, 

14 

.398, 

13 

.983, 

14 

.281, 

14 

.238, 

13 

.761, 

13 

.926, 

13 

.449/ 

1626 

data 

( latitude  (i)  , 

i-11761, 11840) / 

1627 

.  13 

.057, 

12 

.560, 

12 

.888, 

13 

.214, 

13 

.556, 

13 

.925, 

13 

.430, 

13 

.641, 

1628 

.  13 

.944, 

13 

.650, 

13 

.892, 

14 

.384, 

14 

.855, 

14 

.774, 

15 

.264, 

15 

.753, 

1629 

.  16 

.243, 

16 

.047, 

16 

.547, 

17 

.031, 

17 

.527, 

18 

.017, 

18 

.509, 

18 

.628, 

1630 

.  18 

.393, 

18 

.379, 

18 

.397, 

20 

.833, 

20 

.830, 

20 

.480, 

20 

.475, 

19 

.574, 

1631 

.  19 

.571, 

19 

.384, 

19 

.378, 

19 

.147, 

19 

.147, 

18 

.891, 

18 

.891, 

18 

.983, 

1632 

.  18 

.979, 

15 

047, 

15 

.039, 

14 

.221, 

14 

.218, 

14 

.059, 

13 

.563, 

14 

.024, 

1633 

.  14 

.058, 

12 

.580, 

2 

.321, 

11 

.954, 

12 

.147, 

12 

.524, 

12 

.576, 

12 

652, 

1634 

.  12 

.651, 

13 

.143, 

2 

.758, 

13 

.092, 

13 

.137, 

12 

.476, 

12 

.470, 

12 

.602, 

1635 

.  12 

.599, 

12 

.654, 

12 

.166, 

12 

.659, 

12 

.653, 

13 

.556, 

13 

.553, 

13 

.520, 

1636 

.  13 

.500, 

13 

.287, 

12 

.803, 

12 

.312, 

12 

.517, 

12 

.995, 

13 

.406, 

13 

.525/ 

1637 

data 

(latitude (i) , 

i-11841, 11920) / 

1638 

.  13 

847, 

13 

845, 

12 

.579, 

12 

.535, 

12 

.413, 

11 

.924, 

11 

.430, 

11 

.282, 

1639 

.  11 

757, 

12 

082, 

12 

533, 

12 

.578, 

11 

.536, 

11 

.427, 

10 

.965, 

10 

.486, 

1640 

.  10 

Oil, 

10 

416, 

10 

919, 

11 

.303, 

11 

.536, 

10 

.427, 

9 

.925, 

10 

.423, 

1641 

.  10 

427, 

10 

021, 

10 

.021, 

9 

.805, 

9 

.525, 

9 

.130, 

8 

.633, 

8 

.189, 

1642 

7 

721, 

7 

221, 

6 

785, 

6 

.299, 

6 

.786, 

7 

.231, 

6 

.898, 

6 

.415, 

1643 

5 

915, 

6 

108, 

5 

951, 

6 

182, 

6 

.646, 

7 

.146, 

7 

.640, 

7 

.833, 

1644 

7 

527, 

7 

780, 

7 

381, 

6 

.932, 

7 

.425, 

7 

.903, 

8 

134, 

8 

.472, 

1645 

8 

687, 

8 

340, 

8 

.535, 

8 

.767, 

9 

.061, 

9 

.493, 

9 

.809, 

6 

.725, 

1646 

6 

722, 

6 

378, 

6 

377, 

6 

093, 

6 

.092, 

5 

338, 

5 

341, 

7 

036, 

1647 

7 

036, 

9 

289, 

9 

288, 

9 

238, 

9 

.238, 

10 

102, 

9 

614, 

9 

731/ 

1648 

data 

( latitude  (i)  , 

i-11921, 12000 

/ 

1649 

.  10 

120, 

10 

095, 

11 

277, 

11 

275, 

11 

.215, 

10 

712, 

10 

238, 

9 

822, 

1650 

.  10 

325, 

10 

761, 

11 

240, 

11 

215, 

10 

.877, 

10 

403, 

9 

931, 

9 

432, 

1651 

9 

364, 

9 

743, 

10 

064, 

10 

560, 

10 

974, 

10 

877, 

10 

731, 

10 

731, 

1652 

.  11 

897, 

11 

635, 

11 

467, 

10 

985, 

10 

670, 

10 

426, 

10 

926, 

11 

423, 

1653 

.  11 

907, 

11 

894, 

12 

323, 

12 

066, 

12 

270, 

12 

321, 

11 

956, 

11 

956, 

1654 

.  11 

510, 

11 

510, 

10 

636, 

10 

629, 

8 

319, 

8 

318, 

8 

056, 

8 

050, 

1655 

8 

121, 

8 

121, 

11 

409, 

10 

907, 

10 

414, 

10 

079, 

9 

892, 

9 

422, 

1656 

9 

136, 

8 

757, 

8 

491, 

8 

954, 

9 

.262, 

9 

613, 

10 

001, 

10 

348, 

1657 

.  10 

759, 

11 

254, 

11 

402, 

-22 

231, 

-22 

231, 

-22 

349, 

-22 

349, 

-23 

772, 

1658 

.  -23 

772, 

-25 

798, 

-25 

297, 

-24 

801, 

-25 

295, 

-25 

779, 

-25 

798, 

-27 

342/ 

1659 

data 

(latitude (i) , 

i-12001, 12080) 

/ 

1660 

.  -27 

342, 

-27 

717, 

-27 

717, 

-38 

773, 

-38 

773, 

-39 

499, 

-39 

499, 

-38 

561, 

1661 

.  -38 

561, 

-38 

423, 

-38 

423, 

-36 

075, 

-36 

045, 

-35 

641, 

-35 

759, 

-36 

075, 

1662 

.  -35 

074, 

-35 

074. 

-33 

772, 

-33 

772, 

-32 

322  . 

-32 

32?, 

-40 

111, 

-39 

609, 

1663 

.  -40 

109, 

-40 

Ill, 

-40 

267, 

-39 

801, 

-40 

156, 

-40 

267, 

-40 

474, 

-40 

474, 

1664 

.  -40 

587, 

-40 

587, 

-43 

254  , 

-43 

254, 

-43 

489, 

-43 

489, 

-40 

709, 

-40 

709, 

1665 

.  -40 

469, 

-40 

469, 

-40 

592, 

-40 

592, 

-42 

731, 

-42 

731, 

-26 

099, 

-25 

642, 

1666 

.  -26 

067, 

-26 

099, 

-25 

266, 

-25 

266, 

-24 

965, 

-24 

965, 

-20 

857, 

-20. 

857, 

1667 

.  -15 

439, 

-15. 

439, 

-15 

309, 

-15. 

309, 

-15 

022, 

-15. 

022, 

-14 

611, 

-14. 

611, 

1668 

.  -11 

811, 

-11 

358, 

-11 

731, 

-11. 

831, 

-11 

811, 

-11 

928, 

-11. 

659, 

-11. 

174, 

1669 

.  -11 

354, 

-11 

252, 

-11 

740, 

-11. 

928, 

-11 

314, 

-11 

314, 

-11. 

715, 

-11 . 

715/ 

1670 

data 

(latitude (i) , 

i-12081, 12160) 

/ 

1671 

.  -11 

670, 

-11 

670, 

-11 

424, 

-11 

424, 

-12 

057, 

-12 

057, 

-13. 

522, 

-13 

522, 

1 6^: 

.  -13. 

847, 

-13  . 

847  , 

-14 

195, 

-13  . 

747, 

-14. 

192, 

-14 

239, 

-14. 

195, 

-14  . 

8  93, 

1C7? 

.  -14  . 

893  , 

-15. 

644  , 

-15. 

644, 

-15. 

775, 

-15. 

775, 

-15  . 

609, 

-15. 

609, 

-15. 

829, 

16'’4 

.  -15  . 

829, 

-16. 

740, 

-16. 

410, 

-16. 

757, 

-16. 

740, 

-17 

130, 

-17. 

130, 

-10  . 

179, 

1  6 ' 5 

.  -10  . 

179, 

-10. 

259, 

-10. 

259, 

-10. 

749, 

-10. 

749, 

-10. 

638, 

-10. 

638, 

-18. 

468, 

16-' 6 

.  -18  . 

468, 

-19. 

165, 

-19. 

165, 

-20 

143, 

-20. 

143, 

-20. 

324, 

-20. 

374, 

-20  . 

527, 

1  r-- 

.  -20 . 

527  , 

-11  . 

710, 

-11 

710, 

-15. 

744, 

-15 

744  , 

-29. 

069, 

-29. 

069, 

-31  . 

592  , 

1  r  ^  P 

^■'?2  , 

-41  . 

^8'^, 

-41  . 

23^. 

-4':’ 

994  . 

-41 

oo 

-40. 

817  , 

-48  . 

■^04. 

-41  . 

162, 

? 

■  -41  . 

63  4, 

-41  . 

Qao_ 

-42 

47', 

-42  . 

963  . 

-4?  . 

i  1  . 

-43  . 

4  36 , 

-4?  . 

81?, 

-4  3  . 

819, 

1  >* 

.  -  4  ?  . 

o  t  -j  _ 

-44 

]''9, 

-44  . 

5  95, 

-44  . 

899  . 

-4'; 

3  . 

-45  . 

7P^  , 

-46. 

2  38  , 

-46. 

^84  . 

1681 

( lati 

t  ud® 

( 1 ) . 

i-121 

61,  12 

2  4  0 ) 

1*^81 

.  -46. 

5  9  8, 

-46. 

63  . 

-46. 

4  92  . 

-4  6. 

lit. 

-  4'^  . 

7  61, 

-45  . 

2  66, 

-44  . 

820  , 

-44  . 

P  . 

1  6  R  ‘ 

.  -44  . 

-  p  •• 

-44  . 

-44  . 

02  4  , 

-  4  . 

.“j  5 '  ■ , 

-  4 .?  . 

"  1  9 . 

-  4  . 

CTO) 

-4-^  . 

8  5  9. 

-43  . 

'  j  f '  t 

1  *5 

.  -43. 

42’: , 

-  4  . 

T  c  p 

-  4  3  . 

4  6 . 

-42'. 

-42  . 

584  . 

-42  . 

17P  , 

-41. 

7  5  5, 

-41  . 

68”  . 

.  -4"  . 

2  21, 

-4"'  . 

220. 

-46  . 

7  93  , 

-46  . 

794  , 

-46. 

722 , 

-47  . 

186, 

-46. 

668, 

-4  b. 

731  , 

i  <0  8 

.  -48, 

f' C;  , 

-46  . 

02  3. 

-50 

564  , 

-50  . 

566. 

-52. 

4  60, 

-52  . 

466, 

-49. 

659, 

-49. 

6  69, 

:  ‘■7  - " 

.  -4"^  . 

6  8  , 

-4~  . 

661 . 

-44  . 

315, 

-44  . 

310, 

-44  . 

014  , 

-44  . 

012  , 

-45  . 

630. 

-45  . 

638  , 
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1688 

.  -40.911, 

-40.918, 

-39.683, 

-40.182, 

-40.590, 

-41.029, 

-41.412, 

-41.388, 

1689 

.  -40.883, 

-40.409, 

-39.935, 

-39.711, 

-39.461, 

-39.014, 

-38.693, 

-38.194, 

1690 

.  -38.101, 

-36.803, 

-36.939, 

-36.708, 

-37.205, 

-37.683, 

-37.876, 

-37.986, 

1691 

.  -37.658, 

-37.647, 

-38.138, 

-38.629, 

-39.088, 

-39.134, 

-39.590, 

-39.681/ 

1692 

data  (latitude  (i)  , 

i-12241, 12320) / 

1693 

.  -38.101, 

-37.611, 

-37.135, 

-36.671, 

-36.171, 

-35.876, 

-36.330, 

-35.966, 

1694 

.  -35.561, 

-35.087, 

-34.654, 

-35.019, 

-35.048, 

-35.365, 

-35.844, 

-36.325, 

1695 

.  -36.827, 

-36.802, 

-36.350, 

-36.348, 

-36.830, 

-36.829, 

-31.439, 

-31.431, 

1696 

.  -30.588, 

-30.575, 

-30.203, 

-30.205, 

-29.284, 

-29.285, 

-34.176, 

-34.176, 

1697 

.  -46.804, 

-46.806, 

5.297, 

5.297, 

7.512, 

7.512, 

6.722, 

6.722, 

1698 

6.744, 

6.744, 

5.781, 

5.781, 

6.827, 

6.827, 

6.98"’, 

6.987, 

1699 

5.282, 

5.282, 

7.327, 

7.327, 

7.424, 

7.424, 

7.349, 

7.349, 

1700 

6.702, 

6.702, 

7.361, 

7.361, 

7.372, 

7.372, 

8.613, 

8.613, 

1701 

8.976, 

8.976, 

8.577, 

8.577, 

7.506, 

7.506, 

7.378, 

7.378, 

1702 

6.706, 

6.706, 

-0.495, 

-0.495, 

6.008, 

5.799, 

6.079, 

6.079/ 

1703 

data  (latitude (i) , 

i-12321, 12400)  / 

1704 

3.006, 

3.006, 

3.096, 

3.096, 

3.260, 

3.260, 

1.706, 

1.706, 

1705 

1.534, 

1.534, 

1.846, 

1.846, 

1.346, 

1.346, 

1.018, 

1.018, 

1706 

0.448, 

0.448, 

0.208, 

0.208, 

-0.599, 

-0.599, 

-0.673, 

-0.673, 

1707 

.  -1.154, 

-1.154, 

-1.439, 

-1.439, 

-1.830, 

-1.830, 

-1.289, 

-1.289, 

1708 

.  -1.333, 

-1.333, 

-5.680, 

-5.680, 

-6.264, 

-6.264, 

-6.092, 

-6.092, 

1709 

.  -7.175, 

-7.175, 

-7.472, 

-7.472, 

-8.036, 

-8.036, 

-8.466, 

-8.547, 

1710 

.  -4.501, 

-4.501, 

-4.439, 

-4.439, 

-3.119, 

-3.119, 

-2.764, 

-2.764, 

1711 

-9.943, 

-9.943, 

-9.867, 

-9.867, 

-2.487, 

-2.487, 

-2.608, 

-2.608, 

1712 

4.628, 

4.571, 

6.048, 

6.062, 

-5.658, 

-5.658, 

0.228, 

0.228, 

1713 

0.809, 

0.809, 

5.633, 

5.633, 

24.309, 

24.309, 

7.135, 

7.135/ 

1714  data  ( latitude (i ), i-12 401 , 12480)  / 


1715 

8.911, 

8.911, 

7.612, 

7.612, 

7.329, 

7.329, 

7.464, 

7.464, 

1716 

8.748, 

8 . 748, 

11.157, 

11.157, 

11.640, 

11.640, 

19.330, 

19.330, 

1717 

7.767, 

7.767, 

9.334, 

9.334, 

9.219, 

9.219, 

11.706, 

11.706, 

1718 

.  11.354, 

11,354, 

11.397, 

11.397, 

9.633, 

9.633, 

9.559, 

9.559, 

1719 

.  10.451, 

10.451, 

11.232, 

11.232, 

14.581, 

14 . 581, 

7.027, 

7.074, 

1720 

7.041, 

6.972, 

7.068, 

7.108, 

7.141, 

7.066, 

9.385, 

9.333, 

1721 

.  -7.324, 

-7.324, 

-6.968, 

-6.968, 

-6.791, 

-6.791, 

-7.389, 

-7.389, 

1722 

.  -6.604, 

-<=.852, 

-7.214, 

-7.061, 

-6.693, 

-6.604, 

-7.575, 

-7.575, 

1723 

.  -7.941, 

-7.944, 

-7.852, 

-7.852, 

-8.192, 

-8.192, 

-8.164, 

-8.164, 

1724 

.  -8.414, 

-8.414, 

-8.710, 

-8.710, 

-8.701, 

-8.701, 

-8.509, 

-8.509/ 

1725 

data  (latitude  (i) , 

i-12481,  12560)  / 

1726 

.  -7.971, 

-8.356, 

-8.321, 

-7.971, 

-8.378, 

-8.378, 

-7.535, 

-7.756, 

1727 

.  -7.986, 

-8.276, 

-8.216, 

-7.965, 

-7.598, 

-7.535, 

-7.571, 

-7.571, 

1728 

-7.468, 

-7.468, 

-9.041, 

-9.041, 

-8.997, 

-8.997, 

-9.111, 

-9.111, 

1729 

.  -8.996, 

-8.996, 

-9.064, 

-9.064, 

-9.254, 

-9.421, 

-9.626, 

-9.821, 

1730 

.  -9.661, 

-9.254, 

-8.310, 

-8.768, 

-9.160, 

-8.977, 

-8.483, 

-8.310, 

1731 

-9.351, 

-9.351, 

-8.373, 

-8.373, 

-9.712, 

-9.712, 

-10.206, 

-10.409, 

1'’32 

.  -10.654, 

-10.691, 

-10.331, 

-10.206, 

-11.290, 

-11.290, 

-11.472, 

-11.709, 

1733 

.  -11.546, 

-11.472, 

-10.754, 

-10.754, 

-11.282, 

-11.282, 

-11.602, 

-11.602, 

1734 

-5.300, 

-5 . 300, 

-5.414, 

-5.414, 

-5.467, 

-5.467, 

-5.490, 

-5 .490, 

1735 

.  -19.248, 

-19.240, 

-19.680, 

-19.680, 

-20.137, 

-20.137, 

-20.700, 

-20.396/ 

1736 

data  (latitude (i) , 

i-12561, 12 

640)  / 

17  3  7 

.  -20.167, 

-20.630, 

-20.997, 

-21.362, 

-21.665, 

-21 . 928, 

-22.178, 

-22.374, 

173? 

.  -21.939, 

-21.611, 

-21.329, 

-20.973, 

-20.700, 

-22.571, 

-22.571, 

-20.659, 

1  3  '  J 

.  -20.659, 

-20 . 723, 

-20.723, 

-20.953, 

-20.953, 

-21 . 558, 

-21.558, 

-22 .331, 

17  4'.' 

.  -22.331, 

-20.196, 

-20.196, 

-19.588, 

-19.588, 

-18 . 854 , 

-18.854, 

-17 . 660, 

1741 

.  -17.660, 

-16.818, 

-16.818, 

-16.198, 

-16.198, 

-15.888, 

-15.888, 

-15 . 303 , 

1^4: 

-15.303, 

-15.479, 

-15 . 47':>, 

-14.323, 

-14.323, 

-13.86'^, 

-13.860, 

-1? . 686, 

1  '•  4  7 

-  1  3  ,  (T,  q  ^  , 

-13 . 554 , 

-13 . 554 , 

-13. 434 . 

-13.434, 

-13 .1"':', 

-13.135, 

-  1  4  .  9  ?  p  , 

1  "  4  4 

.  -15.494, 

-15.519, 

-15.036. 

-14 . 

-15 . 610. 

-15. 613, 

-15.756. 

-15. 756. 

1  '4^ 

.  -16.450, 

-16.013, 

-16.25 " , 

-16.45':'. 

-  1 .  5  1  3  , 

-12.519, 

-16.528, 

-  1  6 . 5  3  P  . 

1  74  f 

.  -16.494, 

-16.528, 

-  ]  t .  n  0  3 . 

-16.5-5P, 

-16.403. 

-16.232. 

-  1  6 . 1 5  5  , 

-16.174 

1^4' 

data  ‘  la* 

it ud« ( i 5 , 

i-12641 . 12 

■'2  5') 

.1  7-  4  K 

.  -16.525, 

-  1  6 . 7  4  3  , 

-17 .003, 

-16.833, 

-16.833, 

-17 .350, 

-17.350, 

- 1  7  .  8  1 1  , 

1  ■■  4 

.  -17.813, 

-18 . 105, 

-18 . 105, 

-17 . 688, 

-17 . 688, 

-18 . 264 , 

-18.162, 

-17. 667  ^ 

1  '  5 ' 

.  -17.373, 

-17.434, 

-17.854, 

-18.190, 

-18.264, 

-16.719, 

-16.719, 

-17.101, 

1  ^  5  1 

.  -17.101, 

-17.284, 

-17.284, 

-18.496, 

-18.496, 

-18.374, 

-18.374, 

-1 8 . 928, 

I 

I 
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1752 

.  -18.928, 

-19.000, 

-19.000, 

-19.197, 

-19.197, 

-18.967, 

-18.967, 

-18.552, 

1753 

.  -18.552, 

-17.775, 

-17.775, 

-17.250, 

-17.250, 

-17.431, 

-17.431, 

-17.177, 

1754 

.  -17.177, 

-17.963, 

-17.963, 

-18.191, 

-18.191, 

-18.641, 

-18.641, 

-18.966, 

1755 

.  -18.966, 

-19.129, 

-19.129, 

-19.159, 

-19.159, 

-19.844, 

-19.844, 

-20.671, 

1756 

.  -20.671, 

-16.999, 

-16.786, 

-16.968, 

-16.999, 

-21.704, 

-21.704, 

-17.987, 

1757 

175C 

.  -17.987,  -24.328, 
data  (latitude (i) , 

-24.327,  -24.664, 
i-12721, 12800) / 

-24.663, 

7.714, 

7.714, 

9.576/ 

1759 

9.576, 

13.635, 

13.635, 

14.178, 

14.178, 

15.069, 

15.069, 

15.249, 

1760 

.  15.249, 

16.379, 

16.379, 

16.706, 

16.706, 

17.313, 

17.313, 

17.606, 

1761 

.  17.606, 

18.173, 

18.173, 

18.802, 

18.802, 

19.655, 

19.655, 

20.520, 

17  62 

.  20.520, 

5.315, 

5.315, 

6.936, 

6.936, 

7.050, 

7.050, 

7.313, 

1763 

7.313, 

-13.343, 

-13.343, 

-13.805, 

-13.805, 

-14.053, 

-14.053, 

-14.308, 

1764 

.  -14.308, 

-21.268, 

-21.268, 

-19.101, 

-19.101, 

-9.210, 

-9.210, 

-14.369, 

1765 

.  -14.369, 

-14.273, 

-14.273, 

-15.624, 

-15.624, 

-18.667, 

-18.667, 

-18.667, 

1766 

.  -18.667, 

-19.786, 

-19.786, 

-19.735, 

-19.735, 

-21.446, 

-21.446, 

-8.985, 

1767 

.  -8.985, 

-21.230, 

-21.230, 

-21.912, 

-21.912, 

-8.582, 

-8.582, 

-9.372, 

1768 

1769 

.  -9.372,  -14.288, 

data  (latitude  (i)  , 

-14.288,  -14.185, 
i-12801, 12880) / 

-14.185, 

-18.826, 

-18.826, 

-18.705/ 

1770 

.  -18.705, 

-19.652, 

-19.652, 

-10.890, 

-10.890, 

-11.548, 

-11.548, 

-10.037, 

1771 

.  -10.037, 

-10.430, 

-10.430, 

-10.386, 

-10.386, 

-18.081, 

-18.081, 

-18.880, 

1772 

.  -18.880, 

-19.272, 

-19.272, 

-19.836, 

-19.836, 

-20.019, 

-20.019, 

-19.845, 

1773 

.  -19.845, 

-20.184, 

-20.184, 

-16.674, 

-16.674, 

-16.904, 

-16.904, 

-27.556, 

1774 

.  -27.556, 

-25.076, 

-25.076, 

-22.655, 

-22.655, 

-11.464, 

-11.464, 

-27.914, 

1775 

.  -27.914, 

-10.442, 

-10.442, 

-9.899, 

-9.899, 

-9.723, 

-9.723, 

-9.329, 

1776 

.  -9.329, 

-8.885, 

-8.885, 

-8.806, 

-8.806, 

-7.973, 

-7.973, 

-9.896, 

1777 

-9.896, 

-9.930, 

-9.930, 

-10.094, 

-10.094, 

-5.618, 

-5.618, 

-4.055, 

1778 

.  -4.055, 

-0.385, 

-0.385, 

1.717, 

1.717, 

3.799, 

3.799, 

4.706, 

1779 

1780 

4.706,  -23.139, 
data  ( latitude  (i)  , 

-23.139,  -21.709, 
i-12881, 12960) / 

-21.709, 

-15.749, 

-15.749, 

-16.165/ 

1781 

.  -16.165, 

-17.735, 

-17.735, 

-17.572, 

-17.572, 

-16.826, 

-16.826, 

-16.770, 

1782 

.  -16.770, 

-16.531, 

-16.531, 

-15.844, 

-15.844, 

-16.973, 

-16.973, 

-16.977, 

1783 

.  -16.977, 

-17.661, 

-17.661, 

-22.514, 

-22.514, 

-23.401, 

-23.401, 

-23.873, 

1784 

.  -23.873, 

-21.534, 

-21.487, 

-21.568, 

-21.531, 

-22.029, 

-22.019, 

-21.466, 

1785 

.  -21.466, 

-21.358, 

-21.342, 

-18.571, 

-18.485, 

-18.362, 

-18.269, 

-17.318, 

1786 

.  -17.309, 

-17.318, 

-17.358, 

-18.774, 

-18.754, 

-20.880, 

-20.788, 

-21.873, 

1787 

.  -21.821, 

-21.871, 

-21.876, 

-19.656, 

-19.612, 

-19.164, 

-19.138, 

-19.219, 

1788 

.  -19.202, 

-18.419, 

-18.340, 

-18.220, 

-18.066, 

-17.810, 

-17.689, 

-17.703, 

1789 

.  -17.786, 

-15.977, 

-15.981, 

-15.799, 

-15.831, 

-16.018, 

-16.110, 

-16.145, 

1790 

1791 

.  -16.186,  -16.196, 
data  { latitude (i) , 

-16,231,  -17,622, 
i-12961, 13040) / 

-17.537, 

-16. 994, 

-16.974, 

-17.457/ 

17  92 

.  -17.434, 

-16.672, 

-16.627, 

-16.638, 

-16.581, 

-16.545, 

-16.455, 

-16.743, 

1793 

.  -16.712, 

-16.673, 

-16.645, 

-16.483, 

-16.417, 

-16.347, 

-16.325, 

-16.074, 

1794 

.  -16.085, 

-16,149, 

-16.194, 

-15.950, 

-15.891, 

-15.908, 

-15.758, 

-15.480, 

1795 

.  -15.442, 

-14.512, 

-14.446, 

-14.624, 

-14.603, 

-14. 621, 

-14.666, 

-14.347, 

1796 

.  -14.367, 

-14.383, 

-14.423, 

-14 . 438, 

-14.458, 

-14.461, 

-14.430, 

-14.500, 

1797 

.  -14.436, 

■15.318, 

-15 . 378, 

-15.481, 

-15.536, 

-15 . 838, 

-15.883, 

-16.064, 

1798 

.  -16.054, 

-16.086, 

-16.350, 

-16.408, 

-16.460, 

-16.727, 

-16. 755, 

-17.491, 

17  99 

.  -17.419, 

-17 . 406, 

-17.353, 

-17.386, 

-17.326, 

-19.931, 

-19.897, 

-15.825, 

180C 

.  -15.776, 

-15.270, 

-15.218, 

-15.304, 

-15.291, 

-15.265, 

-13.246, 

-15.233, 

1801 

1802 

.  -15.206,  -15.191, 
data  ( latitude ( i ) , 

-15.142,  -15.021, 
i-13041, 13120) / 

-14 . 988, 

-15.002, 

-14.922, 

-14 . 944/ 

180  3 

.  -14.978, 

-14 . 900, 

-14 .856, 

-15.043, 

-15.069, 

-16.482, 

-16.441, 

-16.453, 

1804 

.  -16.419, 

-16.420, 

-16.461, 

-16.829, 

-16.774 , 

-15.798, 

-15.765, 

-15.813, 

1  8  C  0 

.  -15.792, 

-21.343, 

-21.324, 

-21.317, 

-21.301, 

-19.282, 

-19.277, 

-19.355, 

.  -19.331, 

-20  . 

-17.382, 

-17 . 340, 

-16.840, 

-16.831. 

-14.183. 

18^'^ 

.  -14.165, 

- 1  4  ,  2  . 

-14.15', 

-18.131, 

-18.115, 

_ 2  7  .  . 

-17.952, 

-17 . 612 , 

1808 

.  -17.625, 

-17.836, 

-17.815, 

-14 . 42'’ , 

-14  . 

-15.26f . 

-15.287, 

-14 . 908, 

19  0  0 

.  -14 . 899, 

-I';  .  n?-  , 

-15. 084 

-14.910, 

-14 . 036, 

-14 . 902 , 

-14.873, 

-15.202, 

18  1C 

.  -15.226, 

-19.  . 

-19.85', 

-20.433. 

-20 , . 

-54 .752, 

-54 . 752, 

28.155, 

1  81  i 

23 .833, 

2"’  .  678  , 

20.326, 

2  7  ,  n  7  '3  ^ 

26, '71 , 

26.700 , 

26. 506, 

26.722, 

1812 

1813 

1814 

.  26.995, 

end 

27.171, 

27.118, 

27.13^ 

26.049, 

26.697, 

26.976, 

26.950, 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
''032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
004  9 
0050 
0051 
0052 
0  0  5  3 
0054 
0  0^5 
0  f"'  6 
0  0  5" 
0  5  8 
0050 
r'  I j  0 ''' 

n  r.  0  1 
0'"6: 
0  0' 6  3 
0064 


c . Load  a  file  of  STROCTDRE  and  PARAMETER  definitions  at  compile  time 

!!G  toolbox! . fine 

c . Load  the  ToolBox  traps 

! ! M  Inlines . f 


c - - 

subroutine  Mapit 

c - - 

c  Draw  an  Earth  map  and  overlay  a  flight  path  onto  it 

c 

c  (.'eveloper:  David  F.  Smith 

c  date;  February  1991 

c 

c . common  block  definition  files 


include  'CrvDat.inc' 
include  ' FntCom . inc ' 
include  'LatCom.inc' 
include  'LngCom.inc' 
include  ' MapMenu . inc ' 
include  'OptFlg.inc' 
include  'PenCom.inc' 
include  'MapCom.inc' 
include  ’PntAbs.inc’ 
include  'TicDat.inc' 
include  'VuWind.inc' 
include  'WinLim.inc' 

c . graphics  window  records 

common  /  MapWindow  /  MapMPtr 

record  /  WindowPtr  /  MapMptr 

c . set  up  pointer  for  QuickDraw  globals 

common  /  QDGPtr  /  QDG 

pointer  /  QDGlobals  /  QDG 

c . Picture  record  handle  and  pointer 

common  /prut  /  PictHndl 

record  /  PicHandle  /  PictHndl 

c . pointer  to  off  screen  bit  map 

record  /  GrafPtr  /  Offscreen 

c . Hisndle  to  off  screen  bit  map  memory  contents 

record  /  Handle  myBitH 

^ . event  record 

record  EventF.ecord  TheEvenr 

. cursor  handle 

recoi  rl  Cur  sHaiidle  2ur  s>--rHndl 

c . user  option  code 
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0065  integer*2  Option 

0066 

0067  c . continue  reading  data  flag 

0068 

0069  integer*2  goflag 

0070 

0071  c . define  logical*!  to  represent  Boolean  argument  from  Event  monitor 

0072 

0073  logical*!  AnEvent 

0074 

0075  c . define  an  initialization  flag 

0076 

0077  logical*!  FirstTimo 

0078 

0079  c - 

0080 

008!  c . set  default  graph  window  limits 

0082 

0083  iGxMin  -  QDG^ . screenBits .bounds . left 

0084  iGxMax  -  QDG^ . screenBits .bounds . right 

0085  iGyMi  i  ■>  QDG^  .  screenBits  .bounds  .top 

0086  iGy QDG'^ .  screenBits  .bounds  .bottom  -  38 

0087 

0088  c . get  screen  resolution 

:CS9 

0090  call  ScreenRes  (  %ref(iHRes)  ,  %ref(iVRes)  ) 

009!  MapHRes  •  float  (  iHRes  ) 

0092  MapVRes  “  float  {  iVRes  ) 

0093 

0094  c . got  default  graph  window  size 

0095 

0096  DefWidth  «  float  (  iGxMax  -  iGxMin  ) /MapHRes 

0097  DefHeight  -  float  (  iGyMax  -  iGyMin  ) /MapVRes 

0098 

0099  c . initialize  window  size  to  the  default 

0100 

010!  MapWidth  “  DefWidth 

0102  MapHeight  -  DefHeight 

0!03 

0!04  c . sot  up  the  'Map'  menu 

0105 

0106  c  call  SetUpMapMenu 

0107  c  call  DnloadSog  (  %loc (SotOpMapMenu)  ) 

0108 

0109  c - 

0110  c . the  main  execution  loop  begins  here 

0111  c - 

0112 

0113  Option  “  oNow 

0114  First Time  “  .true. 

0115 

0116  do  while  (  Option . eq . oNew  .or.  Option . eq . ©Redraw  ) 

0117 

0118  c . set  dialog  font  to  Chicago  (  system  ) 

0110 

''12^'  FntNam  *  'Chicaac' 

0121  call  GetFNum  (  »val (FntNam)  ,  FntNum  ) 

0122  call  setDAfont  (  'val (FntNum)  ) 

('  1 2  ■ 

0124  c . show  'Map'  options  menu 

0125 

0126  c  call  InsertMenu  (  *val (MapMenuHndl)  ,  *val(0)  ) 

012"'  c  call  DrawMenuBar 

0128 
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0129 

c .  . 

...initialize  user  option  to  Cycle  (after  the  first  pass) 

0130 

0131 

if (FirstTime)  then 

0132 

FirstTime  -  .false. 

0133 

else 

0134 

Option  -  oCycle 

0135 

end  if 

0136 

0137 

c .  . 

.  . .monitor  and  respond  to  events 

0138 

0139 

do  while  (  Option  eq.oCycle  ) 

0140 

AnEvent  «  GetNextEvent  (  %val (EveryEvent)  ,  %ref (TheEvent)  ) 

0141 

if  (  AnEvent  )  then 

0142 

call  EventHandler  (  TheEvent  ,  Option  ) 

0143 

end  if 

0144 

end  do 

014o 

0146 

c .  . 

.  .  . 

...clear  and  redraw  the  menu  bar 

0147 

0148 

c 

call  ClearMenuBar 

0149 

c 

call  DrawMenuBar 

0150 

0151 

c .  . 

.  .  . 

...set  up  the  map  appearance  via  a  dialog  window 

0152 

C153 

if  (  Option .eq. oNew  )  then 

0154 

call  SetOpTheMap  {  Option  ) 

0155 

end  if 

0156 

0157 

c.  . 

.  .  . 

...draw  the  map  via  QuiclcDraw 

0158 

0159 

if  (  Option .eq. oNew  )  then 

0160 

call  DrawTheMap  <  Option  ) 

0161 

call  OpenBitMap  (  offscreen  ,  myBitH  ,  MapWPtr .WP'' .portRect 

0162 

call  SetPort  (  %val (offscreen)  ) 

0163 

call  CopyBits  (  %ref (MapKPtr .WP^ .portBits)  , 

0164 

& 

%ref (Of f Screen .Graf P^ .portBits)  , 

0165 

& 

%ref  (MapWPtr.WP'-.portRect)  , 

0166 

& 

%ref  (Offscreen  .Grafp''  .portRect)  , 

0167 

& 

%val (srcCopy)  ,  %val(nil)  ) 

0168 

else  if  (  Option . eq. oReDraw  )  then 

0169 

call  SetPort  (  %val (MapWPtr)  ) 

0170 

call  BeginUpdat©  {  %vai (MapWPtr )  ) 

0171 

call  CopyBits  (  %ref (Of fScreen .Graf P^ .portBit s )  , 

0172 

& 

%ref (MapWPtr .WP^ .portBits)  , 

0173 

& 

%ref  (Of  f  Screen  .Graf P''  .portRoct )  , 

0174 

& 

%ref  (MapWPtr  .PfP'"  .portRect)  , 

0175 

& 

Sval (srcCopy)  ,  %val(nil)  ) 

0176 

call  EndUpdat©  (  %val (MapWPtr )  ) 

0177 

call  SelectWindow (  %val (MapWPtr )  ) 

0179 

end  if 

0179 

0180 

c .  . 

.  . .©nabl©  th©  save  and  redraw  menu  items  after  first  Map  is  complet 

0181 

C182 

if  (  iMadeFir stMap . ©q . 0  )  then 

018? 

call  MapMenuSet  (  itemSaveMap  ,  ©nableThelt ©m  ) 

0 18  4 

call  MapMenuSet  (  it©mP.©drav.'  ,  ©nableXh© Item  ) 

0185 

iMadeFir StMap  =  1 

0186 

end  i  f 

01R7 

0188 

©nd  do 

0180 

0190 

c.  . 

eliminate  the  Map  window 

0191 

0192 

call  HideWindow  (  ^val (MapWptr )  ) 
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0193  call  DisposaWindow  (  %val (MapWptr)  ) 

0194 

0195  c . get  rid  of  'Map'  menu 

0196 

0197  c  call  DelateMenu  (  %val (MapMenuID)  ) 

0198  c  call  DispoaeMenu  (  %val ( MapMenuHndl  )  ) 

0199  c  call  ClearMenuBar 

0200  c  call  DrawMenuBar 

0201 

0202  c . return  to  calling  routine 

0203 

0204  return 

0205  end 

0001  c . Load  a  file  of  STRDCTORE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  .MG  toolbox2  .fine 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  MM  Inlines. f 

0008 

0009  c - 

0010  subroutine  MapMenuSet  (  item  ,  enable  ) 

0011  c - 

0012  c  This  routine  lets  other  routines  enable  or  disable  menu  items  without 

0013  c  the  calling  routines  having  to  know  about  menu  structures. 

0014 

0015  logical*2  enable 

0016  integer*2  item 

0017 

0018  c . Options  menu  file 

0019 

0020  include  ' MapMenu . inc ' 

0021 

0022  c . either  enable  or  disable  designated  item 

0023 

0024  if  (  enable  )  then 

0025  call  Enableltem  (  %val (MapMenuHndl)  ,  %val(item)  ) 

0026  else 

0027  call  Disableltom  (  %val (MapMenuHndl)  ,  %val(itom)  ) 

0028  end  if 

0029 

0030  c . redraw  the  menu  bar 

0031 

0032  call  DrawMenuBar 

0033 

0034  return 

0035  end 

0001  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

ooo;. 

0003  !!G  toolb^ixl  .  f  inc 

0004 

0005  c . Load  the  ToolBo::  traps 

00ti6 

OOOO  !!M  Inlines. f 

0  008 

0009  c . Put  the  following  code  in  the  Main  segment 

0010 

0011  ! !S  Main 
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0012 

0013  c - 

Segment  Main 

0014  subroutine  MenuSet  (  menuID,  menultem,  enable  ) 

0015  c - 

0016  c  This  routine  lets  other  routines  enable  or  disable  menu  items  without 

0017  c  the  calling  routines  having  to  know  about  menu  structures. 

0018 

0019  nSETC  OSINGINCLODES  -  FALSE 

0020 

0021  implicit  none 

0022 

0023  c . declare  Boolean  flag 

0024 

0025  logical*!  enable 

0026 

0027  c . accept  the  input  arguments 

0028 

0029  integer*2  menuID,  menultem 

0030 

0031  c . declare  a  structure  for  getting  the  menu  handle 

0032 

0033  record  /  MenuHandlo  /  menu 

0034 

0035  c - 

0036 

0037  . . get  the  menu's  handle 

0038 

0039  menu.menuH  ••  GetMBandle  (  %val  (  menuID  )) 

0040 

0041  if  (enable)  then 

0042  call  Enabloltem  (  %val (  menu  ),  %val (  menultem  )) 

0043  else 

0044  call  Disabloltem  (  %val (  menu  ),  %val(  menultem  )) 

0045  endif 

0046 

0047  c . display  the  results 

0048 

0049  call  DrawMenuBar 

0050 

0051  return 

0052  end 

0001  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !!G  toolbox2 . f inc 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  I !M  Inlines . f 

0008 

0009  c - 

0010  subroutine  MovAbs  (  ix  ,  iy  ) 

0011  c - 

0012  c  Move  to  absolute  graphics  window  position  . 

001.3 

0014  include  'PntAbs.inc* 

0015  include  'WinLim.inc' 

0016 

0010  ixabs  *  ix 

0019  iyabs  =  iy 

0019 

0020  call  MovoTo  (  »val (ixabs)  ,  *val (iGyMax-iyabs)  ) 
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0021 

0022  return 

0023  end 


0001  c . Load  a  file  of  STROCTORE  and  PARAMETER  definitiona  at  compile  time 

0002 

0003  !IG  toolbox2 . f inc 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  ! !M  Inlines,  f 

0008 

0009  c - 

0010  subroutine  MovRel  (  ix  ,  iy  ) 

0011  - - 

0012  c  Move  to  relative  graphics  window  position  . 

0013 

0014  include  'PntAbs.inc' 

0015  include  'WinLim.inc' 

0016 

0017  ixabs  “  ixabs  +  ix 

0018  iyabs  -  iyabs  +  iy 

0019 

0020  call  MoveTo  (  %val (ixabs)  ,  %val (iGyMax-iyabs)  ) 

0021 

0022  return 

0023  end 


0001  SOBRODTINE  NOGAPS (  Z,  X,  Y,  TBLVl,  TBLV2 ,  FIRST  ) 

0002  Q* ****************************************** *******************************c 


0003  C  C 
0004  C  THIS  PROGRAM  DOES  A  TABLE  LOOKUP  FOR  EAST  AND  NORTH  WIND  VECTORS  C 
0005  C  AT  THE  ALTITUDE,  LATITUDE, AND  LONGITUDE  SPECIFIED.  C 
0006  C  C 
0007  c  THE  OUTPUTS  OF  THIS  PROGRAM  ARE  EAST  AND  NORTH  WIND  VECTORS.  C 
0008  C  C 


0010  C 

0011  LOGICAL  FIRST 

0U12  REAL  K,V 

0013  INTEGER  I,  IPl , NL,  ND, NGRD, MGRD, MAT 

0014  DIMENSION  F  (  3000  ),  V  (  3  ),  DDV  (  3  ) 

0015  DIMENSION  I  (  3  ),  IPl  (  3  ),  NL  (  3  ),  NU  (  3  ) 

0016  C 

0017  SAVE 

0018  C 

0020  C 

0021  V(l)  =  Z 

0022  V(2)  =  Y 

0020  V(3I  =  X 

n024 

r'OO^  III)  =  1 

'02‘'-  1(2)  =>1 

"102"  1(3)  =1 

'"028  C 

READ  IN  THE  EAST  VECTOR  FILE 

0  0  30 

0031  IF (FIRST) THEN 

0  0  3  2  OP EN ( UNI T- 1 5 , STATUS- ' OLD ' , FI LE- • EAST . DAT ' ) 

0  0  3  3  C 
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0034 

j-i 

0035 

READdS,  l)F(J)  ,F(J+1)  ,r(J+2) 

0036 

1 

FORMAT (F8.3,F8.3,F8.3) 

0037 

READ(15,  *) 

0038 

MGRD-INT(F(2) ) 

0039 

NGRD-INT(F(3) ) 

0040 

MAT-MGRD*NGRD 

0041 

C 

0042 

DO  J-4, 12, 4 

0043 

READdS,  6)F(J)  ,F(Ji-i)  ,F(J+2)  ,F(J+3) 

0044 

END  DO 

0045 

READ (15, *) 

0046 

DO  J-13,MGRD+12, 4 

0047 

READdS,  6)F(J)  ,F(J+1)  ,F(J+2)  ,F(J+3) 

0048 

END  DO 

0049 

READ  (15,  *) 

0050 

DO  J-MGRD+13,MaRD+NGRD+12, 4 

0051 

READdS,  6)F(J)  ,F(J+1)  ,F(J+2)  ,F(J+3) 

0052 

END  DO 

0053 

READ  (15,  *) 

0054 

DO  J-MGRD+NGRD+13,MGRD+NGRD+MAT+12, 4 

0055 

READ(15,5)F(J) ,F(J+1) ,F(J+2) ,F(J+3) 

0056 

END  DO 

0057 

CD 

o 

Q 

0058 

DO  J-(JJ-l) *MAT+ (MGRD+NGRD+MAT+13) , JJ*MAT+ (MGRD+NGRD+MAT+12 ) , 4 

0059 

READ  (15, 5)  F(J)  ,F(J+1)  ,  F(J+2)  ,  F(J+3) 

0060 

END  DO 

0061 

END  DO 

0062 

c 

0063 

5 

FORMAT(F8.3,F8.3,F8.3,F8.3) 

0064 

6 

FORMAT(F9.3,F9.3,F9.3,F9.3) 

0065 

0066 

CLOSE (15) 

0067 

END  IF 

0068 

c 

0069 

C.  .  , 

...BEGIN  TABLE  LOOKOP  FOR  EAST  VECTOR 

0070 

c 

0071 

N1  -  INT(r(l)) 

0072 

N2  -  INT(F(2)) 

0073 

N3  -  INT(F(3)) 

0074 

c 

0075 

c .  . 

.  .  .COMPUTE  UPPER  BOUNDS  ON  INDICES  FOR  Z, 

Y, 

AND 

X 

0076 

c 

0077 

ND(1)  -  3  +  N1 

0078 

ND(2)  •=  NU(l)  +  N2 

0079 

NU  (3)  -  NO  (2)  +  N3 

0080 

c 

0081 

c .  .  , 

.  .  .COMPOTE  LOWER  BOUNDS  ON  INDICES  FOR  Z, 

Y, 

AND 

X 

0082 

c 

0087 

NLd)  -  4 

0084 

NL(2)  =  NL(l)  +  N1 

0085 

NL(3)  =  NL(2)  +  N2 

0086 

c 

COS' 

c.  .  , 

.  .  .  LOOP  FOP.  ALL  THREE  INDICES 

0088 

r'* 

n  ri  B  a 

2  0':’  0=1.? 

0090 

onoi 

c .  .  , 

.  .  .GET  INDICES  IN  BOUNDS 

0092 

r' 

0  0  9  J 

IF(  I{Ji  .  LT  .  NL(  Jt  »  1(-D  =  NLfv’T) 

0094 

TFf  1(0)  .GT.  NU(0)-1  )  =  NU'Oi  - 

1 

00  95 

c 

0  0  9  8 

c . 

...FIND  GREATEST  LOWER  BOUND  ON  INDEX 

riOQ*' 

r 
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0098 

110 

CONTINUE 

0099 

ipi(j)  -  i(j)  +1 

0100 

IF(  V(J)  .LE.  F(IP1(J))  )  GO  TO  130 

0101 

IF(  IPl(J)  .EQ.  MD(J)  )  GO  TO  150 

0102 

I(J)  -  IPl(J) 

0103 

GO  TO  110 

0104 

120 

CONTINOE 

0105 

IF{  I(J)  .EQ.  NL(J)  )  GO  TO  140 

0106 

I(J)  -  I(J)  -  1 

0107 

130 

CONTINUE 

0108 

IF(  V(J)  .LT.  F(I(J))  )  GO  TO  120 

0109 

140 

CONTINUE 

0110 

IPl(J)  -  I(J)  +1 

0111 

150 

CONTINUE 

0112 

c 

0113 

c. .  . 

.  .  .  .  GET  PARTIALS  OF  INDEPENDENT  VARIABLES 

0114 

c 

0115 

DDV(J)  -  (  V(J)  -  F(1(J))  )/(  F(IP1(J))  -  F(I 

0116 

c 

0117 

200 

CONTINUE 

0118 

c 

0119 

c. .  . 

.  .  . .  GET  ALL  INDICES  INTO  COEFFICIENT  ARRAY 

0120 

c 

0121 

N2  -  N1*N2 

0122 

c 

0123 

NN  -  Nl*(  1(2)  -  NL(2)  )  +  N2*  (  1(3)  -  NL(3) 

0124 

c 

0125 

Nlll  -=  NU(3)  +  1  +  1(1)  -  NL(1)  +  NN 

0126 

N211  -  Nlll  +  1 

0127 

N121  -  Nlll  -6  N1 

0128 

N221  -  N121  +  1 

0129 

N112  -  Nlll  +  N2 

0130 

N212  -  N112  +  1 

0131 

N122  •>  N121  +  N2 

0132 

N222  «  N122  +  1 

0133 

c 

0134 

PlAl  -  DDV(1)*(  F(N2ll)  -  F(Nlll)  )  +  F(Nlll) 

0135 

PlBl  -  DDV(1)*(  F(N221)  -  F(N121)  )  -f  F(N121) 

0136 

P2A1  -  DDV(1)*(  F(N212)  -  F(N112)  )  -f  F(N112) 

0137 

P2B1  -  DDV(1)*(  F(N222)  -  F(N122)  )  -f  F(N122) 

0138 

c 

0139 

Til  -  DDV(2)*(  PlBl  -  PlAl  )  +  PlAl 

0140 

T21  -  DDV(2)*(  P2B1  -  P2A1  )  +  P2A1 

0141 

c 

0142 

c. .  .  . 

.  .TBLVl  IS  THE  EAST  VECTOR  OUTPUT 

0143 

c 

0144 

TBLVl  -  DDV(3)*(  T21  -  Til  )  Til 

0145 

c 

0146 

c .  .  .  . 

.  .READ  IN  THE  NORTH  VECTOR 

014T 

n 

0148 

IF (FIRST) THEN 

014? 

OPEN (UNIT=15 , STATUS='OLD' , FI LE= ' NORTH . DAT ' ) 

0150 

J-1 

0151 

READ (15, 101) F  (J)  ,  F ( J+1)  , F ( J+2) 

0152 

101 

FORMAT (F8.3,r8.3,F8.3t 

015- 

READ  (15.  "  ) 

0154 

MGRD-INT (F (2) ) 

0  5  f 

NGP.D=ItJT  (F  (31  ■) 

1  5  6 

MAT«MGPD*NGPD 

C15~ 

C150 

DC  J=4  , 1,: ,  4 

0-159 

READ  (15, 106) F (J)  , F ( J+1)  , F ( J+2)  , F (J+3) 

0160 

END  DC' 

0161 

PXAD  (15,*) 
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0162 

DO  J-13,MGRD+12, 4 

0163 

READ  (15,  106)  F(J)  ,  F  ( J+1 )  ,  F  ( J+2)  ,  F  ( J+3) 

0164 

END  DO 

0165 

READ(15,  *) 

0166 

DO  J-MGRD+13, MGRD+NGRD+12, 4 

0167 

READ  (15, 106)  F(J)  ,F(J+1)  ,F(J+2)  ,F(J+3) 

0168 

END  DO 

0169 

READ (15, *) 

0170 

DO  J-MGRD+NGRD+13, MGRD+NGRD4MAT+12, 4 

0171 

READ  (15,  105)F(J)  ,F(J+1)  ,  F  f  J+2)  ,  F  ( J+3) 

0172 

END  DO 

0173 

DO  JJ-1, 8 

0174 

DO  J-(JJ-l)  »MAT+  (MGRD+NGRD+MAT+13)  ,  JJ+MAT+  (MGRD-' NGRD+MAT  +  12 )  ,  4 

0175 

READ  (15, 105)  F  ( J)  ,  F  (J+1)  ,  F  (J+’)  ,  F  (J+3) 

0176 

END  DO 

0177 

END  DO 

0178 

c 

0179 

105 

FORMAT(F8.3,F8.3,F8.3,F9.3) 

0180 

106 

FORMAT(F9.3,F9.3, F9.3,F9.3) 

0181 

0182 

FIRST  -  .FALSE. 

0183 

CLOSE (15) 

0184 

ENDIF 

0195 

r* 

0186 

c .  .  . 

..BEGIN  TABLE  LOOKOP  FOR  NORTH  VECTOR 

0187 

c 

0188 

PlAl  -  DDV(1)»(  F(N211)  -  FCNlil)  )  +  F(Nlll) 

0189 

PlBl  •=  DDV(1)*(  F(N221)  -  F(N121)  )  +  F(N.,.21) 

0190 

P2A1  -  DDV(1)»(  F(N212)  -  F(Nxl2)  )  +  F(N112) 

0191 

P2B1  -  DDV(1)*(  F(N222)  -  F(N122)  )  +  F(N122) 

0192 

n 

0193 

Til  -  DDV(2)*(  PlBl  -  PlAl  )  +  PlAl 

0194 

T21  -  DDV(2)*(  P2B1  -  P2A1  )  +  P2A1 

0195 

c 

0196 

c .  .  . 

.  .TBLV2  IS  THE  NORTH  VECTOR  OOTPOT 

0197 

c 

0198 

TBLV2  -  DDV(3)*(  T2 1  -  Til  )  +  Til 

0199 

c 

0200 

IZ  -  I  (1) 

0201 

lY  “  I  (2) 

0202 

IX  =  1(3) 

02  03 

c 

0204 

RETURN 

0205 

END 

O  (j  f ' 

integer*2  function  nquant  (  value  ,  quantm  ) 

n  Cl  n  4 

c. 

quantize  the  input  value  to  the  nearest  number  of  counts  in 

either  the 

^>0  0  5 

c 

positive  or  negative  direction  as  indicated  by  the  sign  of 

the 

n  ^ 

quantization  factor 

0  0  8 

c.  . 

.  .  .halt  if  quantization  factor  is  zero 

if  quantm  .  eq  .  c  .  9  f  then 

n  1  ; 

pause  'quantization  factor  cannot  zei'  ' 

:  X 

-all  e;;it 

r  r 

end  If 

: 

.  .  .quantize  t c  the  nearest  quantum  m  the  positive  direction 

n  r,  1  - 

if  '  quantm  .  crt  .  0  .  )  then 

9  0  1  ^ 

nqjart  ”  inint  (  value , qvantm  +  0.5  ) 
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remain  ■  quantm^float (nquant)  -  value 
if  (  rema  in  .  eq .  quantm  )  t.hen 
nquant  —  nquant  -  1 
end  if 
end  if 


.quantize  to  the  nearest  quantum  in  the  negative  direction 


if  (  quantm. It . 0 . 0  )  then 
quantp  —  -  quantm 

nquant  —  inint  (  value/quantp  -  0.5  ) 
remain  »  value  -  quantp*float (nquant) 
if  (  remain. eq. quantp  )  then 
nquant  »  nquant  +  1 
end  if 
end  if 


intoger*2  function  ntrvl  (  x  ,  xt  ,  nx  ,  idir 


determine  the  index  in  a  monotonic  data  table  associated  with  the  input 
value,  Uses  binary  search  algorithm. 


integer *2 
integer*2 
integer *2 
integer *2 
integer 
real *4 


idir 

ixmid 


xt  (n.x) 


, the  data  tab‘'e  has  ascerding  values 


if  (  idir.gt.'^  )  then 

if  (  x.ge.xtd)  .and.  x.le.xt(nx)  then 
i.xmin  =  1 
i.xma.x  -  nx 

do  while  (  ixmax , ne . ixmin+ 1  ) 
ixmid  *  (  ixmin  +  ixmax  ) /2 
if  (  X , ge , xt (ixmid)  )  then 
ixmin  —  ixmid 
else 

ixmax  »  ixmid 
er.d  if 
end  do 

ntrvl  *  ixmin 
return 

else  xf  f  x.lt.xt(l)  )  then 
ntrvl  0 

return 

else  i  r  .a*’  .,;t  ln;:>  »  then 


he  '.i  .*  n  l.a«-  Ina  vaiu*  :i 


e  1  if  '  id  1  r  .  1  !  t  hen 

if  (  ::.le.;:*  (1)  .and.  ::.ae.xt  <n::'  )  then 

ixmin  -  1 
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0044  do  while  (  ixjnax  .  ne .  ixmin+l  ) 

0045  ixmid  *  (  ixmin  +  ixmax  ) /2 

0046  if  (  X.  le .  xt  (ixmid)  )  -then 

0047  ixmin  -  ixmid 

0048  else 

0049  ixmax  —  ixmid 

0050  end  if 

0051  end  do 

0052  ntrvl  -  ixmin 

0053  return 

0054  else  if  (  x.gt.xt(l)  )  then 

0055  ntrvl  —  0 

0056  return 

0057  elseif(  x.lt.xt(nx)  )  then 

0058  ntrvl  ■  nx 

0059  return 

OOCC  end  if 

0061 

0062  c . the  data  is  not  monotonic 

0063 

0064  else  if  (  idir.eq.O  )  then 

0065  end  if 

00  66 

006"'  return 

0068  end 


n  n  /1 3 
0'  0  4 
000  = 
0  0  0  6 
o  o  0  7 

0008 
0009 
0010 
0011 
0012 
C'  0 1  3 
00 14 
0  1 
0016 
0  1  ■' 
on  1  p 
'0 1  9 


^,n~ 


inteqer  function  NumChr  (  ChrStt  .  ingth  ) 


j:  left  justify  the  Character  string  (ChrStr)  and  determine  the  number  of  non 

blank  characters  in  it. 

character *(* 1  ChrStr 

ileft  «  1 
iright  =  1 

c . get  leftmost  non  blank  character 

do  i  »  1  ,  Ingth 

i f  (  ChrSt  r ( i : i )  , ne .  '  ’  )  then 

ileft  «  i 
leave 
«nd  if 
end  do 

^ . get  riaht  m<''.st  non  blank  charat~6ei 


ne .  ’  ’  '  t  hen 


*:  h  o :  ; 


nMrri'«*r  ■  f  )  lank  • -har 

Nurr.  .'hr  irnh*  -  ilef*"  *  ^ 
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0038 

0039  c . left  justify  the  string 

0040 

0041  ChrStr (l:NumChr)  -  ChrStr (ileft :iright) 

0042  ChrStr (NumChr+l : Ingth)  •  '  * 

0043 

0044  return 

0045  end 

0001  c . Load  a  file  of  STRDCTDRE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  MG  toolbox2  .  fine 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  MM  Inlines. f 

0008 

0009  c - 

0010  subroutine  OpenBitMap  (  newOffScreen  ,  myBitH  ,  inBounds  ) 

ODII  c - 

0012  c  open  an  off  screen  bit  map  to  save  the  contents  of  the  graphics  window 

0  0 1 3 

0014  record  /  GrafPtr  /  savePort 

0015  record  /  GrafPtr  /  newPort 

0016  record  /  GrafPtr  /  newOffScreen 

001^  record  /  GrafPort  /  myNewport 

0018  record  /  Handle  /  myBitH 

0019  record  /  Rect  /  inBounds 

0020  integer*4  mySize 

0C2I 

0022  c . get  a  pointer  to  the  current  port 

002  3 

0024  call  GetFort  (  '^ref  (savePort)  ) 

0025 

0026  c . open  a  new  port 

002" 

0028  mySize  “  jSizeOf  (  myNewPort  ) 

0029  newPort  «  NewPtr  (  %val(mySize)  ) 

0030  call  OpenPort  (  »val (newPort )  ) 

0  C'  3 1 

0032  c . sot  port  attributes  and  allocate  a  locked  memory  block 


n  3  3 

0'034  newPort . Graf P ^  . portRect  *  inBounds 

''".  3  5  call  RectRgn  (  ^val  ( newPort .  Graf  P''' .  clipRgn )  ,  ^val  ( inBounds )  ) 


'‘  '^'3^  call  RectRgn  (  ^val  (newPort . Graf vi sRgn)  ,  %val  ( inBounds )  ) 

0''  3''  newPort  .GrafP^  .portBiLS  .bounds  =  inBounds 

'' '  newPort  .  Gr  afP  port  Bit  s  .  rowBytes  =  (  inBounds  .  right  -  inBounds  .  left  15  ),16*2 

'■  ■  '•  rr  yS  i  ze  «  newPort  .  Gr  af  P '''  .  port  Bit  s  .  r  owB^'t  es  *  ( 

1  nP'^’jnds  .  be’:  err.  -  inBounds.  top  ? 

'  4'  =  NewHandl^  (  *val(mySize)  ) 

■'^'4  1  rail  HLo'':-V,  (  •  va  1  ( myEi  t  H i  j 

‘7  4*;.  newt  or*:  .  Tiraf  f  '  .  p*ort  Bit  s  .  baseAddr  myEit  H  .  bhdl"  .  bpt  r 

: 

"'"44  . era.s*:'  *  h*-  y--  r*  si.i. ■.:«=•  i’  i  ?us*  merr'  :  •. 

4 'a!  i  F.r  a3«*F»=»  ■■*  <  •  va  1  (  i  nb ' ’’nd's  ’  J 

4 

4;-  . avc.  a  pointer  t-  the  new  ,.ff  screen  1  i*  nai  and  ic^.c:*:cie  the  previ 

4  '■  w  :  r;  '1  w 


le w' f  f  ocr e© n  ”  newTort 

■ail  ?©*■-? -'r*  (  '  val  (  savePo-rt  1 
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0054  return 

0055  end 


0001 

!  !  8 

PenDat 

0003 

block 

data  PenDat 

0005 

C 

arra> 

of  pen  commands 

0006 

c 

0 

V  move  i 

pen  up 

0007 

c 

1 

^  draw  If 

pen  down 

l008 

c 

2 

Y  end  of 

data 

0C09 

0010 

include  ’ PenCom . inc ’ 

ooi: 

0012 

data 

( PenCommand { i) , i« 

1 

80)/ 

0013 

.  0 

,  1 

,  1 

, 

1 

1 

,  1 

,  1 

,  1 

, 

0014 

.  1 

,  1 

,  0 

1 

1 

,  1 

,  1 

,  1 

0015 

.  1 

,  1 

,  1 

0 

1 

,  1 

,  1 

,  1 

0016 

.  1 

,  1 

,  1 

1 

1 

,  0 

,  1 

,  1 

0017 

,  1 

,  1 

,  1 

1 

1 

,  0 

,  1 

,  1 

0018 

.  1 

,  1 

,  1 

0 

1 

,  1 

,  1 

,  1 

0019 

.  1 

,  1 

,  1 

1 

0 

,  1 

,  1 

,  1 

, 

0020 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  0 

0021 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

0022 

.  1 

,  1 

,  1 

0 

1 

,  1 

,  1 

,  1 

/ 

0023 

data 

1  PenCommand  ( i )  ,  i«= 

81 

160)/ 

0024 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

0025 

.  1 

,  0 

,  1 

1 

1 

,  1 

,  1 

,  1 

f 

0026 

.  1 

,  1 

,  1 

1 

1 

,  0 

,  1 

,  1 

f 

0027 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

t 

0028 

.  1 

,  1 

,  1 

1 

1 

,  0 

,  1 

,  1 

t 

0029 

.  1 

,  1 

,  1 

1 

1 

.  1 

,  1 

,  0 

f 

0030 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

1 

0031 

.  1 

,  1 

,  1 

0 

1 

,  1 

,  1 

,  1 

t 

0032 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

t 

0033 

.  1 

,  0 

,  1 

1 

1 

,  1 

,  1 

,  1 

/ 

0034 

data 

( PenCommand ( i ) , i* 

161 

240)/ 

0035 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

0036 

.  0 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

0037 

.  1 

,  1 

,  1 

1 

0 

,  1 

,  1 

,  1 

0038 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

0039 

.  1 

,  0 

,  1 

1 

1 

,  1 

,  1 

,  1 

0040 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  0 

0041 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

004  2 

.  1 

,  0 

,  1 

1 

1 

,  1 

,  1 

,  1 

00  4  3 

.  1 

,  0 

,  1 

1 

1 

,  1 

,  1 

,  1 

00  4  4 

.  1 

,  1 

,  1 

0 

1 

,  1 

,  1 

,  1 

0  C'  4  5 

data 

( PenCommand ( i) , i- 

241, 

320)  / 

r- 4  c 

.  1 

.  1 

,  0 

1 

1 

,  1 

,  1 

,  1 

n  n  4  - 

.  1 

0 

,  1 

1 

1 

,  1 

,  1 

,  1 

V’ ■  4  ^ 

,  1 

,  1 

1 

1 

,  1 

,  1 

,  1 

r.  V  4 

.  1 

A 

,  1 

1 

1 

,  1 

,  1 

,  0 

.  1 

,  1 

,  1 

1 

1 

. 

,  1 

,  1 

•  - 

•  ' 

.  1 

1 

X 

,  1 

1 

.  1 

.  i 

J 

1 

i 

.  1 

,  1 

,  1 

■'  '  5  4 

1 

r, 

1 

1 

.  1 

.  1 

,  1 

f  .  i  i. 

. 

1 

,  X 

f 

1 

.  1 

,  1 

,  1 

r  .  .  c 

data 

(  E  enCommand  <  i)  , 

321. 

' 

. 

.  1 

n 

1 

1 

,  1 

,  1 

,  1 

. 

,  1 

,  1 

1 

n 

,  1 

,  1 

,  1 

,  r-  -j 

. 

,  1 

,  1 

0 

X 

,  1 

,  1 

,  1 

, 

. 

,  : 

,  1 

1 

1 

.  0 

1 

,  1 
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0061 

.  1 

,  1 

,  1 

r 

1 

1 

,  1 

,  0 

t 

1 

0062 

.  1 

,  1 

,  1 

t 

1 

1 

,  1 

,  0 

0 

1 

0063 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

1 

0064 

.  0 

,  1 

,  1 

1 

1 

,  1 

,  0 

1 

0065 

.  1 

,  1 

,  1 

1 

0 

,  1 

,  1 

0 

1 

0066 

.  1 

,  1 

,  1 

0 

1 

,  1 

,  1 

t 

1 

0067 

data 

( PenCommand ( i ) , i* 

401 

480)  / 

0068 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

0 

0 

0069 

.  1 

,  1 

,  1 

1 

t 

1 

,  1 

,  1 

1 

0070 

.  1 

,  0 

,  1 

1 

t 

1 

,  1 

,  1 

1 

0071 

.  1 

,  1 

,  1 

0 

t 

1 

,  1 

,  1 

1 

0072 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

0 

0073 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

0 

1 

0074 

.  1 

,  1 

,  1 

0 

t 

1 

,  1 

,  1 

0 

1 

0075 

.  1 

,  1 

,  1 

1 

t 

1 

,  1 

,  1 

t 

0 

0076 

.  1 

,  1 

,  1 

1 

$ 

1 

,  1 

,  1 

0 

1 

0077 

.  0 

,  1 

,  1 

1 

1 

,  1 

,  1 

1 

0078 

dat  a 

(PenCommand ( i ) , i— 

481 

560)  / 

0079 

.  1 

,  1 

,  0 

1 

1 

,  1 

,  1 

1 

0080 

.  1 

,  1 

,  1 

1 

t 

1 

,  1 

,  0 

1 

0081 

.  1 

,  1 

,  1 

1 

t 

1 

,  1 

,  1 

1 

0082 

.  1 

,  0 

,  1 

1 

0 

1 

,  1 

,  1 

1 

0083 

.  1 

,  1 

,  1 

t 

1 

t 

0 

,  1 

,  1 

1 

0084 

.  1 

,  1 

,  1 

t 

1 

t 

1 

,  1 

,  0 

0 

1 

0085 

.  1 

,  1 

,  1 

* 

1 

f 

1 

,  1 

,  0 

0 

1 

0086 

.  1 

,  1 

,  1 

1 

0 

1 

,  1 

,  0 

t 

1 

0087 

.  1 

,  1 

,  1 

1 

t 

1 

,  1 

,  0 

0 

1 

0088 

.  1 

,  1 

,  1 

1 

0 

1 

,  1 

,  1 

0 

0 

0089 

data 

( PenCommand ( i ) ,1= 

561 

640)/ 

0090 

.  1 

,  1 

,  1 

1 

0 

1 

,  0 

,  1 

0 

1 

0091 

.  1 

,  1 

,  1 

1 

0 

1 

,  1 

,  0 

0 

1 

0092 

.  1 

,  1 

,  1 

r 

1 

0 

1 

,  1 

,  1 

0 

1 

0093 

.  1 

,  0 

,  1 

1 

1 

0 

1 

,  1 

,  1 

t 

1 

0094 

.  1 

,  1 

,  1 

t 

1 

0 

0 

,  1 

,  1 

0 

1 

0095 

.  1 

,  1 

,  1 

1 

1 

,  0 

,  1 

0 

1 

0096 

.  1 

,  1 

,  1 

1 

0 

,  X 

,  1 

0 

1 

0097 

.  1 

,  1 

,  1 

1 

0 

,  1 

,  1 

0 

1 

0098 

.  1 

,  1 

,  1 

1 

0 

1 

,  1 

,  0 

0 

1 

0099 

.  1 

,  1 

,  1 

1 

0 

1 

,  1 

,  1 

0 

1 

0100 

data 

( PenCommand ( i ) , i* 

641 

720)/ 

0101 

.  1 

,  0 

,  1 

1 

1 

,  1 

,  1 

0 

1 

0102 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

0 

1 

0103 

.  0 

,  1 

,  1 

1 

1 

,  1 

,  1 

1 

0104 

.  0 

,  1 

,  1 

1 

1 

,  1 

,  1 

1 

0105 

.  1 

,  1 

,  0 

1 

1 

.  1 

,  1 

1 

0106 

.  1 

,  1 

. 

0 

1 

,  1 

,  1 

1 

010  7 

.  1 

,  1 

,  1 

1 

0 

,  1 

,  1 

1 

0108 

.  1 

,  1 

,  1 

1 

1 

,  1 

,  1 

1 

010  9 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

1 

Oil':' 

.  1 

,  1 

,  1 

1 

0 

,  1 

,  1 

1 

0111 

data 

(PenCommand ( i ) , i= 

721 

800)  / 

0112 

.  i 

0 

,  1 

1 

1 

,  1 

,  0 

1 

0’  13 

.  1 

,  1 

,  1 

1 

0 

,  1 

.  1 

1 

0114 

.  1 

,  1 

,  1 

0 

1 

,  1 

,  1 

1 

■ '  1  1  0 

.  1 

.  ] 

.  : 

1 

1 

,  1 

1 

''116 

.  1 

.  1 

,  ] 

1 

1 

n 

Oil' 

.  1 

,  1 

,  1 

o 

1 

.  1 

.  1 

1 

Oil'' 

1 

.  1 

,  1 

0 

] 

,  1 

,  1 

1 

"11  0 

: 

1 

1 

0 

J 

,  1 

.  1 

1 

'  1  2  '■ 

.  1 

,  1 

.  1 

1 

1 

1 

0  1  2  .. 

.  1 

,  '' 

,  1 

1 

] 

,  1 

n 

1 

.  2  2 

dat  a 

(FonCommand ' 

i)  ,  i= 

801 

880)  ,• 

012  2' 

1 

,  1 

,  1 

1 

0 

,  1 

,  1 

, 

1 

1 2  4 

.  1 

,  1 

,  1 

1 

, 

0 

,  1 

,  1 

, 

1 

/ 


/ 


/ 


/ 


171 


CHR/91-2750 


0125 

.  1 

,  1 

1 

0126 

.  1 

,  1 

1 

0127 

.  1 

,  1 

1 

0128 

.  1 

,  1 

1 

0129 

.  1 

,  1 

1 

0130 

.  1 

,  1 

1 

0131 

.  1 

,  1 

1 

0132 

.  1 

,  1 

0 

0133 

data 

(PonConunand  (i) 

,  i“ 

0134 

.  1 

,  1 

1 

0135 

.  1 

,  0 

1 

0136 

.  1 

,  0 

1 

0137 

.  1 

,  0 

0138 

.  1 

,  0 

1 

0139 

.  1 

,  1 

0 

0140 

0 

,  1 

1 

0141 

.  1 

,  1 

0 

0142 

.  1 

,  1 

1 

0143 

.  0 

,  1 

0 

0144 

data 

( PenCommand ( i ) 

, 

0145 

.  0 

,  1 

0 

0146 

.  0 

,  1 

0 

0147 

.  1 

,  1 

0 

0148 

.  0 

,  1 

0 

0149 

.  0 

,  1 

0 

0150 

.  1 

,  1 

1 

0151 

.  0 

,  1 

0 

0152 

.  1 

,  1 

1 

0153 

.  0 

,  1 

0 

0154 

.  1 

,  0 

1 

0155 

data 

( PanConvmand  ( i )  ,  i“ 

0156 

.  1 

,  0 

1 

0157 

.  1 

,  1 

1 

0158 

.  1 

,  1 

1 

0159 

.  1 

,  1 

1 

0160 

.  1 

,  1 

1 

0161 

.  1 

,  1 

1 

0162 

.  0 

,  1 

1 

0163 

.  1 

,  1 

0 

0164 

.  1 

,  0 

1 

0165 

,  1 

,  0 

1 

0166 

data 

( PenCommand ( i )  ,  i* 

016  / 

.  1 

.  1 

1 

0168 

.  1 

,  1 

1 

016? 

,  1 

.  1 

1 

0170 

.  1 

,  1 

0 

0171 

.  1 

,  1 

1 

0172 

.  1 

,  0 

1 

01  7  J 

.  1 

,  0 

1 

7174 

.  1 

,  0 

1 

Cl'5 

.  1 

.  0 

1 

0176 

.  1 

,  1 

1 

r'l"’  ' 

dat  a 

(PenComman  Mi)  ,  i= 

Oll-P 

.  1 

,  1 

1 

0  1  7  0 

.  1 

0 

1 

018  0 

.  1 

1 

0  1  R  1 

.  1 

,  '''■ 

: 

0182 

.  1 

,  1 

f\ 

018  3 

.  1 

1 

0184 

.  7 

.  1 

1 

0185 

.  1 

,  1 

r. 

0186 

.  1 

0 

1 

018'^ 

.  0 

,  1 

1 

018  8 

d  ■  - 

1 PenCommand ( i ) , i= 

961,  1040)/ 
,  1 


1120)/ 


1121,  1200)/ 

,  1 

,  1 

,  1 

,  1 

,  0 

,  0 

,  0 

,  0 

,  0 

.  1 

1201,  1280), 

,  1 


n 

.  1 

n 

,  1 

n 

n 

.  1 

r. 

,  1 

, 

L' 

,  1 

.  1 

,  1 

,  1 

1 

.  1 

,  1 

,  1 

,  1 

.  1 

,  1 

,  1 

,  1 

.  1 

,  1 

,  1 

1 

,  1 

,  1 

,  1 

1 

,  1 

.  1 

,  1 

,  1 

1 

,  1 

,  1 

,  1 

, 

=  1281,  1360)/ 
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0189 

.  1 

,  1 

1 

0 

1 

0190 

.  1 

,  1 

1 

1 

0 

0191 

.  0 

,  1 

0 

1 

0 

C192 

.  0 

,  1 

1 

1 

1 

0193 

.  1 

,  1 

0 

1 

1 

0194 

.  1 

,  1 

1 

1 

1 

0195 

.  0 

,  T- 

0 

1 

1 

0196 

.  1 

,  1 

1 

1 

1 

0197 

.  1 

,  0 

1 

0 

1 

0198 

.  1 

,  0 

1 

1 

1 

0199 

data 

(PenCommand (i) 

,i-  1361, 

1440)  / 

0200 

.  1 

,  0 

1 

0 

1 

0201 

.  1 

,  0 

1 

1 

1 

0202 

.  1 

,  1 

1 

0 

1 

0203 

.  1 

,  1 

1 

1 

1 

0204 

.  1 

,  1 

1 

1 

1 

0205 

.  0 

,  1 

0 

1 

0 

0206 

.  0 

,  1 

0 

1 

1 

0207 

.  1 

,  1 

1 

1 

1 

0208 

.  1 

,  0 

1 

0 

1 

0209 

.  1 

,  0 

1 

0 

1 

0210 

data 

( P  enConunand  ( i ) 

,i-  1441, 

1520)/ 

0211 

.  1 

,  0 

1 

0 

1 

0212 

.  1 

,  1 

1 

0 

1 

0213 

.  1 

,  0 

1 

1 

1 

0214 

.  1 

,  0 

1 

0 

1 

0215 

.  1 

,  0 

1 

1 

1 

0216 

.  1 

,  0 

1 

0 

1 

0217 

.  1 

,  0 

1 

0 

1 

0218 

.  1 

.  0 

1 

0 

1 

0219 

.  1 

,  1 

1 

0 

1 

0220 

.  1 

,  0 

1 

0 

1 

0221 

data 

(PenCommand ( i) , i“  1521 

,  1600)/ 

0222 

.  1 

,  0 

1 

0 

1 

0223 

.  1 

,  0 

1 

1 

1 

0224 

.  1 

,  0 

1 

0 

1 

0225 

.  1 

,  0 

1 

1 

1 

0226 

.  1 

,  0 

1 

1 

1 

0227 

.  0 

,  1 

0 

1 

0 

0228 

.  1 

,  1 

0 

1 

0 

0229 

.  0 

,  1 

0 

1 

0 

0230 

.  0 

,  1 

0 

1 

0 

0231 

.  0 

,  1 

0 

1 

0 

0232 

data 

(PenCommand (i 

)  , i-  1601 

,  1680)/ 

0233 

.  1 

,  1 

1 

1 

1 

0234 

.  1 

,  1 

1 

1 

1 

0235 

.  1 

,  1 

1 

0  , 

1 

0236 

.  1 

,  1 

1 

1 

1 

0237 

.  1 

-  1 

1 

1 

1 

0238 

.  1 

,  1 

1 

1 

1 

023  9 

.  1 

1  , 

0 

1 

1 

0  2  4  0 

.  1 

,  1 

1 

1 

1 

0241 

0 

,  1 

1 

1 

1 

0242 

.  0 

,  1 

1 

1 

1 

024? 

dat  a 

(  PenCominand  ^  i  )  ,  1  1 

,  1760) 

<.244 

n 

,  1 

1 

1 

1 

02  4  5 

.  1 

r 

1 

1 

1 

n24C 

n 

.  1 

1 

1 

1 

02  4' 

.  1 

,  1 

/■l 

2 

1 

02  4  P 

.  1 

1 

r 

1 

J 

('2  4'^ 

1 

.  1 

0 

1 

2 

02  5  C 

.  1 

f  -t-  , 

0 

1 

1 

0251 

.  1 

.  I 

c- 

1 

1 

0  2  5  2 

.  1 

0 

1 

1 

1 

,  0  ,1 

,  1  .0 

,  1  .0 

,  1  -  1 

,  0  ,1 

,  1  -  0 

,  1  ,  0 

,  1  .1 

,  0  ,1 

,  0  ,1 

,  0  ,1 

,  0  ,1 

,  0  ,1 

,  0  ,1 

,  1  ,1 

,  1  ,1 

,  1  ,0 

,  1  ,1 

,  0  ,1 

,0  ,1 

,  0  ,1 

,0  ,1 

,0  ,1 

,  0  ,  1 

,0  ,1 

,0  ,1 

,0  ,1 

,0  ,  1 

,0  ,  1 

,0  ,  1 

,0  ,  1 

,1  ,  1 

,0  ,  1 

,1  .  1 

,1  ,  0 

,1  ,  0 

,1  ,  1 

,1  -  0 

,1  -  0 

,1  r  0 

,1  ,  1 

,1  ,  1 

,1  .  1 

,0  ,  1 

,1  -  1 

,1  .  1 

.1  ,  1 

,1  -  1 

,1  .  1 

,1  ,  1 


,  1  ■  1 

.  1  .  1 

.  1  .1 
.  1  .  1 

.1  .1 
,  1  ,  1 

,  1  ,  1 

,  1  ,  1 

,  1  ,  1 


,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  0 

,  0 

,  0 

,  1 

,  1 

,  1 

,  0 

,  1 

,  1 

,  1 

,  0 

,  0 

,  0 


,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  1 

,  0 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 


1 

1 

i 

1 

1 

1 

1 

1 


/ 


/ 


/ 
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0253 

.  0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

/ 

0254 

data 

( PenCoimnand  ( i ) 

,  i” 

1761, 

1840)  / 

0255 

.  0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0 

0256 

.  0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0 

0257 

.  1 

,  0 

1 

1 

1 

,  0 

,  1 

,  1 

r 

0258 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  1 

0 

0259 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  0 

0 

0260 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0261 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

0262 

.  1 

,  1 

1 

* 

1 

1 

,  1 

,  1 

,  0 

0263 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  1 

,  1 

0264 

.  1 

,  1 

1 

t 

1 

1 

,  0 

,  1 

,  1 

/ 

0265 

data 

( PenCommand ( i ) 

,  i“ 

1841, 

1920)  / 

0266 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0 

0267 

.  1 

,  0 

1 

1 

± 

,  1 

,  1 

,  1 

0 

0268 

.  1 

,  1 

1 

» 

0 

1 

,  1 

,  1 

,  1 

0 

0269 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  0 

,  1 

0270 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  1 

,  1 

0271 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  1 

0272 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0 

0273 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  1 

t 

0274 

.  1 

,  1 

1 

t 

0 

1 

,  1 

,  1 

,  1 

0 

0275 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  1 

,  0 

/ 

0276 

data 

(PanCommand ( i) 

1921, 

2000)  / 

0277 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0278 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  1 

0279 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

/ 

0280 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  0 

0 

0281 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  1 

,  0 

0 

0282 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  1 

,  1 

0283 

.  0 

,  1 

1 

r 

1 

1 

,  1 

,  1 

,  1 

0 

0284 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  0 

,  1 

0 

0285 

.  1 

,  1 

1 

t 

1 

1 

,  1 

A 

,  1 

0 

0286 

.  1 

,  1 

1 

! 

1 

1 

,  1 

,  1 

,  1 

/ 

0287 

data 

(PenCommand (il 

,  i« 

2001, 

2080)  / 

0288 

.  1 

,  1 

1 

t 

0 

1 

,  1 

,  1 

,  1 

0 

0289 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  1 

,  0 

0 

0290 

.  1 

,  1 

1 

0 

1 

1 

,  1 

,  1 

,  1 

0 

0291 

.  1 

,  1 

1 

0 

0 

1 

,  1 

,  1 

,  1 

0 

0292 

.  1 

1 

1 

0 

1 

1 

,  1 

,  1 

,  1 

0 

02  93 

.  1 

,  1 

0 

0 

1 

1 

,  1 

,  1 

,  1 

t 

0294 

.  1 

,  1 

1 

0 

1 

1 

,  0 

,  1 

,  1 

0 

0295 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

r 

0296 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0 

0297 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  1 

/ 

0298 

data 

( PenCommand ( i  ] 

,  i- 

2081 

2160)  / 

02  99 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

0  3  n  n 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

03  01 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

,  1 

0302 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  1 

0303 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  0 

0  3  0  4 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0  3  0  5 

,  0 

1 

1 

1 

,  1 

,  1 

,  1 

- 

0  3  n  f 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

O'  3  0  " 

n 

,  1 

1 

1 

1 

.  1 

.  1 

,  1 

0308 

.  1 

,  1 

1 

0 

1 

,  1 

1 

,  1 

n-xno 

dat  a 

(renCommand ( i 

,  i* 

2161 

2240> 

0  313 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

O'  3  1 1 

.  1 

,  1 

1 

1 

r* 

,  1 

,  1 

,  1 

^'*10 

.  1 

,  1 

1 

1 

1 

.  1 

,  1 

r 

3  313 

.  1 

.  1 

1 

1 

1 

,  1 

,  1 

,  1 

0314 

0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

n  TIC 

.  1 

,  3 

0 

1 

1 

,  1 

,  1 

,  1 

0310 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 
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0317 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

, 

0318 

.  1 

,  1 

f 

1 

0 

1 

,  1 

,  1 

,  1 

0319 

.  1 

,  1 

, 

1 

1 

1 

,  0 

,  1 

,  1 

/ 

0320 

data 

(P«nCoiTunand  (1) 

,  i— 

2241, 

2320)/ 

0321 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

f 

0322 

.  0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

r 

0323 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

f 

0324 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

t 

0325 

.  0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

t 

0326 

.  0 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

t 

0327 

.  0 

,  1 

1 

1 

1 

,  0 

,  1 

,  1 

t 

0328 

.  1 

,  0 

1 

1 

1 

,  0 

,  1 

1  0 

t 

0329 

.  1 

,  0 

1 

1 

1 

,  0 

,  1 

,  0 

t 

0330 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  0 

/ 

0331 

data 

( PenConunand  { i ) 

,  i— 

2321, 

2400)  / 

0332 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  1 

0333 

.  1 

,  1 

0 

1 

0 

,  1 

,  1 

,  i 

0334 

.  0 

,  1 

0 

1 

0 

,  1 

,  1 

,  1 

0335 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0336 

.  1 

,  1 

0 

1 

1 

,  0 

,  1 

,  1 

0337 

.  1 

,  1 

1 

0 

1 

,  0 

,  1 

,  0 

0338 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  1 

0339 

.  1 

,  0 

1 

1 

1 

,  0 

,  1 

,  1 

0340 

.  1 

,  1 

1 

t 

1 

1 

,  1 

,  1 

,  1 

0341 

.  0 

,  1 

0 

t 

1 

1 

,  1 

,  1 

,  1 

/ 

0342 

data 

(PenCommand (i) 

,  i- 

2401, 

2480)  / 

0343 

.  0 

,  1 

, 

0 

1 

1 

,  1 

,  0 

,  1 

t 

0344 

.  0 

,  1 

, 

1 

! 

1 

1 

,  1 

,  1 

,  1 

t 

0345 

.  1 

,  0 

, 

1 

/ 

1 

0 

,  1 

,  1 

,  1 

r 

0346 

.  1 

,  1 

, 

1 

t 

0 

1 

,  0 

,  1 

,  0 

t 

0347 

.  1 

.  0 

, 

1 

1 

0 

,  1 

,  0 

,  1 

f 

0348 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  1 

,  1 

0349 

.  1 

,  1 

, 

0 

1 

0 

,  1 

,  1 

,  1 

0350 

.  0 

,  1 

, 

0 

1 

0 

,  1 

,  0 

,  1 

t 

0351 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

t 

0352 

.  0 

,  1 

, 

0 

1 

0 

,  1 

,  0 

,  1 

0353 

data 

( PenCommand ( i ) 

,  i” 

2481, 

2560)  / 

0354 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

, 

0355 

.  0 

,  1 

t 

0 

t 

1 

0 

,  1 

,  1 

,  1 

, 

0356 

.  1 

,  1 

f 

0 

t 

1 

1 

,  1 

,  1 

,  1 

f 

0357 

.  1 

,  0 

t 

1 

t 

1 

1 

,  1 

,  1 

,  0 

0358 

.  1 

,  1 

t 

1 

1 

1 

,  1 

,  1 

,  1 

0359 

.  1 

,  1 

t 

0 

1 

1 

,  1 

,  1 

,  1 

0360 

.  0 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

0361 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

,  1 

, 

0362 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  1 

0363 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  1 

,  1 

/ 

0364 

data 

( PenCommand ( i  ] 

,  1=" 

2561, 

2640)  / 

7365 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

0366 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  0 

0  3  6  0 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

0  0  6  8 

.  1 

0 

1 

0 

1 

,  0 

,  1 

,  0 

036? 

,  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

, 

m  7  n 

.  1 

,  0 

1 

0 

1 

.  0 

,  1 

,  0 

, 

0  3  7  1 

.  1 

0 

1 

0 

1 

0 

,  1 

,  0 

0  37  2 

.  1 

n 

1 

0 

1 

r, 

,  1 

n 

0  O’? 

.  1 

0 

1 

n 

1 

,  0 

,  1 

,  C' 

. 

r,  -  4 

.  1 

,  C' 

1 

0 

1 

,  0 

,  1 

0 

0  3  "  6 

data 

( PenComiT 

ind  ( i  ) 

,  i- 

2641 , 

2720.1  , 

0  3  0 

.  1 

,  1 

1 

1 

1 

,  1 

.  1 

,  1 

0  0  7  ■' 

.  1 

,  1 

1 

1 

1 

p 

,  1 

,  1 

0'3  7  9 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

, 

0370 

.  1 

r  1 

1 

1 

1 

,  1 

,  1 

,  1 

, 

0  3  8  0 

.  0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 
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0381 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

. 

0382 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

' 

0383 

.  1 

,  1 

1  ,1 

0 

,  1 

,  1 

,  0 

/ 

0384 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

' 

0385 

.  1 

,  0 

1  ,1 

1 

,  0 

,  1 

,  1 

/ 

0386 

0387 

data 

.  1 

( PanConunand  ( i ) 
,  0 

,i-  2721,  2800)  / 

1  ,1 

1 

,  1 

,  0 

,  1 

0388 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  0 

0389 

.  1 

,  1 

1  ,1 

0 

,  1 

,  1 

,  1 

0390 

.  1 

,  0 

1  ,1 

0 

,  1 

,  0 

,  1 

0391 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

0392 

.  0 

,  1 

1  ,1 

0 

,  1 

,  1 

,  0 

0393 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

0394 

.  0 

,  1 

0  ,1 

1 

,  1 

,  1 

,  0 

0395 

.  1 

,  1 

0  ,1 

1 

,  1 

,  0 

,  1 

0396 

.  1 

,  1 

1  ,1 

0 

,  1 

,  1 

,  1 

/ 

^397 

0398 

data 

.  1 

(FenConunand  ( i) 
,  1 

, i-  2801,  2880) / 

0  ,1 

1 

,  1 

,  1 

,  1 

0399 

.  0 

,  1 

1  ,0 

1 

,  1 

,  0 

,  1 

0400 

.  1 

,  1 

0  ,1 

1 

,  1 

,  0 

,  1 

0401 

.  1 

,  1 

1  ,1 

0 

,  1 

,  1 

,  1 

0402 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0403 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

0404 

.  1 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

0405 

.  1 

■  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0406 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0407 

.  1 

,  0 

1  ,1 

1 

,  1 

,  1 

,  1 

/ 

0408 

0409 

data 

.  1 

(PenConunand  ( ii 
,  1 

,  i-  2881,  2960)  / 

1  ,1 

1 

,  1 

,  0 

,  1 

t 

0410 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

t 

0411 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

t 

0412 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

t 

0413 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

r 

0414 

.  1 

,  0 

1  ,1 

1 

,  1 

,  1 

,  1 

0415 

.  1 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

0416 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  0 

t 

0417 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

t 

0418 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

/ 

0419 

0420 

data 

.  0 

(PenCommand (i 
,  1 

,  i-  2961,  3040)  / 

0  ,1 

0 

,  1 

,  0 

,  1 

0421 

.  1 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0422 

.  1 

,  0 

1  ,0 

1 

,  1 

,  0 

,  1 

0423 

.  0 

,  1 

0  ,1 

1 

,  0 

,  1 

,  0 

0424 

.  1 

,  0 

1  ,1 

0 

,  1 

,  1 

,  1 

0425 

.  1 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

* 

0426 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

042" 

.  1 

,  1 

0  ,1 

1 

,  1 

,  0 

,  1 

0428 

.  0 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

042° 

0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

/ 

0  4  3  f  i 

0431 

data 

.  0 

( PenCommand (i ), i”  3042,  3120)/ 

,1  ,0  ,1 

0 

,  1 

,  0 

,  1 

n432 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0  4  :•  3 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

- 

0434 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

- 

0435 

.  1 

.  1 

0  ,1 

1 

,  1 

,  1 

.  1 

0  4  3b 

.  1 

,  1 

1  ,1 

1 

.  1 

.  1 

.  1 

04  T  ^ 

,  1 

1  ,1 

1 

,  1 

.  1 

.  1 

0438 

1 

.  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0  4  '  i 

1 

,  0 

1  ,  ' 

1 

n 

,  1 

,  0 

04  4  0 

1 

IJ 

1  ,1 

J 

0 

,  1 

n 

04  4  1 

'-442 

data 

1 

{ PenCommand f i i-  3121.  3200; 
,0  ,1  ,0 

1 

,  0 

,  1 

,  0 

04  4  3 

1 

.  > 

1  ,1 

1 

,  1 

,  1 

,  1 

r'4  4  4 

1 

,  0 

1  ,1 

1 

,  1 

,  1 

,  1 
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0445 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0446 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0447 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

1 

0448 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0449 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0450 

.  1 

,  1 

1 

0 

1 

,  0 

,  1 

0 

0451 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

0 

0452 

data 

( PenCommand ( i ) 

,i-  3201, 

3280)  / 

0453 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

0 

0454 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

1 

0455 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

0 

0456 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

0 

0457 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

1 

0458 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

1 

0459 

.  1 

,  1 

0 

1 

0 

,  1 

,  0 

1 

0460 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

1 

0461 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

1 

0462 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

1 

0463 

data 

(PenCommand ( i ) 

,i-  3281, 

3360)  / 

0464 

.  0 

,  1 

f 

0 

1 

0 

,  1 

,  0 

1 

0465 

.  0 

,  1 

r 

0 

1 

0 

,  1 

,  0 

1 

0466 

.  0 

,  1 

/ 

0 

1 

0 

,  1 

,  0 

1 

0467 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

1 

0468 

.  0 

,  1 

0 

1 

0 

,  1 

,  1 

1 

0469 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

1 

0470 

.  1 

,  1 

1 

0 

1 

,  0 

,  1 

0 

0471 

.  1 

,  1 

, 

1 

1 

0 

,  1 

,  1 

1 

0472 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  1 

1 

0473 

.  0 

,  1 

, 

1 

1 

1 

,  1 

,  1 

1 

0474 

data 

(PenCommand (i) 

,i=  3361, 

3440)  / 

0475 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

1 

0476 

.  1 

,  0 

1 

1 

0 

,  1 

,  1 

1 

0477 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

1 

0478 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

1 

0479 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0480 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

1 

0481 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0482 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

1 

0483 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0484 

.  1 

,  1 

0 

1 

1 

,  0 

,  1 

1 

0485 

data 

(PenCommand (i) 

,  i-  3441, 

3520)  / 

0486 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0487 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

1 

0488 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

0 

0489 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

1 

0490 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

1 

0491 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

1 

0492 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

1 

049? 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

04  94 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

1 

04  9S 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  1 

0 

04  90 

dat  a 

( PenCommand 

i) 

, i=  3521, 

3600)  / 

04Q'7 

1 

.  X 

,  1 

1 

1 

1 

,  1 

,  1 

1 

0  4  99 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

04  9 '-i 

.  1 

n 

1 

1  , 

1 

,  1 

.  1 

1 

05  0  0 

.  1 

,  1 

1 

1 

1 

.  1 

,  1 

1 

osoi 

.  1 

,  1 

1 

1 

] 

,  1 

r. 

I 

0502 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

1 

n  e;  m 

1 

,  1 

1 

1 

(-I 

.  1 

.  1 

1 

05^4 

.  1 

,  1 

1 

1 

1 

,  1 

1 

1 

0505 

.  1 

,  1 

n 

1 

1 

,  1 

,  1 

1 

0506 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

1 

0507 

data 

( PenCommand 

i) 

, i-  3601, 

3680)  ,' 

0508 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  1 

1 

/ 


/ 


/ 


/ 
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0509 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0510 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0511 

.  1 

,  1 

1  .0 

1 

,  1 

,  1 

,  1 

0512 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0513 

.  1 

,  0 

1  ,1 

1 

,  1 

,  1 

,  1 

0514 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0515 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0516 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  0 

0517 

0518 

.  1 

data 

,  1 

(PonCommand ( i 

1  ,1 

,i-  3681,  3760)/ 

1 

,  1 

,  1 

,  1 

/ 

0519 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

0520 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

0521 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

0522 

.  1 

,  1 

1  .1 

1 

,  1 

,  1 

,  1 

0523 

.  1 

,  1 

0  .1 

1 

,  1 

,  1 

,  1 

0524 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0525 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

0526 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

0527 

.  1 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

0528 

0529 

.  1 

data 

,  1 

( PonCommand ( i 

1  .1 

,i-  3761,  3840)/ 

1 

,  1 

,  1 

,  1 

/ 

0530 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

, 

0531 

.  1 

,  1 

1  ,1 

1 

,  1 

,  c 

,  1 

0532 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  0 

0533 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

0534 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0535 

.  1 

,  1 

1  -  1 

0 

,  1 

,  1 

,  1 

0536 

.  1 

,  1 

1  .1 

0 

,  1 

,  1 

,  1 

0537 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

0539 

.  0 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0539 

0540 

.  1 

data 

,  1 

(PenCommand li) 

1  ,0 
,i-  3841,  3920.)/ 

1 

,  1 

,  1 

,  1 

/ 

0541 

.  1 

,  1 

1  .1 

1 

,  1 

,  1 

,  1 

0542 

.  1 

,  1 

1  ,1 

0 

,  1 

,  1 

,  1 

0543 

.  1 

,  1 

I-* 

1 

,  1 

,  1 

,  1 

0544 

.  1 

,  1 

1  .1 

0 

,  1 

,  1 

,  1 

0545 

.  1 

,  1 

1  ,1 

0 

1 

,  1 

,  1 

0546 

.  1 

,  1 

0  ,1 

1 

,  0 

,  1 

,  1 

0547 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

0548 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  1 

0549 

.  1 

.  0 

1  -  1 

1 

,  1 

,  1 

,  0 

0550 

0551 

.  1 

data 

,  0 

(PenCommand ( i) 

1  ,0 
,  i”  3921,  4000)/ 

1 

,  0 

,  1 

,  0 

/ 

0552 

.  1 

,  0 

1  -  1 

1 

,  0 

,  1 

,  1 

0553 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0554 

.  0 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0555 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

0  5  56 

.  1 

,  0 

1 

1 

,  1 

,  0 

,  1 

05  S’: 

.  0 

,  1 

0  ,1 

0 

,  1 

,  1 

,  1 

0558 

.  1 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

, 

055? 

n 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0560 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0561 

0562 

.  0 

data 

.  1 

(PenCommand ( i) 

p  .1 

,  4001,  4080),' 

0 

,  1 

,  0 

,  1 

05  6  3 

n 

,  1 

0  .1 

n 

,  1 

r . 

.  1 

0584 

.  1 

.  1 

1  ,1 

n 

.  1 

1 

0  5  6  5 

n 

.  1 

0  .1 

'■ 

,  1 

,  '■ 

,  1 

05  66 

.  0 

,  1 

1  .1 

n 

,  1 

.  ' 

,  1 

riSf,- 

,  1 

0  ,1 

1 

,  1 

,  C 

,  1 

0'  5  6  P 

T' 

,  1 

0  ,1 

n 

.  1 

r. 

,  1 

5  6  0 

.  0 

,  1 

0  ,1 

0 

,  1 

n 

,  1 

n  5  7  r 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

05'1 

.  0 

.  1 

0  ,1 

0 

,  1 

,  0 

,  1 

<1 5  7  2 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 
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0573 

0574 

data 

.  0 

( PonCommand ( i ) 

,  1 

,i-  4081, 

0 

4160) / 

1 

0 

,  1 

,  0 

,  1 

0575 

.  1 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

0576 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

0577 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

6 

0578 

.  0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

6 

0579 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

6 

0580 

.  0 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

/ 

0581 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

0582 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

0583 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

/ 

0584 

0585 

data 

.  0 

( PonCommand { i ) 
,  1 

,i-  4161 
1 

4240)  / 

1 

0 

,  1 

,  0 

,  1 

0586 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

/ 

0587 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  0 

0588 

.  1 

,  0 

1 

0 

1 

,  1 

,  1 

,  1 

/ 

0589 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

/ 

0590 

.  0 

,  1 

1 

1 

0 

,  1 

,  0 

,  1 

/ 

0591 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

0592 

.  0 

,  1 

1 

1 

0 

,  1 

,  1 

,  1 

0593 

.  1 

,  1 

1 

0 

1 

,  0 

,  1 

,  0 

6 

0594 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

0595 

0596 

data 

.  1 

(PonCommand (i) 

,  0 

, i-  4241 

1 

4320)  / 

0 

1 

,  1 

,  1 

,  1 

0597 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

0598 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

t 

0599 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

t 

0  600 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  1 

/ 

0601 

.  1 

,  1 

1 

1 

0 

,  1 

,  0 

,  1 

0602 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

0  60  9 

.  Ci 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

0  60  4 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

0  60  5 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  0 

/ 

0606 

060"' 

data 

.  1 

(PonCommand (i) 
,  0 

,i-  4321 

1 

4400)/ 

1 

1 

,  1 

,  1 

,  1 

0  6  C:  8 

.  n 

.  1 

1 

1 

1 

,  1 

,  1 

,  0 

060? 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

t 

0610 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

f 

0611 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

f 

0612 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

t 

0  613 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  0 

0  614 

.  1 

.  1 

1 

1 

1 

,  1 

,  1 

,  1 

0615 

.  0 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

0  616 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

1 

0  €  1  ’ 

061? 

data 

.  1 

( PonCommand ( i  ] 

,  0 

, i-  4401 

1 

4480)  / 

1 

1 

,  1 

,  0 

.  1 

0  6 1  9 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0  6  2  0 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0  6  2  1 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  0 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

'’'623 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  0 

0  62  4 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

r.  =■ 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

n  6;-  ^ 

.  1 

.  1 

1 

1 

1 

,  1 

,  1 

,  1 

0  8  2  ■' 

.  1 

,  1 

0 

1 

1 

.  1 

1 

.  1 

6  2  ^ 

ri  K  2  o 

dat  a 

{ F'en  .'ommand  ( i 

,  1 

, i =  448] 

0 

4  5  b  f 

1 

1 

,  1 

1 

r.  i:  3  r 

1 

1 

1 

1 

1 

,  1 

.  1 

,  1 

^  3  1 

.  1 

,  1 

1 

1 

i' 

.  1 

0 

1 

6  1'  2 

.  1 

,  1 

1 

1 

1 

.  1 

T 

,  1 

0  6  3  9 

1 

1 

1 

,  1 

,  1 

,  1 

0  6  3  4 

1 

r  1 

1 

1 

1 

0 

,  1 

,  1 

6  3 

1 

.  1 

1 

1 

1 

,  1 

,  1 

,  1 

rii;3(: 

1 

o 

1 

1 

c 

,  1 

,  1 

,  0 
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0637 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  1 

,  0 

0638 

0639 

.  1 

data 

,  1 

( PenCommand ( i ) 

1 

, i-  4561, 

1 

4640)  / 

1 

,  1 

,  1 

,  1 

/ 

0640 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

0641 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  0 

0642 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0643 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0644 

.  0 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0645 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  0 

0646 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0647 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

0648 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  1 

,  1 

0649 

0650 

.  1 

data 

,  0 

( PenCommand ( i ) 

1 

,i-  4641, 

1 

4  720)  / 

1 

,  1 

,  1 

,  1 

/ 

0  651 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

0652 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  1 

065? 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0654 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

0655 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0656 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

1 

0657 

1 

,  0 

, 

1 

1 

1 

,  1 

,  1 

,  1 

0658 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0659 

.  1 

,  1 

, 

1 

0 

1 

,  1 

,  1 

,  1 

0660 

0661 

.  1 

data 

,  1 

{PenCommand {i) 

1 

,i-  4721 

1 

4800)  / 

1 

,  1 

,  1 

,  1 

/ 

0662 

.  1 

,  1 

, 

1 

1 

1 

,  0 

,  1 

,  1 

0663 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

0664 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

.  1 

0665 

.  1 

,  1 

1 

0 

1 

,  1 

,  0 

,  1 

0666 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0667 

.  1 

,  1 

1  , 

1 

,  1 

,  1 

,  0 

0668 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0669 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

/ 

0670 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  1 

t 

0671 

0672 

.  0 

data 

,  1 

(PenCoinmand 

i) 

1 

, i-  4801 

1 

4880)  / 

1 

,  1 

,  1 

,  1 

i 

0  67  3 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

.  1 

0674 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0675 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

0  b  7  6 

.  1 

,  1 

! 

1 

1 

0 

,  1 

,  1 

,  1 

Of '?■' 

.  1 

t  i 

t 

1 

1 

1 

,  1 

,  1 

,  1 

0  67  0 

.  1 

,  1 

0 

1 

0 

,  1 

,  1 

,  1 

C'  6  "  9 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

0  680 

.  1 

,  0 

1 

0 

1 

,  1 

,  1 

,  0 

0681 

.  1 

,  1 

1 

1 

0 

,  1 

,  0 

,  1 

0682 

0<;P3 

.  0 

data 

,  1 

{ PenCommand 

i 

1  ,1 

,i-  4881,  4960),' 

1 

,  1 

,  0 

,  1 

0684 

.  0 

,  1 

0 

1 

0 

,  1 

,  1 

,  1 

0  6  8  5 

.  0 

,  1 

0 

1 

1 

,  1 

,  c 

,  1 

068^ 

0 

,  1 

0 

1 

n 

,  1 

,  1 

,  1 

Ob?" 

.  0 

,  1 

c 

1 

0 

,  1 

,  0 

068^ 

.  1 

,  1 

c 

1 

0 

,  1 

,  1 

,  1 

T'  K  P  :) 

0 

,  1 

r. 

1 

n 

,  1 

,  0 

,  1 

''l  K  '1  '  '■ 

n  »'  1  ; 

r. 

n 

.  1 

} 

1 

1 

I 

0 

o 

,  1 

,  1 

,  0 

,  1 

,  1 

1 

,  1 

.  1 

,  1 

■ 

.  r 

,  1 

<  "■'  6  8  4 

6  0  5 

dat  ^ 

f  r  e  n  ■"  omm  and  (  i 

7 

4  -j ,  ;  '  4  ,  ■  > 

n 

1 

r 

1 

6  9  6 

,  : 

i 

1 

’ 

, 

1 

^6  9'’ 

.  1 

,  1 

1 

.  1 

1 

, 

,  ] 

n  Q  P 

.  1 

,  1 

1 

•  X 

T 

.  1 

,  1 

1 

0^00 

.  1 

0 

1 

1  : 

.  1 

,  0 

,  1 

,  1 

■:  ’  ;■ 

.  1 

,  0 

1 

0 

,  1 

,  0 

,  1 

1 

Ho 
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0701 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

1 

0702 

.  1 

,  1 

1 

,  0 

1 

,  1 

,  1 

,  1 

0703 

.  1 

,  1 

1 

,  1 

1 

,  1 

,  1 

,  1 

0704 

.  1 

,  1 

1 

,  1 

0 

,  1 

,  1 

, 

/ 

0705 

data 

(PanConunand  (  i 

,  i- 

5041,  5120)/ 

0706 

.  0 

,  1 

1 

,  1 

0 

,  1 

,  0 

,  1 

J 

0707 

.  0 

1 

0 

,  1 

0 

,  1 

,  0 

,  1 

0709 

.  0 

,  1 

0 

,  1 

0 

,  1 

,  0 

,  ' 

0709 

.  0 

,  1 

1 

,  1 

1 

,  1 

,  1 

,  0 

0710 

.  1 

,  0 

1 

,  0 

1 

,  0 

,  1 

,  0 

0711 

.  1 

,  1 

1 

.  1 

1 

,  1 

,  0 

,  1 

, 

0712 

.  1 

,  1 

1 

,  1 

1 

,  0 

,  1 

,  0 

, 

0713 

.  1 

,  1 

0 

,  1 

1 

,  1 

,  1 

,  1 

0714 

.  0 

,  1 

1 

,  1 

1 

,  1 

,  1 

,  1 

, 

0715 

.  1 

,  0 

1 

,  1 

1 

,  1 

,  1 

,  1 

0716 

data 

( PanConunard  { i 

,  i- 

5121,  5200  / 

0717 

.  1 

,  1 

0 

,  1 

1 

,  1 

,  1 

,  1 

0718 

.  0 

,  1 

1 

,  1 

1 

,  1 

,  1 

,  0 

OT  1  ? 

.  1 

.  1 

1 

,  1 

1 

,  1 

,  1 

,  1 

, 

0  7  2  0 

.  1 

,  1 

1 

,  0 

1 

.  1 

,  1 

,  1 

, 

O':  21 

.  0 

,  1 

1 

,  1 

1 

,  1 

,  0 

,  1 

0722 

.  1 

,  1 

1 

,  1 

1 

,  1 

,  1 

,  1 

, 

0  7  2  3 

.  1 

.  1 

1 

,  1 

0 

7 

,  1 

,  1 

, 

0724 

.  1 

.  1 

0 

,  1 

1 

,  1 

,  1 

,  1 

0^2  5 

.  1 

,  1 

1 

,  1 

1 

1 

,  1 

0 

0726 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

! 

n-’l'-’ 

dat  a 

( PenCommand ( i ] 

, 

5201,  5280)/ 

07  2? 

.  1 

,  1 

1 

,  0 

1 

,  1 

,  1 

,  1 

07  2? 

.  1 

,  1 

0 

,  1 

1 

,  1 

,  1 

,  1 

0  7  3  fj 

.  1 

,  1 

0 

,  1 

1 

,  1 

,  1 

,  1 

"731 

.  1 

,  1 

1 

,  1 

0 

,  1 

,  1 

,  1 

0  7  2 

.  1 

,  1 

1 

,  1 

1 

,  1 

,  0 

,  1 

0733 

.  1 

,  1 

1 

,  1 

1 

,  1 

,  0 

,  1 

0734 

.  1 

,  1 

1 

,  1 

1 

,  1 

,  c 

,  1 

O’’ 3  5 

1 

,  1 

1 

,  1 

1 

,  1 

,  0 

,  1 

0  7  3  6 

1 

,  1 

1 

,  1 

1 

,  1 

,  0 

,  1 

0737 

.  1 

.  1 

1 

,  1 

1 

1 

,  0 

,  1 

/ 

0738 

data 

( PenCommand  < i ) 

,  i-= 

5281,  53  60;/ 

O’’  3  9 

.  1 

,  1 

1 

.  1 

1 

,  1 

,  0 

,  1 

0"  4  0 

.  1 

.  1 

1 

,  1 

0 

,  1 

,  1 

,  1 

"■'4  1 

.  1 

,  1 

1 

,  0 

1 

,  1 

,  1 

,  1 

07  42 

.  C 

t  ^  f 

1 

,  1 

1 

,  1 

,  1 

,  1 

0"43 

.  0 

,  1 

1 

,  1 

1 

,  0 

,  1 

,  1 

"■’44 

.  1 

,  1 

1 

,  0 

1 

,  1 

,  1 

,  ± 

1  r 

•* 

.  1 

,  0 

1 

,  1 

1 

,  1 

,  1 

,  1 

■:  4 1 

.  0 

,  1 

1 

,  1 

1 

,  1 

,  1 

-  0 

■'4-' 

.  1 

,  1 

1 

,  1 

0 

,  1 

1 

.  1 

4  ;; 

n 

1 

0 

1 

.  0 

,  1 

,  0 

' '  '  4  ' 

dat  a 

( PenCommand ( i ) 

,  i  = 

5361,  5440)/ 

'■ 

,  1 

0 

,  1 

1 

,  1 

,  1 

, 

.  c,  - 

: 

.  1 

1 

1 

o 

,  1 

1 

.  1 

. 

I 

,  1 

0 

,  1 

n 

.  1 

.  1 

r. 

,  1 

1 

0 

.  1 

,  1 

n  ^  4 

1 

,  1 

0 

,  1 

1  1 

"'Rf- 

1 

■  - 

1 

r  ^ 

1 

;  i 

r  C,  f. 

1 

1 

.  '■ 

* 

—  ^  0. 

,  1 

1 

' 

’. 

. 

,  1 

ia*  a 

(  I  6.V:  ■■  1  ’ 

-  !  - 

"44'..  "  ' 

1 

'*  K  ^ 

.  1 

i 

1 

J 

: 

1 

,  0 

1 

' '  '■  ■' 

.  1 

,  1 

1 

1 

1 

0 

,  1 

, 

1 

.  1 

1 

n 

,  1 

, 
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0765 

.  1 

,  1 

1 

1 

1 

,  1 

0766 

.  1 

,  1 

1 

1 

0 

,  1 

0767 

.  1 

,  1 

1 

0 

1 

,  1 

0768 

.  1 

,  1 

1 

0 

1 

,  1 

0769 

.  1 

,  1 

1 

1 

1 

,  1 

0770 

.  1 

,  1 

1 

0 

1 

,  1 

0771 

0772 

data 

.  1 

( PonCoimnand  ( i ) 
,  1 

,i-  5521, 
1 

5600)  / 

1 

1 

,  1 

0773 

.  1 

,  0 

1 

1 

1 

,  1 

0774 

.  1 

,  1 

1 

1 

1 

,  0 

0775 

.  1 

,  1 

1 

1 

1 

,  1 

0776 

.  1 

,  0 

1 

1 

1 

,  1 

0777 

.  1 

,  1 

1 

1 

1 

,  1 

0778 

.  1 

,  0 

1 

1 

1 

,  1 

0779 

.  1 

,  1 

1 

0 

1 

,  0 

0780 

.  1 

,  0 

1 

0 

1 

,  0 

0781 

.  1 

,  1 

1 

1 

1 

,  0 

0782 

0783 

data 
.  1 

( PanConunand  ( i ) 
,  0 

,i-  5601, 
1 

5680)  / 

0 

1 

,  0 

0784 

.  1 

,  0 

1 

0 

1 

,  0 

0785 

.  1 

,  1 

1 

1 

1 

,  1 

0786 

.  1 

,  1 

0 

1 

0 

,  1 

0787 

.  0 

,  1 

0 

1 

0 

,  1 

0788 

.  0 

,  1 

0 

1 

0 

,  1 

0789 

.  0 

,  1 

0 

1 

0 

,  1 

0790 

.  0 

,  1 

0 

1 

0 

,  1 

0791 

.  1 

,  1 

0 

1 

1 

,  1 

0792 

.  0 

,  1 

0 

1 

0 

,  1 

0793 

0794 

data 

.  0 

(PenCommand (i) 
,  1 

,i-  5681 
0 

,  5760)/ 

1 

0 

,  1 

0795 

.  0 

,  1 

1 

1 

1 

,  1 

0796 

.  1 

,  1 

1 

1 

1 

,  1 

0797 

.  1 

,  0 

1 

1 

1 

,  1 

0798 

.  1 

,  1 

1 

1 

1 

,  1 

0799 

.  0 

,  1 

0 

1 

0 

,  1 

0800 

.  1 

,  0 

1 

0 

1 

,  0 

0801 

.  1 

,  1 

1 

1 

0 

,  1 

0802 

.  0 

,  1 

0 

1 

0 

,  1 

0803 

.  1 

,  1 

1 

1 

1 

,  0 

0804 

0805 

data 

.  1 

(PanCoimnand  (i)  ,  i“  5761 
,0  ,1 

,  5840)/ 

0 

1 

,  0 

0806 

.  1 

,  0 

1 

0 

1 

,  0 

0807 

.  1 

,  0 

1 

0 

1 

,  0 

0808 

.  1 

,  1 

1 

1 

0 

,  1 

0809 

.  1 

,  1 

1 

1 

1 

,  1 

0810 

.  0 

,  1 

1 

1 

1 

,  1 

0811 

.  1 

,  1 

1 

1 

1 

,  0 

0812 

.  1 

,  0 

1 

1 

1 

,  1 

0813 

.  1 

,  1 

1 

0 

1 

,  1 

0814 

.  1 

,  1 

1 

1 

1 

,  1 

0815 

0816 

data 

.  1 

( PenCommand ( i ), i*  5841 
,1  ,1 

,  5920)/ 

1 

1 

,  1 

0817 

.  1 

,  0 

1 

1 

1 

,  1 

0818 

.  1 

,  0 

1 

1 

1 

.  1 

0819 

.  1 

0 

1 

1 

1 

,  1 

0820 

.  1 

,  1 

1 

1 

1 

n 

0821 

.  1 

,  0 

1 

1 

1 

,  1 

o 

CD 

^J 

0 

,  1 

1 

1 

0 

.  1 

0823 

o 

,  1 

0 

1 

" 

,  1 

0824 

n 

,  1 

1 

1 

f* 

,  1 

0825 

.  0 

,  1 

0 

1 

0 

,  1 

0826 

0827 

data 

0 

( PenCommand ( i ), i*  5921,  6000)/ 
,1  ,0  ,1 

0 

,  1 

0828 

.  1 

,  0 

1 

0 

1 

,  0 
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0829 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

0830 

.  1 

,  0 

1  .1 

0 

,  1 

,  0 

,  1 

0831 

.  0 

,  1 

1  .1 

1 

,  1 

,  0 

,  1 

0832 

.  1 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0833 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0834 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0835 

.  0 

,  1 

1  ,1 

0 

,  1 

,  0 

,  1 

0836 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0837 

data 

(PenCoitmiand  ( i' 

,i-  6001,  6080)/ 

0838 

.  0 

,  1 

1  .1 

0 

,  1 

,  0 

,  1 

0839 

.  1 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0840 

.  0 

,  1 

0  .1 

0 

,  1 

,  0 

,  1 

0841 

.  0 

,  1 

C  ,1 

0 

,  1 

,  0 

,  1 

0842 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0843 

.  0 

,  1 

0  .1 

1 

,  1 

,  1 

,  1 

0844 

.  0 

,  1 

1  .1 

1 

,  1 

,  0 

,  1 

0845 

.  0 

,  1 

0  .1 

0 

,  1 

,  0 

,  1 

0846 

.  0 

,  1 

0  ,1 

0 

,  1 

,  0 

,  1 

0847 

.  0 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

0848 

data 

(PenCommand  ( i 

,  i-  6081,  6160)/ 

0849 

.  1 

,  1 

1  .1 

1 

,  1 

,  0 

,  1 

0850 

.  1 

,  1 

1  .1 

0 

,  1 

,  1 

,  1 

0851 

.  1 

,  1 

-  .1 

1 

,  1 

,  0 

,  1 

0852 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  0 

0853 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

0854 

.  1 

,  0 

1  -  0 

1 

,  1 

,  1 

,  0 

0855 

.  1 

,  1 

1  .1 

0 

,  1 

,  0 

,  1 

0856 

.  1 

,  0 

1  .1 

0 

,  1 

,  1 

,  1 

0857 

.  0 

,  1 

1  -  1 

1 

,  1 

,  1 

,  1 

0858 

.  1 

,  1 

1  -  1 

1 

,  1 

,  0 

,  1 

0859 

data 

(PenCommand  ( i! 

,  i-  6161,  6240)  / 

0860 

.  1 

,  1 

i  .  J 

1 

,  1 

,  0 

,  1 

0861 

.  1 

,  1 

0  ,1 

1 

,  1 

,  0 

,  1 

0862 

.  1 

,  1 

1  -  1 

1 

,  1 

,  1 

,  1 

0863 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

0864 

.  1 

.  1 

1  .1 

1 

,  1 

,  1 

,  1 

0865 

.  1 

,  1 

1  -  1 

1 

,  1 

,  0 

,  1 

0866 

.  1 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

0867 

.  1 

.  1 

1  .1 

1 

,  1 

,  1 

,  1 

0868 

.  0 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

0869 

.  1 

,  1 

1  .1 

1 

,  0 

,  1 

,  1 

0870 

data 

(PenCommand (i) 

,i-  6241,  6320)/ 

0871 

.  1 

,  1 

1  .1 

1 

,  1 

,  1 

,  0 

0872 

.  1 

,  1 

1  .1 

1 

,  1 

,  1 

,  0 

0873 

.  1 

,  1 

1  .1 

1 

,  1 

,  1 

,  1 

0874 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

0875 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

0876 

.  0 

,  1 

1  .1 

1 

,  1 

,  1 

,  1 

0877 

.  1 

,  0 

1  ,1 

1 

,  1 

,  1 

,  1 

087  8 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

0879 

.  1 

,  1 

1  .1 

1 

,  1 

,  1 

,  0 

0  8  8  0 

.  1 

.  1 

1  .1 

1 

,  1 

,  1 

,  1 

0  8  91 

data 

(PenCommand ( i ) 

, 6321,  6400) / 

08  8  2 

.  1 

.  1 

1  ,1 

1 

,  1 

,  1 

,  1 

n  p  p  '' 

1 

.  X 

n 

1  ,1 

1 

.  1 

,  1 

,  1 

0  8  8  4 

.  1 

1 

1  .1 

1 

.  1 

f' 

.  1 

0  R  9 

.  1 

1 

1  .1 

1 

.  1 

,  1 

,  1 

riRP  R 

] 

,  1 

I  ,1 

I 

,  1 

,  1 

0 

'■iRK- 

.  1 

.  1 

1  ,1 

1 

.  1 

,  1 

,  1 

')  RPR 

.  1 

r  1 

1  .1 

,  1 

,  1 

,  1 

r.  9  p  R 

.  : 

,  1 

1  ,1 

1 

,  1 

,  1 

,  p 

0  9  9  0 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

08  91 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

08  92 

data 

( PenCommand ( i ) 

,  64i.  j.,  „  .80)  / 

/ 


/ 
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0893 

0894 

0895 

0896 

0897 

0898 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

090f; 

0907 

0908 

0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0  93  9 

0  94  0 

0941 

0942 

0943 

0  94  4 

094  5 

094  6 

0  94  7 

0  948 

0  a  4  9 


0  951 
0  952 
0  953 
0954 
n  9  5  3 
0  95  6 


1 

,  0 

1 

1 

,  1 

1 

0 

,  1 

1 

1 

,  1 

0 

0 

,  1 

1 

1 

,  0 

1 

1 

,  1 

1 

1 

,  0 

1 

1 

,  1 

1 

1 

,  1 

1 

data 

( PanConutiand  ( i ) 

,  i“ 

1 

,  1 

1 

1 

,  1 

0 

1 

,  1 

1 

1 

,  0 

1 

1 

,  1 

1 

1 

,  1 

1 

1 

,  1 

1 

1 

,  1 

1 

1 

,  1 

1 

1 

,  1 

1 

dat* 

(PenCommand (i) 

,  i” 

,  1 

,  1 

1 

,  1 

,  1 

1 

,  1 

,  1 

1 

.  1 

,  1 

1 

.  0 

1 

1 

,  1 

,  1 

1 

.  1 

,  1 

1 

.  1 

,  1 

1 

.  1 

,  1 

1 

.  1 

,  1 

1 

data 

( PonCorainand  ( i ) 

'  -■  i“ 

.  1 

,  1 

1 

.  1 

,  0 

1 

.  1 

,  1 

0 

.  1 

,  1 

1 

.  1 

.  1 

1 

.  1 

,  1 

1 

.  1 

,  1 

0 

.  1 

,  1 

1 

.  1 

,  1 

0 

.  1 

,  1 

0 

data 

( PenCommand {i) , i* 

.  1 

,  1 

1 

.  1 

,  0 

1 

.  1 

,  0 

1 

.  1 

,  0 

1 

.  1 

,  0 

1 

.  1 

.  0 

1 

.  1 

,  0 

1 

.  1 

,  0 

1 

.  1 

,  0 

1 

.  1 

,  0 

1 

data 

( PenCommand ' i ) , i= 

.  1 

0 

1 

.  1 

,  1 

1 

.  1 

,  0 

T 

.  1 

0 

1 

.  1 

,  0 

1 

.  1 

<  1 

1 

.  1 

,  0 

1 

.  1 

,  7 

1 

.  C 

.  1 

9 

,1  ,1  ,0 

,0  ,1  ,1 

,1  ,1  .1 

,1  ,1  ,1 

,1  ,1  .0 

,1  ,1  /I 

,1  ,1  ,1 

,1  ,1  .1 

,0  ,1  ,1 

,1  ,0  ,1 

6481,  6560)/ 

,1  ,1  ,1 

,1  ,0  ,1 

,1  ,1  .1 

,1  ,1  -  1 

,1  ,1  .1 

,1  ,1  ,1 

,1  ,1  ,0 

,  ’  ,1  ,1 

.0  ,1  ,1 

,1  ,0  ,1 

6561,  6640)/ 

,1  ,0  ,1 

,1  ,1  .1 

,1  ,1  ,1 

,1  ,1  .1 

,1  ,1  .1 

,1  ,1  -  1 

,1  ,1  ,1 

,1  ,0  ,1 

,1  ,1  ,0 

,0  ,1  ,1 

6641,  6720)/ 

,1  ,1  .1 

,1  ,1  ,1 

,1  ,1  -  1 

,0  ,1  ,1 

,1  ,0  ,1 

,1  ,1  .  1 

,1  ,1  -  1 

,0  ,1  ,  1 

,1  ,1  .  1 

,1  ,1  .1 

6721,  6800)/ 

,1  ,1  .  0 

,0  ,1  ,  0 

,0  ,1  ,  1 

,1  ,1  .  0 

,0  ,1  ,  0 

,0  ,1  ,  0 

,0  ,1  ,  0 

,0  ,1  ,  0 

,0  ,1  ,  0 

,0  ,1  ,  0 

6801,  6880)/ 

,0  ,1  , 

,0  ,1  ,  f. 

,1  .3  .  0 

.0  .1  ,0 

,0  ,1  .  1 

,0  .1  ,  0 

,0  ,1  ,  0 

,0  ,1  ,0 

,1  ,0  ,  1 


,  1  ,1 

,  1  ,1 

,  0  ,1 

,  1  ,1 

,  1  ,1 

,  0  ,1 

,  1  ,1 

,  1  ,1 

,  1  ,1 

,  1  ,1  / 

,  1  ,1 

.1  ,1 

,  1  ,1 

,  1  ,1 

,  1  ,0 

,  1  ,1 

,  1  ,1 

,  1  ,1 

,  1  ,1 

,  1  ,1  / 

,1  ,1 

,0  ,1 

,0  ,1 

,1  ,1 

,1  ,1 

,0  ,1 

,1  ,1 

,1  ,1 

,1  ,1 

,1  ,1  / 

,1  ,1 

,1  .1 

,1  ,1 

,1  ,1 

,1  ,1 

,1  ,1 

,1  ,0 

,1  ,1 

,1  ,1 

,1  ,1  / 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,0  / 

.1  .  ri 

,1  ,0 

,1  .0 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,0 

,1  ,1 

,0  ,1 
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0957 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  1 

,  1 

/ 

0958 

data 

(PenCoiwnand  (i) 

,  i- 

€881, 

6960)  / 

0959 

.  1 

,  1 

1 

1 

1 

.  0 

,  1 

,  1 

f 

0960 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

! 

0961 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

0962 

.  1 

,  1 

T 

1 

1 

,  1 

,  1 

,  1 

0963 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

0964 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

,  1 

0965 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

0966 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

0967 

.  1 

,  1 

1 

1 

0 

,  i 

,  0 

,  i 

0968 

.  0 

,  1 

G 

1 

0 

,  1 

,  0 

,  1 

/ 

0969 

data 

(PonCommand ( i] 

,  i- 

6961, 

7040)  / 

0970 

.  0 

,  1 

0 

1 

1 

1 

1 

2 

, 

0971 

.  1 

,  0 

1 

1 

1 

,  1 

,  1 

,  1 

, 

0972 

.  1 

,  1 

0 

, 

1 

1 

,  1 

,  1 

,  1 

, 

0973 

.  1 

,  1 

1 

, 

1 

0 

,  1 

,  1 

,  1 

, 

0974 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

, 

0975 

.  1 

,  1 

1 

, 

1 

1 

,  1 

,  1 

,  1 

, 

0976 

1 

,  0 

, 

1 

, 

1 

1 

,  1 

,  1 

,  1 

, 

0977 

.  1 

,  1 

1 

, 

1 

1 

,  1 

,  1 

,  1 

, 

0978 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

, 

0979 

.  0 

,  1 

, 

1 

1 

1 

,  1 

,  0 

,  1 

/ 

0980 

data 

(PenCommand (i) 

,  i= 

7041, 

7120)  / 

0981 

.  1 

,  1 

, 

1 

, 

1 

0 

,  1 

,  1 

,  1 

0982 

.  1 

,  1 

, 

1 

1 

1 

,  1 

,  0 

,  1 

0983 

.  1 

,  1 

1 

, 

1 

1 

,  1 

,  0 

,  1 

> 

0984 

.  1 

,  1 

1 

, 

0 

1 

,  0 

,  1 

,  1 

t 

0985 

.  1 

,  1 

1 

, 

1 

1 

,  1 

,  0 

,  1 

! 

0986 

.  1 

,  1 

, 

1 

, 

1 

1 

,  1 

,  1 

,  1 

! 

C  C 

.  0 

,  1 

, 

1 

, 

1 

1 

,  1 

,  1 

,  1 

r 

09P8 

.  1 

,  1 

, 

1 

, 

1 

1 

,  0 

,  1 

,  1 

r 

0989 

.  1 

,  1 

1 

, 

1 

1 

,  1 

,  1 

,  1 

/ 

0990 

.  0 

,  1 

1 

, 

1 

1 

,  1 

,  1 

,  1 

/ 

0991 

data 

( PenConuTiand  ( i ) 

,  i= 

7121, 

7200)  / 

0992 

.  1 

,  0 

1 

, 

1 

1 

,  1 

,  1 

,  1 

t 

0993 

.  1 

,  1 

, 

1 

, 

0 

1 

,  1 

,  0 

,  1 

t 

0994 

.  0 

,  1 

, 

1 

1 

1 

,  0 

,  1 

,  1 

0 

0995 

.  1 

,  1 

, 

0 

, 

1 

0 

,  1 

,  1 

,  1 

/ 

0996 

.  c 

,  1 

, 

0 

, 

1 

1 

,  1 

,  1 

,  0 

0 

099*’ 

.  1 

.  1 

, 

1 

, 

0 

1 

,  1 

,  1 

0 

0998 

.  1 

,  0 

, 

1 

, 

0 

1 

,  1 

,  1 

,  0 

0999 

.  1 

,  0 

, 

1 

, 

1 

1 

,  1 

,  1 

,  1 

1000 

.  1 

,  1 

, 

1 

, 

0 

1 

,  1 

,  1 

,  1 

1001 

.  1 

,  1 

, 

1 

, 

1 

1 

,  0 

,  1 

,  1 

/ 

1002 

data 

( PenCommand ( i ) 

,  i*= 

7201, 

7280)  / 

1003 

.  1 

,  1 

, 

1 

, 

1 

1 

,  1 

,  1 

,  1 

1004 

.  1 

,  1 

, 

1 

, 

1 

1 

,  1 

,  1 

,  0 

1005 

.  1 

,  1 

, 

1 

, 

1 

1 

,  1 

,  1 

,  1 

1  1''  6 

.  1 

,  1 

, 

1 

, 

1 

1 

,  1 

,  0 

,  1 

lOO"^ 

.  1 

,  1 

, 

1 

, 

1 

1 

,  1 

,  1 

,  1 

1  n  ft 

.  1 

,  1 

, 

1 

1 

1 

,  0 

,  1 

,  1 

1  0  ^ 

.  1 

,  1 

1 

, 

1 

1 

,  1 

,  1 

0 

'  1  r< 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

1  r,  1 

1 

,  1 

] 

I 

1 

n 

J 

, 

If.":' 

.  1 

,  1 

1 

I 

1 

.  1 

1 

^  1 

dat  a 

( F  eno'cmmand 

1  ' 

,  i  = 

7  2  P  1 . 

7  3  60) 

■  ':'i4 

1 

.  X 

,  I 

] 

, 

1 

1 

M 

,  1 

,  1 

r, 

1 

1 

1 

1 

.  1 

,  1 

,  1 

^  r-.  ■  f 

.  1 

.  1 

] 

1 

" 

j 

■; 

,  'l 

1  ^  1  "■ 

.  1 

,  i 

1 

r- 

1 

,  I 

,  1 

,  1 

K'lP 

0 

.  1 

, 

1 

0 

1 

,  1 

,  1 

,  1 

1  r,  1  o 

.  1 

,  1 

, 

1 

, 

n 

,  1 

,  1 

,  1 

1  0  1  ' 

.  1 

.  1 

1 

, 

1 

1 

.  1 

0 

,  1 
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1021 

.  0 

,  1 

0 

1 

0 

1022 

.  0 

,  1 

0 

1 

0 

1023 

.  1 

,  0 

1 

0 

1 

1024 

data 

( PonConunand  ( i ) 

,  i« 

7361, 

7440) / 

1025 

.  0 

,  1 

0 

1 

1 

1026 

.  1 

,  0 

1 

1 

1 

1027 

.  1 

,  0 

1 

0 

1 

1028 

.  1 

,  0 

1 

0 

1 

1029 

.  1 

,  0 

1 

0 

1 

1030 

.  1 

,  0 

1 

1 

1 

1031 

.  1 

,  0 

1 

0 

1 

1032 

.  1 

,  0 

1 

1 

1 

1033 

.  1 

,  0 

1 

0 

1 

1034 

.  1 

,  0 

1 

0 

1 

1035 

data 

( PenCoiranand  ( i ) 

, 

7441, 

7520)/ 

1036 

.  1 

,  0 

1 

0 

1 

1037 

.  1 

,  0 

1 

0 

1 

1038 

.  1 

,  0 

1 

0 

1 

1039 

.  0 

,  1 

1 

1 

0 

1040 

.  0 

,  1 

0 

1 

0 

1041 

.  0 

,  1 

1 

1 

1 

1042 

.  1 

,  1 

1 

0 

1043 

.  1 

,  0 

1 

0 

1 

1044 

.  1 

.  1 

1 

1 

1 

1045 

.  1 

,  1 

1 

1 

1 

1046 

data 

(PonCommand(i) 

,  i»= 

7521, 

,  7600)/ 

1047 

.  1 

,  0 

1 

1 

1 

1048 

.  1 

,  0 

1 

0 

1 

1049 

.  1 

,  0 

1 

0 

1 

1050 

.  1 

,  0 

1 

0 

1 

1051 

.  1 

,  0 

1 

0 

1 

1052 

.  1 

,  0 

1 

0 

1 

1053 

.  0 

,  1 

0 

1 

0 

1054 

.  1 

,  0 

1 

0 

1 

1055 

.  1 

,  1 

1 

1 

1 

1056 

.  1 

,  1 

0 

1 

0 

1057 

data 

(PonCommand  (i! 

)  ,  i- 

7601 

7680)  / 

1058 

.  1 

,  1 

1 

1 

1 

1059 

.  1 

,  1 

1 

1 

1 

1060 

.  1 

,  1 

1 

0 

1 

1061 

.  1 

,  1 

1 

1 

1 

1062 

.  1 

,  1 

1 

0 

1 

1063 

.  1 

,  1 

1 

1 

1 

1064 

.  1 

,  1 

0 

1 

0 

1065 

.  0 

,  1 

0 

1 

1 

1066 

.  1 

,  1 

1 

1 

0 

1067 

.  1 

,  1 

1 

1 

0 

1068 

data 

( PenCommand ( i ) , i* 

7681 

,  7760)/ 

1069 

.  1 

,  1 

1 

1 

1 

1070 

.  0 

,  1 

1 

1 

1 

1071 

.  1 

,  1 

1 

1 

0 

1072 

.  1 

,  1 

1 

1 

1 

107  3 

.  1 

,  0 

1 

0 

1 

1074 

.  1 

.  1 

0 

1 

1 

1075 

.  1 

,  0 

1 

1 

1 

107  6 

1 

,  1 

1 

1 

r 

1077 

.  1 

,  1 

1 

1 

1 

1078 

.  1 

,  0 

1 

1 

1 

1C  7  0 

dat  a 

(PenCommand  (  i  )  , 

77  61 

,  7840) 

1 0  8  C 

.  1 

.  1 

1 

1 

1 

1081 

.  1 

,  1 

1 

1 

,  c 

10  8  2 

.  1 

0 

1 

1 

1 

1 0  8  ? 

.  1 

,  1 

1 

1 

1 

1084 

.  0 

,  1 

1 

1 

,  1 

,  1 

1 

,  0 

,  1 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  1 

,  0 

,  0 

,  0 

,  0 

,  0 

,  1 

,  1 

,  1 

,  0 

,  0 

,  0 

,  0 

,  1 

,  0 

,  0 

,  0 

.  0 

,  1 

,  1 

,  0 

,  1 

,  1 

,  1 

,  1 

.  1 

,  1 

,  1 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

.  1 

,  1 

,  1 

,  1 

.  1 

,  1 

,  I 

,  1 

,  1 

,  1 

,  1 

,  1 


,  0 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

1 

,  0 

,  0 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

.  1 

.  1 

.  1 

.  1 

,  1 

,  1 

,  1 

,  1 

,  1 


,  1 
,  1 

,  1 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  1 

,  0 

,  1 

,  0 

,  0 

,  1 

,  1 

,  1 

,  1 

,  0 

,  0 

,  0 

,  0 

,  1 

,  0 

,  0 

,  0 

,  0 

,  1 

,  1 

,  0 

,  i 

,  1 

,  1 

,  1 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  0 

1 

,  1 

,  1 

.  1 

,  1 

,  1 

,  0 

,  1 

,  0 

,  1 

,  1 


/ 


/ 
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1085 

.  1 

,  0 

1  ,0 

1 

,  1 

1086 

.  1 

,  1 

1  ,1 

1 

,  0 

1  087 

1 

,  1 

1  ,1 

1 

,  0 

1088 

.  1 

,  1 

1  .1 

1 

,  1 

1089 

.  0 

,  1 

1  ,1 

1 

,  1 

1090 

data 

(PenCommand (i) 

,i=  7841,  7920)/ 

1091 

.  0 

,  1 

1  ,1 

1 

,  1 

1092 

.  1 

,  1 

1  ,0 

1 

,  1 

1093 

.  1 

,  1 

1  ,1 

1 

,  1 

1094 

.  0 

,  1 

1  ,1 

1 

,  1 

1095 

.  1 

,  1 

0  ,1 

1 

,  1 

1096 

.  1 

,  1 

1  ,1 

1 

,  0 

1097 

.  1 

,  1 

1  ,1 

1 

,  1 

1098 

.  1 

,  0 

1  ,1 

1 

,  1 

1099 

.  1 

,  1 

0  ,1 

1 

1100 

.  1 

,  1 

0  ,1 

1 

,  1 

1101 

data 

(Per.Conumand  (i) 

,  i-  7921,  8000)  / 

1102 

.  0 

,  1 

1  ,1 

0 

,  1 

1103 

.  1 

,  0 

1  ,1 

1 

,  1 

1104 

.  1 

,  1 

1  ,1 

1 

,  1 

1105 

.  1 

,  0 

1  ,1 

1 

,  1 

1106 

.  1 

,  1 

1  ,1 

0 

,  1 

1107 

.  1 

,  1 

1  ,1 

1 

,  1 

1108 

.  1 

,  1 

1  ,0 

1 

,  0 

1109 

.  1 

,  1 

0  ,1 

±. 

,  1 

1110 

.  1 

,  1 

0  ,1 

1 

,  1 

1111 

.  1 

,  1 

1  ,1 

,  0 

1112 

data 

(PenCommand (i) 

,!■=  8001,  8080)/ 

1113 

.  1 

,  0 

1  ,1 

1 

,  1 

1114 

.  1 

,  1 

0  ,1 

1 

,  1 

1115 

.  1 

,  1 

1  -  1 

1 

,  1 

1116 

.  1 

,  1 

1  ,1 

1 

,  1 

1117 

.  0 

,  1 

1  ,1 

1 

,  1 

1118 

.  1 

,  1 

1  ,1 

1 

,  1 

1119 

.  1 

,  1 

1  ,1 

0 

,  1 

1120 

.  1 

,  1 

1  -  1 

1 

,  1 

1121 

.  1 

,  1 

1  -  1 

1 

,  1 

1122 

.  1 

!  1-  f 

1  .0 

1 

,  1 

1123 

data 

(PenCommand (i) 

,i-  8081,  8160)/ 

1124 

.  1 

,  0 

1  ,1 

1 

,  1 

1125 

.  1 

,  1 

0  ,1 

1 

,  1 

1126 

.  1 

,  1 

1  ,0 

1 

,  1 

1127 

.  1 

,  1 

1  ,1 

1 

,  1 

1128 

.  1 

,  1 

1  .1 

1 

,  1 

1129 

.  1 

,  0 

1  ,1 

1 

,  1 

1130 

.  1 

,  1 

1  ,1 

0 

,  1 

1131 

.  1 

,  1 

1  ,1 

1 

,  1 

1132 

.  1 

,  1 

1  ,1 

1 

,  1 

113? 

.  1 

,  1 

1  .1 

1 

,  1 

1134 

data 

( PenCommand (i) 

'  , 8161,  8240) / 

1135 

.  1 

,  1 

1  ,1 

1 

,  1 

1136 

.  1 

,  1 

0  ,1 

1 

,  1 

1137 

.  1 

,  1 

1  ,1 

1 

,  1 

1 1  3  B 

.  1 

,  1 

1  ,1 

1 

,  1 

1  i;-B 

,  1 

,  1 

1  ,1 

i 

,  1 

1 1  4 '? 

1 

,  1 

1  ,1 

1 

1 

1141 

.  1 

,  1 

1  .1 

1 

,  1 

1 1  4  2 

.  1 

,  1 

1  ,1 

1 

,  1 

114'- 

.  1 

,  1 

1  ,1 

1 

.  1 

1144 

.  1 

,  1 

1  ,1 

1 

.  1 

1145 

dat  a 

( PenCommand f i ), i=  9241,  8320)/ 

1146 

.  1 

,  1 

0  ,1 

1 

,  1 

114" 

.  1 

,  1 

1  .1 

1 

,  1 

1148 

.  1 

,  1  t 

1  ,1 

1 

,  0 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  0 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  0 

1  ,  1 

1  ,  1 

1  ,  1 

0  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  0 

1  ,  1 

1  ,  1 

1  ,  0 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  0 

1  ,  1 

1  ,  1 


1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

1  ,  ^ 


1  ,  1 

1  ,  1 
1  ,  1 

0  ,  1 

1  ,  1 

1  ,  1 

1  ,  1 

r'  ,1 

1  ,  1 

1  ,  ] 


1 

1 


1 


/ 


/ 
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1149 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1150 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1151 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

n 

, 

1152 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

, 

1153 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

, 

1154 

.  1 

,  1 

1  ,1 

,  1 

,  0 

,  1 

1155 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

/ 

1156 

1157 

data 

.  1 

( PanCommand ( i ] 
,  1 

,i-  8321,  8400)/ 

1  ,1 

1 

,  1 

,  1 

,  1 

1158 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  0 

1159 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1160 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1161 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

1162 

.  1 

.  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1163 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

116.'', 

.  0 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1165 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1166 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

/ 

1167 

1168 

data 

.  1 

( PonCommand ( i ) 
,  1 

,i-  8401,  8480)/ 

1  ,1 

1 

,  1 

,  1 

,  1 

1169 

.  0 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1170 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  0 

1171 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

t 

1172 

.  1 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

t 

1173 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1 

1174 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

f 

1175 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

r 

1176 

.  1 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

r 

1177 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

/ 

13  78 

1179 

data 

.  1 

(PonCommand ( i) 
,  1 

,i-  8481,  8560)/ 

1  ,1 

1 

,  0 

,  1 

,  1 

1 

1180 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

/ 

1181 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

t 

1182 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

t 

1183 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

t 

1184 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  0 

t 

1185 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1186 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

,  1 

t 

1187 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

t 

1188 

.  1 

,  1 

0  ,1 

1 

,  1 

,  1 

,  1 

/ 

1189 

1190 

data 

.  1 

(PonCommand ( i ) 
,  1 

,i-  8561,  8640)/ 

1  ,1 

1 

,  1 

,  0 

,  1 

1191 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

t 

1192 

.  0 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

r 

1193 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

f 

1194 

.  1 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

r 

1195 

.  1 

,  1 

1  ,1 

1 

,  1 

,  0 

,  1 

f 

1196 

.  1 

,  1 

1  ,1 

1 

,  0 

,  1 

,  1 

1197 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1196 

.  1 

,  1 

1  .1 

0 

.  1 

,  1 

,  0 

1199 

.  1 

,  1 

1  .1 

1 

,  0 

,  1 

,  1 

/ 

12  0  0 

12  01 

data 

.  1 

( PonCommand ( i ) 

,  1 

,i-  8641,  8720) / 

1  ,1 

1 

,  1 

,  1 

,  1 

1202 

.  0 

.  1 

1  .1 

1 

,  1 

,  1 

,  1 

12  03 

.  1 

,  1 

0  ,1 

1 

.  1 

,  1 

,  1 

12  0  4 

.  1 

.  1 

1  ,1 

1 

,  1 

,  1 

,  1 

12  0  5 

.  1 

,  1 

0  ,1 

1 

r* 

,  1 

,  c 

1206 

.  1 

,  1 

1  ,0 

1 

,  1 

,  1 

120- 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1208 

.  1 

,  1 

1  .1 

1 

,  1 

,  1 

,  0 

1 2  0  9 

.  1 

.  1 

1  ,1 

1 

,  1 

,  1 

,  1 

1210 

.  1 

,  0 

1  ,1 

1 

,  1 

,  1 

,  1 

1211 

1212 

data 

.  1 

( PonCommand ( i ) 

.  1 

,  i-  8721,  8800)  / 

1  ,1 

1 

,  0 

,  1 

,  1 
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1213 

1214 

1215 

1216 
121' 
1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 
122^ 
1228 
12  2  9 

1230 

1231 

1232 

1233 

1234 

1235 
123  6 
123" 
1238 
123  9 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 
125' 
1258 

1  2  ^  9 
1 2  67 
1261 
1262 
12  63 

1264 

1265 
12  66 
12  6' 
12  6  6 
12  6  9 

1  i 

12'1 


12'4 


0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

Q 

1 

0 

data 

( PonCommand ( i) 

,  i” 

n 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

r, 

,  1  / 

0 

Q 

,  1 

0 

0 

,  1 

0 

0 

,  2 

u 

data 

(PanConunar.d  ( i)  ,  i“ 

0 

,  1 

0 

Q 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

c 

,  1 

0 

data 

(PanCommandd)  ,  i“ 

0 

,  1 

0 

0 

.  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

.  1 

0 

0 

,  1 

0 

1 

,  1 

1 

data 

( PenCommand ( i)  ,  1“ 

0 

,  1 

1 

1 

,  1 

1 

n 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

1 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

0 

,  1 

0 

dat  a 

f  P«nConunand  (  i )  , 

n 

,  1 

o 

,  1 

0 

0 

,  1 

rj 

n 

,  1 

n 

r 

,  1 

n 

n 

,  1 

n 

r. 

,  1 

r. 

0 

,  1 

0 

Q 

,  1 

,  0 

c 

,  1 

,  0 

,1  ,1  .1 

,1  ,0  ,1 

,1  .0  ,1 

.1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  .1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

8801,  8890)/ 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  .1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  .0  .1 

,1  .0  ,1 

.1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

8881,  8960)/ 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  .0  ,1 

,1  ,0  ,1 

8961,  9040)/ 

,1  -  0  .1 

,1  ,0  .  1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

,1  ,0  ,1 

.1  .0  ,1 

,1  ,0  .1 

,1  ,0  ,1 

,1  ,1  -  1 

9041,  9120)/ 

,1  ,1  -  1 

,1  ,0  .1 

,1  ,0  .1 

,1  ,0  ,1 

,1  ,0  .1 

,1  ,0  ,1 

,1  .0  ,1 

,1  ,0 

,1  ,0  .1 

,1  ,0  ,1 

.  9121,  9200),' 

.1  .0  .1 

,1  •  -1 

1  '  0  •  9 

,1  .0  ■  1 

.1  .0  ■  1 

,1  .  '  ■  1 

.  '  -1 

,1  .0  .1 

,1  ,0  ,  1 

1  ,0  .  1 


,  0 
,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 


,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 


,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  1 

,  1 

,  1 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 


0 

n 

0 

0 

0 

0 


1 

1 

1 

1 

1 

1 

1 

1 

1 


,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 


,  1 

,  1 


,  1 


,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 
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12T7 

lZ-!8 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 
13C3 
13  04 

1305 

1306 
130' 

1308 

1309 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 
132  6 
132' 
1328 
132  9 
13  3  0 


13  3  4 
1  3  5 
13  3  6 
133' 
'3 
13  3? 
1  3  4  0 


data 

( PanCommand ( i ) 

,i-  9201, 

9280) 

0 

1 

1 

1 

1 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

n 

,  1 

0 

1 

0 

0 

.  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

.  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

data 

( PanComrcand ( i ) 

,i-  9281, 

9360)  / 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

1 

data 

( PanCommand ( i 

,i-  9361 

9440)  / 

1 

,  1 

1 

1 

1 

0 

,  1 

0 

1 

0 

0 

,  1 

0 

1 

0 

1 

f  ^  t 

0 

1 

n 

0 

.  1 

1 

1 

0 

0 

,  1 

0 

1 

1 

1 

,  1 

1 

1 

1 

1 

,  0 

1 

0 

1 

1 

,  1 

1 

1 

1 

1 

,  0 

1 

1 

1 

iPanOomn"''-'  <  • 

,  i"  94'*'' 

9520)  / 

.  1 

,  1 

1 

1 

1 

1 

,  1 

1 

1 

1 

.  1 

,  1 

1 

1 

1 

.  1 

,  1 

1 

1 

1 

.  1 

,  1 

1 

1 

1 

.  1 

,  1 

1 

1 

1 

.  1 

r  1  1 

1 

1 

1 

.  1 

,  1 

1 

1 

1 

.  1 

,  1 

1 

1 

1 

.  X 

,  1 

1 

1 

1 

data 

( PanCommand ( i) , i*  9521 

,  9600)/ 

.  1 

r  1 

1 

1 

1 

.  1 

,  1 

1 

1 

1 

.  1 

,  1 

1 

0 

1 

.  1 

,  0 

1 

0 

1 

.  1 

r  0 

1 

0 

1 

.  1 

0  , 

1 

0 

1 

.  1 

,  0 

1 

n 

1 

.  1 

,  1 

1 

1 

1 

0 

1 

1 

1 

.  1 

0 

1 

n 

1 

dat  a 

c PenComrnand  [  i 

1 , 1-  ^601 

oscni 

1 

.  1 

1 

r 

i 

.  1 

r. 

1 

1 

1 

1 

0 

1 

/-i 

1 

.  1 

1 

r> 

1 

.  1 

,  0 

1 

r> 

1 

.  0 

1 

•j 

1 

1 

,  1 

0 

1 

0 

-  1 

1 

1 

1 

,  1 
,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 


,  1 

,  1 

,  1 

T_ 

,  1 

,  1 

,  1 

,  0 

,  2 

,  1 

,  0 

,  1 

,  1 

.  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  0 

,  0 

,  0 

.  0 

,  1 

0 
n 
o 


,  1 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  0 

,  1 

,  1 

,  0 

,  0 

,  0 

,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  i 

,  0 

,  1 


,  1 
,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 


,  0 

,  1 


n 

0 


1 
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1341 

1 

,  1 

1  .  1 

1 

,  1 

1 

,  1 

134; 

1 

,  1 

1  ,  1 

1 

,  1 

1 

1 

1343 

data 

( PenCommand 

i 

,  i-  9681.  9760),. 

1344 

1 

,  1 

1  ,  1 

1 

,  1 

1 

,  1 

1345 

1 

,  1 

0  ,  1 

0 

/  1 

0 

,  1 

1346 

1 

,  1 

1  ,  1 

1 

,  0 

1 

,  0 

134’ 

i 

,  1 

1  ,  0 

1 

,  0 

1 

,  n 

1346 

1 

]_ 

1  ,  1 

1 

1. 

,  1 

1 

n 

13  4  5 

1 

0  ,  1 

n 

.  1 

n 

.  1 

1350 

0 

,  1 

0  ,  1 

0 

,  1 

0 

,  1 

13  51 

c 

,  1 

0  ,  1 

0 

,  1 

X 

1 

1352 

n 

,  1 

0  ,  1 

1 

,  0 

1 

,  1 

1353 

.  1 

,  0 

1  ,  1 

1 

,  0 

1 

,  1 

1354 

data 

!  rar.Cotnmand  ( i 

,  i-  9761,  9840) 

1155 

.  1 

,  1 

1  ,  1 

1 

.  0 

1 

,  1 

1356 

.  1 

,  0 

1  ,  0 

1 

,  0 

1 

,  0 

13  5’ 

.  1 

,  0 

1  ,  0 

1 

,  0 

1 

,  1 

1358 

.  1 

,  1 

1  ,  0 

1 

,  1 

1 

X 

1359 

.  1 

,  1 

0  ,  1 

0 

,  1 

1 

,  1 

136C 

1 

,  1 

1  ,  1 

1 

,  1 

1 

,  1 

13  61 

.  1 

1  ,  0 

1 

,  0 

X. 

,  1 

1362 

.  1 

,  0 

1  .  0 

1 

,  1 

1 

,  0 

1363 

.  1 

,  0 

1  ,  1 

1 

,  1 

1 

,  1 

1364 

.  0 

,  1 

1  ,  1 

1 

,  1 

1 

,  1 

1365 

data 

1 F enCommand  ^ 

i) 

,  i-  9841,  9920)  ,■ 

1366 

.  1 

,  C 

1  ,  0 

1 

,  0 

1 

n 

13  6’ 

.  1 

,  0 

1  ,  0 

1 

,  0 

1 

,  0 

1363 

.  1 

.  0 

1  ,  0 

1 

,  0 

1 

,  1 

1365 

.  1 

,  1 

1  ,  1 

1 

,  1 

Q 

,  1 

1300 

.  1 

,  1 

1  ,  1 

1 

,  1 

1 

,  0 

13’ 1 

.  1 

,  1 

1  ,  1 

1 

,  1 

t 

1 

,  0 

13’2 

.  1 

,  0 

1  .  0 

1 

,  0 

r 

1 

,  1 

13’3 

.  1 

,  0 

1  ,  0 

1 

,  0 

t 

1 

,  0 

1304 

.  1 

,  0 

1  .  0 

1 

,  0 

1 

,  0 

1305 

.  1 

,  0 

1  ,  0 

1 

,  0 

1 

.  0 

1376 

data 

( PanCommand I 

i) 

,  i-  9921,  10000)  ,/ 

1377 

.  1 

,  0 

1  ,  0 

1 

,  0 

1 

,  0 

1378 

.  1 

,  0 

1  ,  0 

1 

,  0 

1 

,  0 

137y 

,  1 

,  0 

1  ,  0 

1 

,  0 

1 

,  0 

1380 

.  1 

,  0 

1  ,  1 

1 

,  0 

1 

,  1 

1301 

.  1 

,  0 

1  ,  0 

1 

,  1 

1 

,  1 

1382 

.  1 

,  0 

1  ,  0 

1 

,  1 

1 

,  1 

1383 

.  1 

,  1 

1  ,  1 

0 

,  1 

1 

,  1 

13  54 

.  X 

f 

1  ,  1 

1 

,  0 

1 

,  1 

1385 

.  1 

,  1 

, 

1  ,  1 

1 

,  1 

c 

,  1 

1386 

.  1 

,  1 

, 

1  ,  1 

1 

,  1 

1 

,  1 

138’ 

data 

( PenCommand ( i) 

,  i-10001,  10090)  / 

1388 

.  0 

,  1 

, 

1  ,  1 

1 

,  1 

1 

,  1 

1399 

.  0 

,  1 

0  ,  1 

0 

,  1 

n 

,  1 

13  90 

.  0 

,  1 

1  ,  1 

0 

,  1 

1 

,  1 

1391 

.  0 

,  1 

1  ,  1 

0 

,  1 

1 

,  1 

1392 

(J 

,  1 

0  ,  1 

0 

,  1 

0 

,  1 

13  93 

.  1 

,  0 

1  ,  0 

1 

,  0 

1 

,  0 

1  3  94 

.  1 

,  0 

1  ,  0 

1 

.  0 

1 

,  0 

13  95 

.  1 

,  0 

1  .  0 

1 

n 

1 

n 

13  96 

.  1 

n 

1  ,  1 

r- 

.  1 

r> 

.  1 

13?’ 

1 

,  1 

0  ,  1 

O' 

.  1 

1 

13  99 

dat  a 

1 PenCommand ( 

i) 

,  i»10081, IOI6O1  , 

13  99 

,  1 

0  ,1 

'■ 

.  1 

1 

1 

1  4  ’  ’ 

.  1 

.  1 

1  ,1 

1 

.  1 

1 

* 

1  ■'  0  1 

.  1 

,  1 

1  ,1 

1 

.  1 

,  I 

14  0  2 

,  1 

1  .1 

1 

,  1 

n 

,  1 

1  4  :■  3 

.  1 

,  1 

1  ,0 

1 

,  1 

1 

,  1 

14  0  4 

.  1 

,  1 

1  .1 

1 

,  1 

1 

,  I 
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:4C5 
14'-  « 

1  4  'J  ■ 

14''  = 

1 4 ;  s 

1 4 1 : 

I4i: 

14  1- 

1414 

1415 

1416 
141' 
14  le 
141? 
142  ' 
1421 
142  2 

1423 

1424 
142  = 
14  2  6 
142' 
14  2  9 
142  9 
14  31 

1431 

1432 
14  3  3 
14  34 
1435 
14  36 
14  3’ 
14  3? 
143? 
144  = 

1441 

1442 

1443 

1444 

1445 

1446 
144' 

1448 

1449 
1451 
1451 
14  52 
145  3 
1454 
1  4  5  5 
14  =  = 
14  =  ' 
14  59 


■.46: 
14  61 
.4  6^ 
1  4  3 
14  =  4 
14  6  5 
1.  4  ^  ^ 
14  6' 
14  69 


1 


data 


data 

,  1 


data 
.  1 
1 
n 

1 

1 

1 

1 

I 

1 

data 


1 

1 

data 

n 


.  1 

1  .1 

1 

,  1 

'  ^ 

,  1 

1  .  0 

1 

.  1 

,  1 

,  1 

.  1 

1  .  1 

1 

,  1 

,  1 

' 

1  ,  1 

1 

,  1 

,  1 

•  " 

P«nConimanci  ( i ) 

, i-10161, 10240) . 

,  1  , 

1  ,  1 

1 

,  1 

,  1 

1  ,  1 

1 

,  1 

,  1 

0 

,  1 

,  1 

,  1 

^  , 

X  -•  X 

.  1 

.  1 

1  .  1 

Q 

,  1 

,  1 

.  1 

1  .  1 

1 

,  1 

0 

’  ♦ 

-  1 

C  .  1 

1 

A 

,  1 

,  1 

1  .  1 

0 

,  1 

,  1 

,  1 

,  1 

1  .  1 

1 

,  1 

,  1 

' 

,  1 

1  .  0 

1 

.  1 

'  ^ 

,  1 

1  .  1 

1 

,  1 

,  1 

’ 

( PanComitand  { i 

, i-10241, 10320) / 

,  1 

Q 

1  .  1 

i 

,  1 

,  1 

,  1 

1  .  1 

1 

,  1 

,  1 

,  1 

.  1 

1  ,  1 

1 

,  1 

,  1 

.  1 

.  1 

1  ,  1 

1 

,  1 

■  ' 

1  ,  1 

1 

,  1 

,  1 

.  1 

,  1 

1  .  1 

0 

,  1 

,  1 

,  1 

,  1 

1  .  1 

1 

,  1 

,  0 

1 

.  1 

1  .  1 

1 

,  1 

,  1 

1  .  1 

1 

,  1 

,  1 

.  1 

,  1 

1  .  0 

1 

,  1 

,  1 

,  1 

( PanConutiand  (i)  ,  i"10321,  10400)  , 

.  1 

1  ,  1 

1 

,  0 

,  1 

1 

,  1 

1  .  1 

1 

,  1 

,  1 

.  1  ' 

1  ,  1 

,  1 

,  1 

,  1 

1 

0 

1  .  1 

,  1 

,  1 

,  1 

1 

’  i_  ’ 

0  ,  1 

,  1 

,  1 

,  1 

2 

,  1 

0  ,  1 

,  1 

,  1 

,  1 

1 

.  1 

1  .  1 

,  1 

,  1 

,  1 

1 

,  1 

1  .  1 

,  0 

,  1 

,  1 

,  1 

,  1 

1  .  1 

,  1 

,  1 

,  1 

0 

,  1 

1  ,  1 

,  1 

,  1 

,  1 

,  1 

( PanCommand ( i ) / 1-10401, 10480) 

,  1 

1  .  1 

.  0 

,  1 

,  1 

,  1 

,  1 

1  .  0 

,  1 

,  1 

,  1 

.  1 

.  1 

1  .  1 

,  1 

,  0 

.  1 

.  1 

1 

1  .  1 

,  1 

.  0 

,  1 

.  1 

,  1 

1  ,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

1  ,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

1  ,  1 

.  1 

,  1 

,  0 

,  1 

,  1 

1  .  1 

,  1 

.  1 

,  1 

,  1 

,  1 

,  0  ,1 

,  1 

.  1 

,  1 

,  1 

.  1 

,  1  .1 

,  1 

,  1 

,  1 

,  1 

/PenConunand  (i),i“10481, 10560) 

,  1 

,  1 

,  1  .1 

,  1 

,  1 

,  1 

,  1 

.  1  .1 

,  1 

A 

,  1 

,  1 

,  1 

,  1  ,1 

,  1 

.  1 

,  0 

,  1 

.  1 

,  1 

,  1 

,  1 

2 

,0  .1 

,  1 

,  1 

,  1 

2 

1 

• 

■* 

:  1 

■  ‘ 

* 

1 

\ 

■  ‘ 

* 

data  '  P  «  n  ■ '  omm  a  r,  J  '  i  ■ 

,  1“  1 1  .  2  ;  *'■4  ■'’  * 

,  1 

1 

1 

,  i 

,  1 

2 

,  1 

.  1 

,  1 

.  1 

1  0 

,  1 

,  1 

.  1 

,  1 

,  1 

I  -1 

1  .1 

1  2 

.  1 

,  1 

0 
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4  6  9 


:4'1 

4': 


•.4" 

14'^ 

1  4  ■  9 
'.4  9  :■ 

:  4  9 
'.4  0; 
14  8:- 
1484 
-.4  35 
'.488 
:  45' 
14  9  6 
1  4  6  ■* 
14?':’ 
14  91 
1  4  91 
1  4  ?  3 
14  94 
1495 
14  9  8 
14  9' 
14?8 
1  4  9  9 
1511 
1511 
1501 
:5’13 
1504 
150  5 

1518 
15'1" 

1519 
1  b'l  9 
1511 


1519 

1514 


'  '  9 

1:14 


.  1 

.  1 

1  .  1 

1 

1 

.  1 

1  ,  0 

1 

1 

.  1  / 

1  .  1 

1 

1 

1  ,  1 

1 

: 

1 

1  ,  1 

1 

c 

,  1 

i  .  1 

1 

data 

FenCommand (i) 

, i-10641, 10120) / 

1 

0  ,  1 

0 

f  1  . 

1  ,  1 

1 

.  1  / 

1  .  1 

1 

.  X 

.  1 

A  ^ 

0 

2. 

,  1 

1  •  1 

1 

2. 

,  1 

0  ,  1 

0 

■: 

.  1 

C  .  1 

n 

: 

,  1 

0  ,  1 

1 

: 

,  1  , 

1  ,  1 

1 

2. 

,  1 

1  ,  1 

1 

data 

' FenCommand ( i ) 

. i-lU721. 10800) / 

]_ 

,  1 

1  ,  1 

1 

0 

T_ 

1  .  1 

1 

.  1 

■  X  1 

1  ,  X 

1 

0 

.  1 

1  .  1 

1 

.  X 

,  1 

1  ,  1 

1 

c 

.  1 

1  ,  1 

1 

.  1 

.  1  , 

1  ,  1 

1 

.  1 

,  1 

1  .  0 

1 

.  1 

,  1 

1  .  0 

1 

n 

,  0 

1  ,  0 

1 

data 

(FenCommand ( i 

, i-10801, 10880 / 

.  X 

,  1 

1  ,  0 

1 

1 

.  0 

1  .  0 

1 

0 

1 

0  ,  1 

0 

0 

.  1 

1  .  1 

1 

.  1 

,  1 

1  ,  1 

0 

.  1 

,  1 

0  ,  1 

,  0 

0 

,  1 

0  ,  1 

0 

Q 

!  1  , 

0  ,  1 

,  0 

0 

/  X  t 

0  ,  1 

,  0 

n 

,  1 

0  ,  1 

.  0 

data 

( FenCommand  < i) , 1*10881 .  10960)  / 

0 

,  1 

1  ,  1 

,  0 

.  0 

,  1 

0  ,  1 

,  1 

0 

,  1 

0  .  1 

,  0 

n 

,  1 

0  .  1 

,  0 

,  1 

0  ,  1 

,  0 

.  1 

0  ,  1 

,  1 

n 

.  1 

0  .  1 

,  0 

,  1 

0  ,  1 

n 

.  1 

,  1 

1  .  1 

,  1 

n 

,  1 

1  .  1 

,  1 

data 

( FenCommand  fi'  . 1*10961, 11040)  • 

i 

1 

1  .  0 

,  1 

.  1 

,  1  , 

1  ,  1 

-  1 

■: 

,  1 

1  .  1 

,  1 

■  ' 

,  4 

1  .  1 

1 

1 

1 

1  : 

.  1 

i 

, 

.  4 

-  ‘ 

.  1 

* 

.  1 

* 

.  : 

.  1 

1  ■  ’■ 

- 

.  1 

2 

1  ■  ' 

•  * 

■data 

' FenCcmmand (i)  1*110  41. 111^0)  , 

.  1 

1 

,  1 

2 

,  C' 

1  1^. 

1 

,  1 
,  1 
,  0 


1 

1 

1 

1 

1 


1 

J. 

1 

n 

1 


,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

.  0 

1 

,  0 


1 

1 

1 

c 

0 

1 


1 


1 

1 

1 

1 

1 

1 


,  1  .  1 

,  1  .  1 
,  1  ,  1 

,  1  .  1 

,  1  .  1 

,  1  .  1 

,1  ,  1 

.  0  ,  1 

,  0  ,  1 

.  0  ,  1 


A 

n 

1 


,  0 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 


,  1  .  0 

,  1  .  1 

,  0  ,  1 

,  1  .  1 

,  1  .  1 

,  0  ,  1 

,  0  ,  1 

,  0  ,  1 

,  0  ,  1 

,  0  ,  1 


,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 

,  1 


,  1  ,  1 

,  0  ,  1 

,0  ,1 

,  0  ,  1 

,  0  ,  1 

,  0  ,  1 

,  0  ,  1 

.  1  .  1 

,  1  .  1 

,  1  .  1 


,  1 

,  1 

,  1 


1 


1 


1 

1 

1 


1 

1 


1 

1 

1 


,  1  ,1  .  1 
,  1  ,1  .  1 
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1533 

1334 

1535 

153b 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 
154' 

1548 

1549 

1550 

1551 


.  0  ,1  .1 

.  1  ,1  -  1 

.  0  .1  ,1  -1  '  1 

.  1  ,1  -  0  .1  .0 

.  1  ,1  .1  -1  '  1 

.  1  ,1  .0  ° 

.  0  ,1  .0  .1  .1 

.  0  ,1  .1  -1  '  0 

data  ( PenCommand ( i) , i— 11121,  11200) / 

.0  ,1  ,1  -1  '  1 

.  1  ,1  ,1  .0  '  1 

.  1  ,1  ,1  .0  ,  1 

.  1  ,0  ,1  .0  ,  1 

.1  0  ,1  .1  •  1 

.1  ,0  ,1  .0  ,  1 

.1  ,1  .1  ,1  ,  1 

.1  ,1  ,1  .1  '  1 

.1  ,1  .1  ^ 

.0  ,1  ,1  .1  '  1 


1552  data  ( PenCommand ( i ), i“l 1201 , 11280) / 


1553 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

,  1 

1554 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

f  0 

15'^  5 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

1556 

.  1 

,  1 

1 

0 

1 

,  1 

,  1 

,  1 

155^ 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

.  0 

1558 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

1559 

.  1 

,  1 

1 

0 

1 

.  0 

,  1 

,  0 

1560 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1561 

.  1 

,  1 

1 

0 

1 

,  0 

,  1 

/  0 

1562 

1563 

.  1 

data 

,  0 

(PenCommand (i) 

1 

, i-11281. 

0 

11360)  / 

1 

,  0 

,  1 

,  1 

1564 

.  1 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

1565 

.  0 

,  1 

1 

1 

0 

,  1 

,  1 

,  1 

1566 

.  0 

,  1 

1 

1 

0 

,  1 

,  0 

,  1 

1567 

.  0 

,  1 

0 

1 

1 

,  1 

,  0 

,  1 

1568 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  1 

1569 

.  1 

,  1 

1 

1 

0 

,  1 

,  1 

,  1 

1570 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

1571 

.  1 

,  1 

1 

0 

1 

,  0 

,  1 

f  0 

1572 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1573 

1574 

.  1 

data 

,  0 

(PenCommand ( i 

1 

,1-11361 

0 

11440) / 

1 

,  0 

,  1 

,  1 

1575 

.  1 

,  0 

1 

1 

1 

,  1 

r  0 

.  1 

1576 

.  1 

,  1 

1 

1 

0 

.  1 

,  1 

.  1 

1577 

.  0 

,  1 

0 

1 

1 

,  1 

r  0 

,  1 

1578 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

1579 

.  0 

,  1 

1 

1 

0 

,  1 

,  1 

,  1 

1580 

.  1 

,  1 

1 

1 

1 

,  0 

-  1 

,  1 

1581 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  1 

1582 

.  1 

,  1 

1 

A 

1 

,  0 

,  1 

.  0 

1583 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

»  0 

1584 

1585 

.  1 

data 

,0  ,1 

( PenCommand ( i ) . i—1 1 4  4 1 

0 

, 11520)  / 

1 

,  0 

.  1 

1 

1586 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

1 

1587 

.  1 

.  1 

1 

1 

1 

n 

.  1 

c 

158  8 

.  1 

,  1 

1 

1 

1 

.  1 

1 

1 

1589 

1 

n 

1 

1 

1 

.  1 

.  1 

1 

1590 

.  1 

.  1 

1 

1 

1 

r- 

1 

* 

1591 

.  1 

.  1 

1 

1 

1 

.  1 

.  1 

15  92 

.  1 

.  1 

0 

1 

.  1 

,  1 

1 

15  93 

1 

,  1 

1 

1 

n 

.  1 

,  1 

,  1 

1594 

1 

,  1 

1 

1 

,  1 

,  1 

,  1 

n 

15  95 

1596 

.  1 

data 

,1  ,1 
(PenCommand (i) ,1-11521 

1 

,  11600)  / 

,  1 

,  1 

,  1 

p 
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1597 

.  1 

,  1 

1 

1 

1 

,  1 

15  >8 

.  1 

,  0 

1 

0 

1 

,  0 

1599 

.  1 

,  0 

1 

0 

1 

,  1 

1600 

.  1 

,  0 

1 

1 

1 

,  1 

1601 

.  1 

,  1 

1 

1 

1 

,  1 

1602 

.  1 

,  1 

1 

1 

1 

,  1 

1603 

.  1 

,  1 

1 

0 

1 

,  1 

1604 

.  1 

,  1 

1 

1 

1 

,  1 

1605 

.  1 

,  1 

0 

1 

1 

,  1 

1606 

160’’ 

.  1 

data 

,  1 

(PenCommand ( i) 

1 

, i-11601. 

1 

11680) / 

1 

,  0 

1609 

.  1 

,  1 

1 

1 

1 

,  1 

1609 

,  1 

,  1 

1 

1 

1 

,  0 

1610 

.  1 

,  0 

1 

0 

1 

,  0 

1611 

.  1 

,  0 

1 

0 

1 

,  0 

1612 

.  1 

,  1 

1 

0 

1 

,  1 

1613 

.  1 

,  0 

1 

0 

1 

,  0 

1614 

.  1 

.  0 

1 

1 

1 

,  1 

1615 

.  1 

,  1 

1 

1 

1 

,  1 

1616 

.  1 

,  1 

1 

1 

1 

,  1 

1617 

1618 

.  0 

data 

,  1 

(PanCommand ( i) 

1 

,  i-11681, 

1 

,  11760)  / 

1 

,  1 

1619 

.  1 

,  1 

1 

1 

1 

,  0 

1620 

.  1 

,  1 

1 

0 

1 

,  0 

1621 

.  1 

,  0 

1 

0 

1 

,  0 

1622 

.  1 

,  0 

1 

0 

1 

,  0 

1623 

.  1 

,  1 

1 

1 

1 

,  1 

162  4 

.  0 

,  1 

0 

1 

0 

,  1 

1625 

.  1 

,  1 

0 

1 

0 

,  1 

1626 

.  0 

,  1 

0 

1 

0 

,  1 

1627 

.  c 

,  1 

1 

1 

1 

,  1 

1628 

1629 

.  1 

data 

,  1 

( PanCommand ( i) 

1 

1  , i-11761 

1 

,  11840) / 

1 

,  1 

1630 

.  1 

,  i 

1 

1 

1 

,  1 

1631 

.  1 

,  1 

1 

1 

1 

,  1 

1632 

.  1 

,  1 

1 

1 

1 

,  1 

1633 

.  1 

,  1 

1 

0 

1 

,  0 

1634 

.  1 

,  0 

1 

0 

1 

,  0 

1635 

.  1 

,  0 

1 

0 

1 

,  0 

1636 

.  1 

,  0 

1 

1 

1 

,  1 

1637 

.  1 

,  0 

1 

1 

1 

,  0 

1638 

.  1 

,  0 

1 

1 

1 

,  0 

1639 

1640 

.  1 

data 

,  1 

( PanCommand ( i 1 

1 

1  , i-11841 

1 

,  11920)  / 

1 

,  1 

1641 

.  0 

,  1 

0 

1 

1 

,  1 

1642 

.  1 

,  1 

1 

1 

0 

,  1 

1643 

.  1 

,  1 

1 

1 

1 

,  0 

1644 

.  1 

,  0 

1 

0 

1 

,  1 

1645 

.  1 

.  1 

1 

1 

1 

,  1 

1646 

.  1 

,  1  , 

1 

1 

1 

,  1 

164  7 

.  1 

,  1 

1 

1 

1 

,  1 

l‘:48 

.  1 

,  1 

1 

1 

1 

,  1 

1619 

.  1 

,  0 

1 

0 

1 

,  0 

1650 

.  1 

,  0 

1 

0 

1 

,  0 

,  1  ,1 

,  1  ,  ^ 

,  1  .1 

,  1  .0 

,  1  ,1 

,  1  ,1 

,  1  ,1 

,  1  ,1 

,  1  .1 

,  1  .  1 

,  1  .1 

,  1  -  1 

,  1  ,1 

,  1  .0 

,  1  .0 

,  1  .0 

,  1  -  1 

,  1  ,1 

,  1  .1 

,  1  ,1 

,  1  ,0 

,1  ,0 

,1  ,0 

,1  -  1 

,0  ,  1 

,0  ,1 

,0  ,  1 

,0  ,  1 

,1  ,  1 

,1  .  1 

,1  -  1 

,1  ,  1 

,1  .  1 

,1  ,  0 

,1  ,  0 

.1  .  1 

,1  ,  0 

,1  ,  0 

,1  .  0 

,1  .  1 

,1  .  1 

,1  ,  1 

,1  .  1 

,1  ,  1 

,1  -  1 

,1  .  1 

,1  .  1 

,1  .  c 

,1  .  0 

,1  .  1 


1651 

data 

f  PenCommand (i)  . 

12000) 

1652 

1 

,  1 

n 

1 

o 

,  1 

T_ 

165  3 

.  1 

,  1 

.  1 

1 

1 

.  1 

.  1 

165  4 

1 

.  j. 

.  1 

1 

1 

,  1 

,  C' 

,  1 

1655 

0 

,  1 

.  1 

1 

1 

,  1 

,  1 

,  1 

165  6 

1 

,  1 

.  0 

1 

1 

.  1 

0 

,  1 

165“' 

n 

,  1 

,  0 

1 

n 

,  1 

,  0 

.  1 

1650 

0 

,  1 

,  0 

1 

1 

.  1 

,  1 

,  1 

1  65  ? 

.  1 

,  1 

.  1 

1 

1 

,  1 

,  1 

,  1 

16  60 

1 

,  1 

,  1 

0 

1 

.  c 

,  1 

,  0 
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1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 


.  1 
data 
.  1 
.  1 
.  0 
.  1 
.  0 
0 

.  1 
.  0 
.  0 
.  1 
data 
.  0 
.  0 
.  1 
.  1 
.  1 
.  1 
.  1 
.  1 
.  1 
.  1 
data 
.  1 
.  0 
.  1 
.  0 
.  0 
.  0 
.  0 
.  1 
.  1 
.  1 
data 
.  0 
.  1 
.  1 
.  0 
.  0 
.  0 
.  0 
.  0 
.  0 
.  0 
data 


,0  ,1 

( PenCommand  ( i)  ,  i* 


,  0 
,  0 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 

( PenConunand  ( i ) 
,  1 
,  1 
,  0 
,  0 
,  0 
,  0 
,  0 
,  0 
,  1 
,  1 

{ PenCommand (i) 
.  1 
,  1 
,  1 
.  1 
,  1 
,  1 
,  1 
,  1 
,  0 
,  1 

( PenCommand (i) 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
.  1 
.  1 
,  1 


1 

1 

0 

0 

0 

0 

0 

0 

1 

1 

,  i 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 

,  i 
1 
1 
1 
0 
0 
0 
0 
1 
1 
1 

,  i 
1 
1 
0 
0 
0 
0 
0 
0 
0 
0 


(PenCommand  (i)  ,  i' 


12001,  12080)  / 

,  0 
,  0 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 

12001, 12160)  / 

,  1 
,  1 
,  0 
,  1 
,  0 
,  0 
,  0 
,  1 
,  1 
,  1 

■  12161,  12240)  / 

,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 

■12241,12320)/ 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 
,  1 

■  12321,  12400)  / 


1 

1 

0 

1 

0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 


0 

1 

1 

1 

1 

1 

1 

1 

0 

1 

1 

1 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

0 

0 

0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

0 

0 


0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

0 

0 

0 

0 

0 

0 

1 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1707 

.  0 

,  1 

,  0 

1 

,  0 

,  1 

,  0 

,  1 

1708 

0 

,  1 

,  0 

1 

,  0 

,  1 

,  0 

,  1 

1-709 

.  0 

,  1 

,  0 

1 

,  0 

,  1 

,  0 

,  1 

1710 

.  0 

,  1 

,  0 

1 

,  0 

,  1 

,  0 

,  1 

1711 

.  0 

,  1 

,  0 

1 

,  0 

,  1 

,  0 

,  1 

1712 

.  0 

,  1 

,  0 

1 

,  0 

,  1 

,  0 

,  1 

1713 

.  0 

,  1 

,  0 

1 

,  0 

,  1 

,  0 

,  1 

1714 

.  0 

,  1 

,  0 

1 

0 

,  1 

,  c 

,  1 

1"15 

n 

,  1 

0 

1 

0 

.  1 

.  0 

,  1 

17  16 

n 

,  1 

0 

1 

. 

.  1 

n 

,  1 

I'l' 

1'’18 

data 

r, 

( Pen  Command 
,  1 

1) , i-124Cl 

0 

1248n) 

1 

n 

,  1 

n 

.  1 

1^19 

.  0 

,  1 

0 

1 

r> 

,  1 

o 

,  1 

1'2C 

.  0 

.  1 

0 

1 

r. 

.  1 

0 

.  1 

1"21 

J 

,  1 

n 

7 

O' 

,  1 

n 

,  1 

1722 

,  1 

,  0 

1 

,  0 

,  1 

,  0 

,  1 

1'2  3 

0 

,  1 

,  0 

1 

,  0 

.  1 

,  0 

,  1 

1-24 

.  C 

,  1 

,  0 

1 

,  0 

,  1 

.  0 

,  1 
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1725 

.  0 

,  1 

, 

1 

1 

1 

,  1 

,  0 

,  1 

1726 

.  0 

,  1 

, 

0 

1 

0 

,  1 

,  0 

,  1 

, 

1727 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

/ 

1728 

data 

(P«nCommand(i) 

,  i- 

12481, 

12560)  / 

1729 

.  0 

,  1 

1 

1 

0 

,  1 

,  0 

,  1 

, 

1730 

.  1 

,  1 

1 

1 

1 

,  1 

,  0 

,  1 

1731 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

1732 

.  0 

,  1 

0 

1 

0 

,  1 

,  1 

,  1 

, 

1733 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

, 

1734 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

1735 

.  1 

,  1 

1 

1 

0 

,  1 

,  0 

,  1 

1736 

.  1 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

, 

1737 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

1738 

.  0 

,  1 

0 

1 

0 

,  1 

,  0 

,  1 

/ 

1739 

data 

( PenCommand ( i) 

,  i“ 

12561, 

12640)  / 

1740 

.  1 

,  1 

1 

1 

1 

,  1 

,  1 

,  1 

1741 

.  1 

,  1 

1 

1 

1 

,  0 

,  1 

,  0 

, 

1742 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

, 

1743 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1744 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1745 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1'46 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1747 

.  1 

,  1 

1 

1 

0 

,  1 

,  0 

,  1 

, 

1748 

.  0 

,  1 

1 

1 

0 

,  1 

,  0 

,  1 

, 

1749 

.  1 

,  1 

0 

1 

1 

,  1 

,  1 

,  1 

/ 

1750 

data 

(PenCommand ( i ) 

, 

12641, 

12720)  / 

1751 

.  1 

,  1 

, 

1 

0 

1 

,  0 

,  1 

,  0 

1752 

.  1 

,  0 

, 

1 

0 

1 

,  0 

,  1 

,  1 

r 

1753 

.  1 

,  1 

, 

1 

1 

1 

,  0 

,  1 

,  0 

t 

1754 

.  1 

,  0 

, 

1 

0 

1 

,  0 

,  1 

,  0 

t 

1755 

.  1 

,  0 

, 

1 

0 

1 

,  0 

,  1 

,  0 

r 

1756 

.  1 

,  0 

, 

1 

t 

0 

1 

,  0 

,  1 

,  0 

f 

1757 

.  1 

,  0 

, 

1 

t 

0 

1 

,  0 

,  1 

,  0 

t 

1758 

.  1 

,  0 

, 

1 

t 

0 

1 

,  0 

,  1 

,  0 

t 

1759 

.  1 

,  0 

, 

1 

t 

1 

1 

,  0 

,  1 

,  0 

, 

1760 

.  1 

,  0 

, 

1 

• 

0 

1 

,  0 

,  1 

,  0 

/ 

1761 

data 

( PenConunand  ( i ) 

,1-12721, 

12800) / 

1762 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

, 

1763 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

, 

1764 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

, 

1765 

.  1 

,  0 

1 

, 

0 

1 

,  0 

,  1 

,  0 

, 

1766 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

, 

1767 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

1768 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

, 

1769 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

, 

1770 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

, 

1^71 

.  1 

,  0 

, 

1 

, 

0 

1 

,  0 

,  1 

,  0 

/ 

1  7  2 

data 

(PenCommand ( i) 

,  1“ 

12801, 

12880)  / 

17^3 

.  1 

,  0 

1 

, 

0 

1 

,  0 

,  1 

,  0 

1774 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1^75 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1''76 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1779 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

.  0 

l-'9 

.  1 

,  0 

1 

0 

1 

.  0 

,  1 

0 

1780 

.  1 

,  0 

1 

0 

1 

.  0 

.  1 

n 

1^81 

.  1 

o 

1 

0 

1 

.  0 

,  1 

0 

1782 

.  1 

n 

1 

0 

1 

n 

,  1 

0 

1"^83 

data 

( P  anCommand 

i) 

,  i- 

12881, 

12960)  . 

1784 

.  1 

(j 

1 

0 

1 

n 

,  1 

,  0 

1'’85 

.  1 

n 

1 

0 

1 

0 

,  1 

0 

1786 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1797 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 

1798 

.  1 

,  0 

1 

0 

1 

,  0 

,  1 

,  0 
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1789 

.  1 

,  0 

1  .  0 

1 

,  0 

,  1 

,  0 

, 

1790 

.  1 

,  0 

1  .0 

1 

,  0 

,  1 

,  0 

1791 

.  1 

,  0 

1  .0 

1 

,  0 

,  1 

,  0 

1792 

.  1 

,  0 

1  .0 

1 

,  0 

,  1 

,  0 

17  93 

1794 

.  1 

data 

,  0 

(PenCoramand(i) 

1  .0 
,  i-12961, 1304- , / 

1 

/  ^ 

,  1 

,  0 

/ 

1795 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

1796 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

0 

1797 

.  1 

.  0 

1  ,0 

1 

,  0 

,  1 

,  0 

1798 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

1799 

1 

.  0 

1  ,0 

1 

,  0 

,  1 

,  0 

, 

1800 

.  1 

.  0 

1  ,0 

1 

,  0 

,  1 

,  0 

1801 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

1802 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

1803 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

Pi 

1804 

1805 

.  1 

data 

,  0 

(PenCommand ( i) 

1  ,0 
,  i-13041, 13120) / 

1 

,  0 

,  1 

,  0 

1806 

.  1 

.  0 

1  ,0 

1 

,  0 

,  1 

,  0 

1807 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

, 

1808 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

, 

1809 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

, 

1810 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

, 

1811 

.  1 

,  0 

1  .0 

1 

,  0 

,  1 

,  0 

, 

1812 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

, 

1813 

.  1 

,  0 

1  ,0 

1 

,  0 

,  1 

,  0 

, 

1814 

.  1 

,  1 

1  ,1 

1 

,  1 

,  1 

,  1 

r 

1815 

,  1 

,  1 

1  ,1 

0 

,  1 

,  1 

,  1 

/ 

1816 

1811  and 


0001  c . Load  a  fila  of  STROCTtJRE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !!G  toolbox2 . f inc 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  ! IM  Inlines  .  f 


0008 

0009  - - 

0010  subroutine  ReadF light Data 

0011  c - 

0012  c  read  flight  (trajectory)  data  from  an  input  file  specified  via  SEOpen 

0013 

0014  c . common  bloc)c  definition  files 

0015 

0016  include  'MapLim.inc' 

0017  include  'TicDat.inc' 

0018  include  'TrjCom.inc' 

0019  include  'TrjLim.inc' 

0020 

0021  c . pointer  for  QuicJcDraw  globals 

0022 

0023  common  /  QDGPtr  /  QDG 

0024  pointer  ,  ODGlobals  QDG 

0025  integer*4  j'ODGlobals 

0026  external  iQDGlobals 

002" 

0028  c . cursor  handle 

0029 

0030  record  ,  CursHandlo  ,  CursorHndl 

0031 

0032  c . I/O  status  flags 

0033 
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0034  int®gor*2  ioflag 

0035  int*ger*2  iOpan 

0036 

0037  c . character  ite.ua 

0039 

0039  charactet*255  ChrDat 

0040  character*4  FilTyp 

0041  character*4  fMaker 

0042 

0043  - - 

0044 

0045  c . get  text  data  file  and  open  it  via  routine  SFOpenFile.  Exit  program  if 

0046  c  unsuccoasful . 

0047 

0048  if  (  iOpen.eq.O  )  then 

0049  call  SFOpenFixe  (  8  ,  iOpen  ,  FilTyp  ,  f Maker  ) 

0050  if  (  iOpen.eq.O  )  then 

0051  call  e.xit 

0052  end  if 

0053  end  if 

0054 

0055  c . use  watch  cursor  while  reading  data 

0056 

0057  cursorHndl  -  GotCursor  (  %val(4)  ) 

0058  call  SetCursor  (  %val  ( cursorHndl  .CRHDL'' . CRPTR^ )  ) 

0059 

0060  c . execute  the  read  loop 

0061 

0062  ioflag  “  0 

0063  ntrpts  •  0 

0064  do  while  {  ioflag. eq.O  ) 

0065  ntrpts  -  ntrpts  +  1 

0066  read ( 8 , ♦ , iostat-iof lag)  TofTah (ntrpts) , LngTab (ntrpts ) , LatTab (ntrpts ) . 

0067  i  AltTab(ntrpt8) , JmpTab (ntrpts) 

0068  if  (  ioflag. ne.O  )  than 

0069  ntrpts  -  ntrpts  -  1 

0070  end  if 

0071  end  do 

0072 

0073  c . close  the  input  file 

0074 

0075  close  (  unit”8  ) 

007  6  iOpen  “  0 

0077 

0078  c . determine  minimum  and  maximum  limits  of  data 

0079 

0080  if  (  ntrpts. ne.O  )  then 

0081  doi-1,  ntrpts 

0082  if  (  i.eq.l  )  then 

0083  MinTof  -  TofTab  (1) 

0084  Mining  -  LngTab  (1) 

0085  MinLat  -  LatTab  (1) 

0086  MaxTof  -  TofTab  (1) 

0081’  MaxLng  ”  LngTab  (1) 

0088  MaxLat  -  LatTab  (1» 

000?  else 

0C90  MinTof  “  aminl  (  MinTof  ,  TofTab  (i)  ) 

0091  Mining  “  aminl  i  Mining  ,  LngTab  (i)  ) 

0092  minLat  =  aminl  (  MinLat  ,  LatTab  !i)  ) 

'"O??  MaxTof  “  ama.xl  (  MaxTof  ,  TofTab  U)  ) 

0094  MaxLng  -  amaxl  (  MaxLng  ,  LngTab  (i)  ) 

0095  MaxLat  “  amaxl  (  MaxLat  ,  LatTab  (i)  ) 

0096  end  if 

0097  end  do 
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0098  end  if 

0099 

0100  c . determine  preliminary  plot  limita  (  not  yet  enabled  ) 

0101 

0102  call  AutoScalo  (  MinTof  ,  MaxTof  ,  ndivmj  ,  tMapMn  ,  tMapMx  , 

0103  &  tDivMj  ,  tDivMi  ) 

0104 

0105  c . reaet  cursor  to  arrow 

0106 

0107  call  SetCuraor  (  %val (QDG^ .Arrow)  ) 

0108 

0109  return 

0110  end 

0001  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  MG  toolbox2  .  f  inc 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  ! !M  Inlines . f 

0008 

0009  c . Put  the  following  code  in  the  Main  segment 

0010 

0011  ! !S  Main 

0012  - - 

Segment  Main 

0013  subroutine  Ref roshRunDialog 

0014  - - 

0015 

0016  !!SETC  USINGINCLUDES  -  FALSE 

0017  implicit  none 

0018 

0019  c . common  block  definition  files 

0020 

0021  include  ' Globals . inc ' 

0022  include  ' RunSetup . inc ' 

0023 

0024  c . temporary  storage 

0025 

0026  record  /  Rect  /  ref reshTempRect 

0027 

0028  c - 

0029 

0030  c . set  to  the  run  dialog  port 

0031 

0032  call  SetPort  (  %val {  GetSelection  )  ) 

0033 

0034  c . save  the  current  contents  of  tempRect 

0035 

0036  ref  reshTempRect  «•  tempRect 

0037 

0038  c . draw  the  Close  button 

0039 

0040  call  GetDIteml  -val I  Get Select ion )  .  '-al ( rCloseButt on )  , 

0041  4  «ref(DType),  "ref (DItem) .  'ref ( tempRect )  ) 

0042 

0043  c . draw  thic)c  default  outline 

0044 

0045  call  PenSizot  'valO),  •val(3)  ) 

0046 

004"'  c . draw  outside  the  button  by  one  pixel 

0048 
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0049  call  InaatRact (  %raf (tempRact) ,  %val(-4),  %val(-4)  ) 

0050 

0051  c . draw  tnc  button  outlina 

0052 

0053  call  FramaRoundRact (  »raf (tampRact) ,  %val(16),  %val(16)  ) 

0054 

0055  c . rostora  the  pan  size  to  the  default  value 

0056 

0050  call  Pensize(  %val(l),  %val(l)  ) 

0058 

0059  c . draw  a  line 

0060 

0061  call  MovaTo  (  %val(82),  %val(65)  ) 

0062  call  LineTo  (  %val(82),  %val(104)  ) 

0063 

0064  c . restore  tampRect 

0065 

0066  tampRect  raf reshTampRect 

0067 

0068  return 

0069  end 

0001  c . Load  a  file  of  STRDCTDRE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !  !  <3  toolbox2  .  f  inc 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  ! !M  Inlines .f 

0008 

0009  - - 

0010  subroutine  ResizeTheMap 

0011  - - 

0012  c  resize  the  map  window 

0013 

0014  c . include  common  block  definition  files 

0015 

0016  include  'FntCom.inc' 

0017  include  'MapCom.inc' 

0018 

0019  c . item  stuff 

0020 

0021  record  /  handle  /  ItHndl 

0022  record  /  rect  /  ItRact 

0023  integer*4  ItType 

0024  intogar*2  ItNmbr 

0025  string*255  ItTaxt 

0026 

002“’  c . "resize  the  map"  dialog  interface  records 

0028 

0029  common  /  ResizaMap  /  RasizeMapPtr ,  iGotRasizePtr 

0030  record  /  DialogPtr  /  ResizoMapPtr 

0031  integer*!  iGotRasizePtr 

00  3  2 

0033  c . character  strings 

0034 

0035  character*255  ChrDat 

0036 

003"  c . dialog  interface  variables  I  note  that  pointers  are  i*4  ) 

0038 

0039  integor*4  infront 

004  0 

0041  c . dialog  interface  values 
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0042 

0043  data  infront  /  -1  / 

0044 

0045  c . sat  dialog  font  to  Timas  (  it  is  tha  most  compact  ) 

0046 

004“’  FntNam  »  'Timas' 

0048  call  GatFNum  (  %val (FntNam)  ,  FntNum  ) 

0049  call  satDAfont  (  %val (FntNum)  ) 

0050 

0051  c . Gat  rasiza  map  dialog 

0052 

0053  if  (  iGotRasizaPtr . aq. 0  )  than 

0054  RasizaMapPtr  “  GatNawDialog  (  %val(135)  ,  %val(nil)  ,  %val ( inFr ont )  ) 

0055  iGotRasizaPtr  1 

0056  and  if 

0053  call  SetPort  (  %val (RasizaMapPtr)  ) 

0058 

0059  c . bring  tha  dialog  window  to  tha  front 

0060 

0061  call  ShowWindow  (  %val (RasizaMapPtr)  ) 

0062  call  SalactWindow  (  %val (RasizaMapPtr )  ) 

no  CT 

0064  c . Highlight  tha  OK  button 

0065 

0066  ItNmbr  -  1 

0067  call  GatDItam  (  %val  (RasizaMapr'tt)  ,  %val(ItNmbr)  ,  %rBf(ItTypa) 

0068  %raf(ltHndl)  ,  %raf(ItRect)  ) 

0069  call  PanSiza  (  %val(3)  ,  %val(3)  ) 

0070  call  InsatRact  (  %raf(ItRact)  ,  %val(-4)  ,  %val(-4)  ) 

0071  call  FramaRoundRact  (  %raf (ItRact)  ,  %V8l(18)  ,  %val(18)  ) 

0072 

0073  c . sat  and  salact  map  window  width 

0074 

0075  ItNmbr  -  3 

0076  writs (ChrDat ,* )  MapWidth 

0077  ItText  •  ChrDat 

0078  call  GatDItam  (  %val (RasizaMapPtr)  ,  %val (ItNmbr)  ,  %raf(ItTypa)  , 

0079  .  %ref(ItHndl)  ,  %ref(ItRect)  ) 

0080  call  SatIText  (  %val(ItHndl)  ,  %val(ltTaxt)  ) 

0081  call  SailTaxt  (  %vai (RasizaMapPtr)  ,  %val (ItNmbr)  ,  %val(0)  ,  %val (32767)  ) 

0082 

0083  c . sat  map  window  haight 

0084 

0085  ItNmbr  “  4 

0086  writa (ChrDat , *)  MapHaight 

0087  ItTaxt  -  ChrDat 

0088  call  GatDItam  (  %val (RasizaMapPtr )  ,  %val (ItNmbr)  ,  %ref(ItTypa)  , 

0089  %raf(ItHndl)  ,  %raf (ItRact)  ) 

0090  call  SatITaxt  (  %val(ItHndl)  ,  %val (ItTaxt)  ) 

0091 

0092  c . loop  until  aithar  tha  OK  button  or  tha  RESET  button  is  clic)cad. 

0093  c  Monitor  all  othar  ralavant  avants  and  updata  the  dialog  as  necessary. 

0094 

0095  ItNmbr  -  0 

0096  do  while  I  ItNmbr. ne.l  .and.  ItNmbr. ne. 2  ' 

0097 

0098  c . get  number  of  item  hit 

0099 

0100  call  ModalDialog  (  ‘vallnil)  ,  ItNmbr  ) 

0101 

0102  c . reset  to  screen  limits 

0103 

0104  if  (  ItNmbr. eq. 2  )  then 

0105 
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0106  o . width 

0100 

0108  ItNmbr  -  3 

0109  writ»(ChrDat, *)  DwfWidth 

0110  ItToxt  -  ChrDat 

0111  call  GetDItam  (  %val (ResizaMapPtr)  ,  %val ( ItNmbr )  ,  %r«f(ItType) 

0112  %r«f(ItHndl)  ,  %raf(ItR»ct)  ) 

0113  call  SatITaxt  (  %val(ItHndl)  ,  %val(ItText)  ) 

0114  call  SallTaxt  (  %val (RoaizaMapPtr)  ,  %val ( ItNmbr )  ,  %val(0)  , 

0115  %val(32767)  ) 

0116 

011“'  c . height 

0118 

0119  ItNmbr  -  4 

0120  write (ChrDat ,* )  DefHoight 

0121  ItText  -  ChrDat 

0122  call  GetDItem  (  %val (ReaizeMapPtr )  ,  %val(ItNmbr)  ,  %ref(ItTypa) 

0123  .  %ref(ItHndl)  ,  %ref(ItRect)  ) 

0124  call  SetIText  (  %val(ItHndl)  ,  %val (ItText)  ) 

0125 

0126  and  if 

0127 

0128  end  do 

0129 

0130  c . gat  map  window  width 

0131 

0132  ItNmbr  -  3 

0133  call  GetDitem  (  %val (ReaizeMapPtr)  ,  %val (ItNmbr)  ,  %ref(ItType)  , 

0134  .  %ref(ItHndl)  ,  %ref(ItRect)  ) 

0135  call  GetIText  (  %val(ItHndl)  ,  %val(ItToxt)  ) 

0136  ChrDat  -  ItText 

0137  if  (  ChrDat. ne.'  '  )  than 

0138  read (ChrDat ioatat-ioflag)  tmpl 

0139  if  (  ioflag.ne.O  )  than 

0140  tmpl  -  0.0 

0141  and  if 

0142  alae 

0143  tmpl  “  0.0 

0144  end  if 

0145  MapWidth  tmpl 

0146 

0147  c . get  map  window  height 

0148 

0149  ItNmbr  -  4 

0150  call  GetDitem  (  %val (ReaizeMapPtr)  ,  %val (ItNmbr)  ,  %rof(ItType)  , 

0151  %ref(ItHndl)  ,  %ref(ItRect)  ) 

0152  call  GetIText  {  %val(ItHndl)  ,  %val (ItText)  ) 

0153  ChrDat  -  ItText 

0154  if  (  ChrDat.ne.'  '  )  then 

0155  read (ChrDat ioatat“iof lag)  tmpl 

0156  if  (  ioflag.ne.O  )  then 

0157  tmpl  ”  0.0 

7158  end  if 

0159  else 

0160  tmpl  “  C.O 

0161  end  if 

016..  MapKeight  -  tmpl 

0163 

0164  c . hide  dialog 

0165 

0166  call  HideWindow  (  • val (Res izeMapPt r I  ) 

0167 

0168  return 

ui69  and 
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OCOl  c . Load  a  fil«  of  STRUCTURE  and  PARAMETER  dafinitiona  at  compile  time 

0002 

0003  ! IG  toolbox! . fine 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

000"'  !  !M  Inlines  .  f 

0008 

0009  - - 

0010  subroutine  RunSetupDialog 

0011  c - 

0012 

0013  nSETC  OSINGINCLODES  -  FALSE 

0014  implicit  none 

0015 

0016  c . common  block  definition  files 

0011 

0018  include  ' Fileinf o . inc ' 

0019  include  ’ FileMenu . inc ' 

0020  include  ' Globals . inc ' 

0021  include  ' MapMenu . inc ' 

0022  include  ’ RunSetup . inc ' 

0023  include  'Traj.inc' 

0024  include  'TrjCom.inc' 

0025 

002  6  c . set  up  pointer  for  QuickDraw  globals 

0021 

0028  pointer  /  QDGlobals  /  qdg 

0029  common  /  QDGPtr  /  qdg 

0030 

0031  c . external  function  declarations 

0032 

0033  external  RunSetupFilter 

0034  logical*!  RunSetupFilter 

0035 

0036  external  CollectRunInput 

0031  integer*!  CollectRunInput 

0038 

0039  c . integers  for  error  handling 

0040 

0041  integer*!  Errorltem 

0042  integer*!  iopen 

0043  integer*4  ioserr 

0044 

0045  c . integer  for  popup  menu  selection 

0046 

004"’  integer*!  theSelection 

0048 

0049  c . boolean  for  dialog  handle  loop 

0050 

0051  logical*!  ExitDialog 

0052 

0C53  c . intermediate  text  strings 

0054 

0055  9tring*255  ItemXext 

0056  string*255  Filename 

005' 

0058  c . character  intermediate 

0059 

0060  character*255  CharData 

0061 

0062  c . other 
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0063 
0064 
0065 
00  66 
006' 
0068 
0069 
OC'O 
OO'l 
0072 
0073 
0074 
OO'^S 
0076 
00'7 
0070 
007  9 
0080 
0081 
0082 
0083 
009  4 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
00  92 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
OlO' 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
''115 
011*- 
'11' 
'111? 
0119 


C  123 
0124 
'12  5 
012  6 


charact«r*4  FilTyp 
character*4  fmaker 

cursor  handlo 

record  /  'CursHandle  CursorHndl 

SIR  handling 

record  /  handle  RezHndl 

record  StringBandle  i  ST.  "’ndl 


8tring*255  tempString 

pop-up  menu  handling 

record  /  MenuHandle  /  PopupHndl 


dialog  template  handling 

record  ,  DialogTHndl 
record  ,■  DialogTemplate 
record  /  Rect 

screen  position  info 

integer  *2 
integer'*4 
integer*4 


DlogHndl 

DlogTemp 

RunRect 


menuHeight 

left,  bottom,  top,  right 
dialogHeight ,  dialogWidth 


dimensio.ns  of  runsetup  dialog  box 

parameter  (  dialogHeight  -  302  ) 

parameter  (  dialogWidth  «  491  ) 


c . get  the  previous  grafPort 

call  GetPort  (  *val (  SavedPort  ) ) 

c . get  the  handle  and  the  template  for  the  dialog  resource 

RezHndl  ■  GetResource (  % val ( ' DLOG ' ) ,  %val ( rRunSetupDLOG)  ) 
call  HNoPurgo (  %val (RezHndl)  ) 

DlogHndl  ■  RezHndl 

call  HNoPurge (  %val (DlogHndl)  ) 

c . get  the  menuHeight  (don't  assume  it  is  fixed  at  20!) 

menuHeight  •  GetMBarHeight ( ) 

c . get  the  screen  extents  (use  i*4  for  screen  math  per  Mac  Tech  Note 

left  “  qdg' . screenBit s . bounds . left 
right  *  qdg' . screenBits .bounds . riaht 
bottom  -  qdg' . screenBits . bounds . bottom 

top  *  qdg'  .  screenBits  .  bounds  .top  int  4  !menuHeiqht ) 

c . set  the  four  corners  of  the  dialog 

RunRect. left  -  int2(  (  (right  -  left)  -  dialogWidth  )  ,  2  ) 
RunRect. top  ”  int2((  (  (bottom  -  top)  -  dialogHeight  !  ,'  2  ) 


menuHeight ) 
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012- 
0128 
012  9 
0130 
0131 
013  2 
0133 
013  4 
013  5 
013  6 
013- 
013  8 
013  9 
014: 
0 1  4  1 
0142 
0143 

:  4  4 

014  5 
0146 
:  14- 
0148 
0  1  4  9 
0  1 5 
:i5i 

C  - 

*  1  5  3 
:154 

-ICC 

0156 
:  1 5  3 

■'  1  K  5 

-'leo' 
0181 
0182 
1163 
0184 
0185 
O' 188 
018- 
0188 
''089 


RunR«ct .  bottom  *  RunR«ct.top  +  ijit2  (dialogH^ight) 
RunRect . right  •  RunRact.laft  +  int2 (diaiogWidth) 

Dlogflndl . DtH'^ .  I>tP^  ,  bound»Ract  •"  RunRact 
call  ChangadRasourca  (  %val  (Raziindi )  ) 

call  Wr itaRaaourca (  %val (RazHndl)  ) 
call  HFurgal  ival fRazHndl)  ) 
call  HPurga (  ^val (DlogHndl)  ) 

c . bring  in  tha  dialog  raaourcas 

jetSelectior.  -  GatNawDialog  (  ^val  (  rRunSatupDLOG)  , 

&  %val(nil),  %val { inPront )  ) 

call  ShowWindow  (  %vaX (GatSalaction)  ) 
call  SalactWindow (  %vai (GatSalaction)  ) 
call  oatPorr  (  %vai (GatSalaction)  ; 

ThaDialogPt r . DPh  -  GatSalaction .DP 
ThiaEditText . TEH  -  ThaDiaiogPtr . DPk 
call  HLock (  *val (ThiaEditTaxt) ) 

c . aat  tha  TE  point  aize 

ThiaEditText  .TEH^,TEF''.txSiza  -  int2  ( 12  ) 

: . aat  the  window  point  aiza  with  QuickDraw  procedure 

call  TaxtSizal  * vai ( int2 ( 12 1 )  ) 

c . aat  tha  TE  font  ID 

ThiaEditText . TEH ' . TEP^ . txFont  -  ayatamFont 

c . aat  tha  window  font  ID  with  QuickDraw  procedure 

call  Tax. Font  (  iivai  (  ayatamFont )  ) 

c . aat  tha  TE  font  aacant,  descent  and  leading  values 

ThiaEditText . TEH* , TEP* . fontAacant  *  int2(12) 
ThiaEditText  .TEH"  .TEP'" .  linaHaight  -  int2(12  +  3  +  1) 

call  HTnlock f  *val (ThiaEditText)  ) 

c . aat  up  initial  conditiona  for  dialog  items 

rDagraaSalact ion  •  rDagWaatButton 

rDiatancaSalaction  —  rMatara 

rTimaSalaction  •  rSaconda 

AecantSalact ion  -  'Ascent  Profile’ 

TlimataSaiaction  •  1 


" :  -  4 


I  ^ 
1 

'  :>  ■ 


- . aat  up  dagraaa-waat  button 

call  GatDItam(  *val (GatSalaction)  ,  *val ( rDagWaatButton  )  , 

4  ‘ref (DTypai ,  ^raf(DItam).  *raf (tampRact )  ) 

Cltem.OtlH  •  DItam.bhdi 

call  SetCtlValua^  •  val  (CItam.»  .  •val(int2(l)  )  ) 

call  SatupThaltam f  GatSalaction ,  rDagWaatButton , 

4  .tLuw..  .’.tw--.,  ......a.  .falsa.,  tempPa'“*’ 


.  «»a*-  -ip-  Tacraaa -aas^  i:’Utt~r 

-a  1  Oat  O' It  err  '  •  va  1  '  Gat  Sal  act  icn>  .  *vai  'rlacEastBuf  -r 

■»  •  a  f  <  L'Typa  >  .  •  r  a  f  f  D  I*-  am )  .  'caf'tamfPa‘‘ 

■■I*:an.rtlH  "  DItam.bhdl 

-all  SatOtlValua'  *vai(CItam>.  •vaiiint2<0i  l  i 
rail  Sat upTha Itam  '  GatSalaction .  rDagEaacButton , 

4  ,trua.,  ,trua.,  ,trua.,  .falaa.,  tampRact. 
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■?1  91 

0192  c . »«t  up  meters  button 

0193 

0194  call  GetDItom(  »val (GetSelection) ,  »val (rMeter s ) , 

0195  S  %ref (DType) ,  %ref (DItem) ,  %ref (tempRect )  ) 

0196  Cltom.CtlH  “  DItem. bhdl 

OlO”  call  SetCtlValuel  %val(CIteml,  *val (  int2(l)  )  ) 

0198  call  SotupTheltem (  GetSelection,  rMetors, 

0199  &  .true,,  .true.,  .true.,  .false.,  tempRect,  0,  0 

2201.  . . set  up  kilometers  button 


2  C' "" 

2  ■:  8 

^208 


call  GetDTtemf  ^val (GetSelection) ,  % val ( rKilometers ) , 

&  %ref (DType) ,  %ref (DItem) ,  %ref (tempRect )  ) 

extern. CtlH  ■  DItem. bhdl 

call  SetCtlValuef  %val(CItem),  %val (  int2(0)  )  ) 

call  SetupTheltem (  GetSelection,  rKilometers, 

4  .true.,  .true.,  .true.,  .faJse.,  tempRect,  0,  0  ) 

c . set  up  seconds  button 

call  GetDItem(  %val (GetSelection) ,  %vai ( rSeconds ) , 

4  %ref (DType) ,  %ref (DItem).  %ref (tempRect )  ) 

Cltem.CtlH  -  DItem. bhdl 

call  SetCtlValue(  %val(CItem),  %val(int2(l)  )  ) 

call  SetupTheltem (  GetSelection,  rSeconds, 

4  .true.,  .true.,  .true.,  .false.,  tempRect,  0,  0  ) 

c . set  up  minutes  button 


r  2  2 1 
■^222 
0222 
::2  4 
0  2  2  5 
0226 
022' 
0228 
0229 
0  2  0 
02  3  1 
0  2  3  2 
02  3  3 
02  3  4 
0  2  3  5 
02  36 
''23' 
0  2  39 
'23^ 
•  2  4 
'241 
2  4; 


call  GatDItemI  %val (GatSalacPion) ,  %val ( rMinutes ) , 
i  %raf (DTypa) ,  %raf (DItam) ,  %raf (tampRact )  > 

Cltam.CtlH  “  DItam. bhdl 

call  SatCtlValual  %val (CItam) ,  %val(int2(0)  )  ) 
call  SatupTheltam (  GatSalaction,  rMinutas, 
i  .trua.,  .trua.,  .trua.,  .false.,  taropRact,  0,  0  ) 


.set  up  hours  button 

call  GatDItamI  %val (GetSelection) ,  %val ( rHours ) , 
i  %raf (DTypa),  %raf (DItam) ,  %ref (tempRect )  ) 

Cltem.CtlH  “  DItem. bhdl 

call  SatCtlValue(  %val (CItam),  %val(int2(0)  )  ) 

call  SetupTheltem)  GetSelection,  rHours, 
i  .true.,  .true.,  .true.,  .false.,  tempRect,  0,  0  } 

.set  up  wind  model  selector 

call  GetDItem)  %val (GetSelect ion ) ,  ival (rWindModelCelector) , 
i  %ref  (DT^-pe)  ,  %ref  (DItem),  %ref  (te.-tipPect )  ) 

Cltem.CtlH  -  DItem. bhdl 

call  SetCtlMax)  %val (CItora) ,  %val (rWindModolSeiectorPopup)  ) 
call  SotCtlValue)  %val (CItem) ,  %val (ClimateSelection)  ) 
call  SetupTheltem)  GetSelection,  rWindModeiSelector . 

4  .true.,  .true.,  .true.,  .false..  tempRect,  C,  '  i 


24'  c . set  up  ascent  selector 

4  ^ 

r  4  rail  Get  D  It  em  <  » vai  f  GetSelection )  ,  •vallrAscentSeiect.or)  . 

^5  4  *  re  f ( DType i.  *ref(DItem>,  'ref*t  ©mpF  ect i  > 

1  .'rt.em.7tiH  “  DItem. bhdl 

15:  -ail  Set:tlMay.(  •vai(CItom).  •val  ( rAscentSelectorPopup)  ) 

1 •  call  SetCtlValuef  *vai  (CItem)  ,  •vai(int2(l)  )  ) 

."'  4  -^ali  Set upThe Item  <  GetSelection,  rAscentSelector  , 
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0255  &  .tru«.,  .tru«.,  .tru«.,  tampRact,  0,  0  ) 

0256 

0257  c . check  to  aaa  if  an  old  f ila ' a  data  ia  available 

0258 

0259  if  (  iGotOldFila  )  then 

0260 

0261  c . gat  the  old  value  of  latitude 

0262 

0263  call  aetDItem(  %val (GetSolection) ,  %val ( rLatitude) , 

0264  &  %ref(DType),  %rof (Dltem) ,  %ref (tempRect )  ) 

0265  RezHndl  -  GetReaource (  %val ( ' STR  '),  %val ( rOldLatitude)  ) 

0266  StrHndl.shdl  —  RezHndl.bhdl 

0267  tempstring  «  StrHndl . abdl" . sptr' 

0268  call  SetITextl  *val(DItem),  Sival  (tempString)  ) 

0269 

0270  c . got  the  old  value  of  longitude 

0271 

0272  call  GetDItam(  %val (GetSelection) ,  %val (riongitude) , 

7273  &  tref (LTypo) ,  %ref(DItem),  %ref (tempRect )  ) 

0274  RezHndl  -  GetRoaourie(  %val('STR  '),  %val (rOldLongitude)  ) 

0275  StrHndl.ahdl  •-  T.ezHndl . bhdl 

0276  tompString  -  StrHndl . ahdl" . aptr^ 

0277  call  SetIText(  ^val(DItem),  %val (tempStr ing)  ) 

0278 

0279  c . got  the  old  value  of  flight  duration 

0280 

0281  call  GotDItom(  %val (GetSelection) ,  %val (rDuration) , 

0282  S  %ref(DType),  %ref (DItem) ,  %ref (tempRect )  ) 

0283  Rezflrdl  -  GetReaource(  %val(’STR  '),  %val ( rOldDuration )  ) 

0284  StrHndl.ahdl  ”  RezHndl.bhdl 

0285  tempstring  -  StrHndl .  ahdl'' .  aptr'' 

0286  call  SetIToxt(  %val (DItem),  %val (tempString)  ) 

0287 

0288  c . get  the  old  value  of  altitude 

0289 

0290  call  GetDItem(  %val (GetSelection) ,  %val (rAltitude) , 

0291  S  %ref(DType),  %ref (DItem) ,  % ref (tempRect )  ) 

0292  RezHndl  •  GetReaource (  %val(’STR  '),  %val (rOldAltitudo)  ) 

0293  StrHndl.ahdl  -  RezHndl.bhdl 

0294  tempString  -  StrHndl . ahdl' . aptr' 

0295  call  SetIToxt(  %val(DItem),  %val (tempString)  ) 

02  96 

0297  c . got  the  old  value  of  Miaaion  text 

0298 

0299  call  GetDItem(  %val (GetSelection ) ,  %val ( rMiaaionLabol ) , 

0300  i  %ref(DType),  %ref (DItem) ,  %ref ( tempRect )  ) 

0301  RezHndl  -  GetReaource (  %val('STR  '),  %val ( rOldMia aionToxt )  ) 

0302  StrHndl.ahdl  “  RezHndl.bhdl 

'303  tompString  -  StrHndl . ahdl' . aptr" 

304  call  SotIToxt(  %val (DItem),  %val (tempString)  ) 

0305 

0306  c . get  the  old  value  of  wind  model  selection 

030"’ 

0308  call  GotDItom(  skval (GetSelection) ,  %val ( rWindModelSelector ) , 

0309  i  iref(DType  ,  'ref (DItem).  » ref { tempRect i  ) 

0310  Cltem.CtlH  -  DItem. bhdl 

0311  StrHndl  -  GetString(  'val ( roldclimate)  ) 

0312  tompString  -  StrHndl . shdl' . sptr ' 

0313  CharData  -  tompString 

0314  road  ( Char Dat  a  ,  *  )  C 1  imat oSelec*:  ion 

0315  call  SetCtlValue (  •vai (Cltem; .  • val (ClimateSelection i  ^ 

0316 

0317  c . get  the  old  value  of  ascent  profile  selection 

0318 
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0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
0323 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
036"’ 
0368 
0369 
n  2  7  n 

0  3  71 
0372 
03-3 
03’4 
0375 
03^6 
0377 
0379 

0379 

0380 

0381 

0382 


StrHndl  "  G«tString(  %vol (r01dA*c«nt )  ) 

tempString  “  StrHndl .  ■hdl'' .  sptr^ 

ChorData  *  tarapString 

PopupHndl .manuH  -  GatMHandla (  %val ( rAacantSalactorPopup)  ) 

call  Satltem(  %val (PopupHndl) ,  %val ( int2 < 1 ) ) ,  %val (tampString)  ) 

c . gat  tha  old  valua  of  the  dag  Waat/dag  East  radio  button 

call  ClaarDagraaGroup 

StrHndl  “  GatString  (  %val (rOldDagRadio)  ) 
tempString  StrHndl .  ahdl'' .  aptr'' 

CharData  “  tempString 

read (CharData, *)  rDagraaSalaction 

call  GetDItam)  %val (GatSelection) ,  »val (rDagraaSalaction) , 


i  %raf(DTypa),  %raf (DItam) ,  %ra£ (tampRact)  ) 

Cltem.CtlH  "  DItam. bhdl 

call  SatCt lvalue (  ‘val (CItam) ,  %val(int2(l)  )  ) 

c . gat  tha  old  valua  of  the  m/)cm  radio  button 


call  ClearDistanceGroup 

StrHndl  «  GatString  (  %val (rOldDistRadio)  ) 
tempString  «  StrHndl .  ahdl' .  aptr'' 

CharData  «  tempString 

read (CharData, *)  rDiatancaSelaction 

call  GatDItam(  *ival  (GatSelection)  ,  %val  ( rDiatancaSelaction)  , 
&  %ref(DTypa),  %raf (DItam) ,  % ref (tampRact)  ) 

Cltem.CtlH  -  DItam. bhdl 

call  SatCtlValua(  %val (CItam) ,  %val(int2(l)  )  ) 

c . get  the  old  value  of  the  aec/min/hra  radio  button 

call  ClaarTimaGroup 

StrHndl  -  GatString  (  %val (rOldTimaRadio)  ) 
tempString  -  StrHndl .  ahdl'' .  aptt^ 

CharData  «  tempString 

read (CharData, *)  rTimaSalection 

call  GatDItam(  %val (GatSelection) ,  %val ( rTimaSalection) , 
i  %raf(DTypa),  %raf (DItam) ,  %raf (tampRact)  ) 

Cltem.CtlH  -  DItam. bhdl 

call  SetCtlVaiue(  %val(CItan),  %val(int2(l)  )  ) 

c . close  tha  resource  file  for  now 


call  ClosaResfile (  %val(RafNum)  ) 
andif 

call  routine  to  draw  any  lists,  lines,  or  rectangles 
call  Ref rashRunDialog 

do  not  exit  the  dialog  handle  loop  yet 
ExitDialog  -  .false. 


**  start  of  dialog  handle  loop  ** 

r**1r**itlr*1r1l**************-**1r***** 


do  while  (. not . ExitDialog) 
..gat  number  of  item  hit 
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0383  call  ModalDialog  (  RunSatupFiltar  ,  ItamHit  ) 

0394 

03  85  c . check  for  update 

0386 

0380  if (  itemHit  .eq.  32000  )  then 

0388  call  Ref reahRunDialog 

0389  call  EndDpdato (  %val (GetSelection)  ) 

0390  else 

0391  call  GetDItem(  %val (GetSelection) ,  %val ( ItemHit ) , 

0392  S  %ref(DType),  %ref (DItem) ,  %ref (tempRect)  ) 

0393  Cltom.CtlH  -  DItem. bhdl 

0394  endif 

0395 

0396  c . check  for  Close  button 

0397 

0398  if (  ItemHit  .eq.  rCloaeButton  )  then 

0399  c . first  enable  the  New  and  Open  Mission  buttons 

0400  call  MenuSet (  FileMenuID,  FileltemNewMission,  .true.  ) 

0401  call  MenuSet (  FileMenuID,  FileltemOpenMission,  .true.  ) 

0402  ExitDialog  -  .true. 

0403  endif 

0404 

04  05  c . check  for  Run  button 

0406 

0407  if (  ItemHit  .eq.  rRunButton  )  then 

0408  Errorltem  ”  CollectRunInput ( ) 

0409  if  (  Errorltem. ne . 0  )  then 

0410  call  SysBeop(  %val (int2 (20)  )  ) 

0411  call  SeliText (  %val (GetSelection) ,  %val (Errorltem) , 

0412  4  %val (int2 (0) ) ,  %val ( int2 ( 32 7 67 ) )  ) 

0413  else 

0414  c . use  watch  cursor  while  running 

0415  cursorHndl  -  GetCursor  (  %val (int2 (4) )  ) 

0416  call  SetCursor  (  %val  (cursorHndl  .CRHDL^  .CRJPTR^)  ) 

0417  call  RunXraj (  AscentSelection,  int4 (ClimateSelection) , 

0418  4  xDuration,  xLatitude,  xLongitude,  xAltitude) 

0419  c . reset  cursor  to  arrow 

0420  call  SetCursor  (  %val (QDG^ .Arrow)  ) 

0421  call  SysBeep(  %val (int2 (20)  )  ) 

0422  call  SysBeep (  %val ( int2 ( 20)  )  ) 

0423 

0424  endif 

0425  endif 

0426 

042"^  c . check  for  Map  button 

0428 

0429  if (  ItemHit  .eq.  rMapButton  )  then 

0430  c . first  enable  the  map  menu  items 

0431  call  MenuSet (  MapMenuID,  itemGetNewDataSet ,  .true.  ) 

0432  call  MenuSet (  MapMenuID,  itemNewMap,  .true.  ) 

0433  call  MenuSet (  MapMenuID,  itemSaveMap,  .true.  ) 

0434  call  MenuSet {  MapMenuID,  itemDone,  .true.  ) 

■■435 

0436  call  Mapit 

^43"’ 

"  4  38  j . now  disable  the  entire  map  menu 

0439  call  MenuSet (  MapMenuID,  0,  .false,  i 

0  4  4  0 

0441  endif 

■-442 

0443  c . check  for  Save  button 

0  4  44 

0445  if (  ItemHit  .eq.  rSaveButton  I  then 

0446  Errorltem  -  CollectRunInput ( ) 
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0447  if  (  Errorltem. n«. 0  )  then 

0440  call  SysBeep(  %val {int2 (20)  )  ) 

0449  call  SeliText(  %val (GetSelection) ,  %val (Errorltem) , 

0450  S  %val(0),  %val(32767)  ) 

0451  •!«« 

0452  call  SaveMiaaionFilo 

0453  andif 

0454  endif 

0455 

0456  c . chec)c  for  dogreea-weat  radio  button 

0457 

0458  if (  ItemHit  .eq.  rDegWeatButton  )  then 

0459  call  ClearDegreeGroup 

0460  call  SetCtlValue(  %val(CItem),  %val(int2(l)  )  ) 

0461  rDegreeSelection  *  rDegWeatButton 

0462  endif 

0463 

04  64  c . check  for  degreea-eaat  radio  button 

0465 

0466  if(  ItemHit  .eq.  rDegEaatButton  )  then 

0467  call  ClearDegreeGroup 

0468  call  SetCtlValue(  %val (CItem) ,  %val(int2(l)  )  ) 

0469  rDegreeSelection  ■  rDegEaatButton 

0470  endif 

0471 

04  72  c . check  for  metera  radio  button 

0473 

0474  if (  ItemHit  .eq.  rMetera  )  then 

0475  call  ClearDiatanceGroup 

0476  call  SetCtlValue(  %val (CItem) ,  %val(int2(l)  )  ) 

0477  rDiatanceSelection  rMetera 

0478  andif 

04  79 

0480  c . check  for  kilometera  radio  button 

0481 

0482  if(  ItemHit  .eq.  rKilometera  )  then 

0483  call  ClearDiatanceGroup 

0484  call  SetCtlValue(  %val (CItem) ,  %val(int2(l)  )  ) 

0485  rDiatanceSelection  “  rKilometera 

0486  endif 

0487 

0488  c . check  for  aeconda  radio  button 

0489 

0490  if(  ItemHit  .eq.  rSeconda  )  then 

0491  call  ClearTimeGroup 

0492  call  SetCtlValue(  %val (CItem) ,  %val(int2(l)  )  ) 

0493  rTimeSelection  -  rSeconda 

0494  endif 

0  4  95 

04  96  . . check  for  minutea  radio  button 

0490 

0498  if <  ItemHit  .eq.  rMinutee  )  then 

0499  call  ClearTimeGroup 

0500  call  SotCtlValuo(  %val (CItem) ,  %val(int2(l)  )  ) 

0501  rTimeSelection  ”  rMinutes 

0502  endif 

0  50  3 

0504  c . check  for  hours  radio  button 

0505 

0506  if'  ItemHit  .eq.  rHours  )  then 

050'  call  ClearTimeGroup 

0508  call  SetCtlValuol  %val (CItem) ,  »val(int2(l)  )  ) 

(^5/)9  rTimeSelection  *  rHours 

051C  endif 
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0511 

0512  c . ch«ck  for  wind  model  •election 

0513 

0514  if (  ItemHit  .eq.  rWindModelSelector  )  then 

0515  theSelection  «  GetCtlValue(  %val(CItem)  ) 

0516  select  case (theSelection) 

0517  case(l) 

0518  ClimateSelection  -  1 

0519  case(2) 

0520  ClimateSelection  ~  2 

0521  ca8e(3) 

0522  ClimateSelection  3 

0523  ca8e(4) 

0524  ClimateSelection  -  4 

0525  ca8e(5) 

0526  ClimateSelection  -  5 

0527  case(6) 

0528  ClimateSelection  —  6 

0529  caae(7) 

0530  ClimateSelection  7 

0531  ca8e(8) 

0532  ClimateSelection  -  8 

0533  caae(9) 

0534  ClimateSelection  -  9 

0535  casedO) 

0536  ClimateSelection  —  10 

0537  cased!) 

0538  ClimateSelection  •  11 

0539  caaed2) 

0540  ClimateSelection  -  12 

0541  casedS) 

0542  ClimateSelection  «  13 

0543  case  default 

0544  ClimateSelection  -  1 

0545  end  select 

0546  endif 

0547 

0548  c . chec)c  for  ascent  profile  selection 

0549 

0550  if (  ItemHit  .eq.  rAacentSelector  )  then 

0551  theSelection  -  GetCtlValue(  %val (CItem)  ) 

0552 

0553  select  case (theSelection) 

0554 

0555  caae(l) 

0556  c . find  what  the  menu  shows  and  use  that  name 

0557  PopupHndl .menuH  "  GetMHandle (  %val ( rAscentSelectorPopup)  ) 

0558  call  Getltem(  %val ( PopupHndl) ,  %val ( int 2 ( 1 ) ) ,  %ref (tempString) ) 

0559  AscentSelection  “  tempString 

0560 

0561  case(2) 

0562  c . get  the  name  of  the  user's  file;  stic)c  it  in  the  popup  menu 

0563  call  SFOpenAscentFile  (  iopen,  Fileneuno  ) 

0564  if(  iopen. eq.l  )  then 

0565  c . change  the  menu  item 

0566  PopupHndl . menuH  =  GetMHandle i  >val I rAscentSelectorPopup)  ) 

056’’  call  Setltem(  »val  ( PopupHndl )  ,  ’-.'al  (  int2  ( 1)  )  .  '  val  ( Filename  I  ) 

0568  AscentSelection  “  Filename 

0569  endif 

03'0  end  select 

0571  endif 

0572 

n5''3 

05‘^4  c . **  end  of  dialog  handle  loop  ** 
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0575  c . »»•*»»»•*•»•»»»»«*»♦»*»»»*»•»** 

0576 

0577  and  do 

0578 

0579  c . rasters  tha  port 

0580 

0581  call  SetPort (  %val (SavadPort)  ) 

0582 

0583  call  DisposDialog (  %val (GatSalection)  ) 

0584 

0585  return 

0586  end 

0001  c . Load  a  file  of  STRDCTORE  and  PARAMETER  dafinitiona  at  compile  time 

0002 

0003  !!G  toolbox2 . f inc 

0004 

0005  c . Load  tha  ToolBox  traps 

0006 

000"’  !  !M  Inlinea  .  f 

0008 

0009  c . Put  tha  following  coda  in  the  Main  segment 

0010 

0011  ! !S  Main 

0012  c - - - - - - - —  - 

Segment  Main 

0013  logical*!  function  RunSetupFilter  (  %val (theDialog)  ,  theEvent,  ItemHit  ) 

0014  - - 

0015  c  process  the  relevant  events  which  may  occur  while  the  Run  Setup  dialog 

0016  c  is  in  use. 

0017 

0018  nSETC  USINGINCLODES  -  FALSE 

0019  implicit  none 

0020 

0021  c . common  block  definition  files 

0022 

0023  include  ' RunSotup. inc ' 

0024 

0025  c . other  declarations 

0026 

0027  record  /  DialogPtr  /  theDialog 

0028  record  /  EventRecord  /  theEvent 

0029  record  /  WindowPtr  /  WinPtr 

0030  record  /  Point  /  MyPt 

0031 

0032  c . integers 

0033 

0034  integor*2  WindowPart 

0035  integer*2  ChCode 

0036  integor*2  CmdCode 

0037 

0038  c . character  for  key  handling 

0039 

0040  character*!  Ch 

0041 

0042  c - 

0043 

0044  c . default:  Modal  Dialog  should  process  the  e**ent 

0045 

0046  RunSetupFilter  •>  .false. 

0047 

0048  c . handle  an  update  event 

0049 
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0050  if  (th«Ev«nt .what  .aq.  updataEvt)  then 

0051  WindowPart  -  FindWindow  (  %val (ThaEvant .where)  ,  %raf (WinPtr)  ) 

0052 

0053  c . if  in  the  dialog  then  only  do  an  update 

0054 

0055  if  (  WinPtr. WP  .eq.  theDialog.DP  )  then 

0056  call  BeginOpdate (  %val (theDialog)  ) 

0057  call  DrawDialog(  %val (theDialog)  ) 

0058  RunSetupFilter  «  .true. 

0059  ItemHit  -  32000 

0060  endif 

0061 

0062  c . handle  a  mouse  event 

0063 

0064  else  if  (  theEvent . what  .eq.  mousaDown  )  then 

0065  MyPt  “  theEvent .where 

0066  call  GlobalToLocal  (  %ref(MyPt)  ) 

00  67 

00  68  c . handle  a  keydown  event 

0069 

0070  else  if  (  theEvent . what  .eq.  keyDown  )  then 

0071  ChCode  “  jiand  (  TheEvent .message  ,  CharCodeMask  ) 

0072  Ch  -  char  (  ChCode  ) 

0073 

00  7  4  c . check  for  the  Cmd  key  depression 

0075  CmdCode  -  jiand  (  theEvent .modifiers  ,  CmdKey  ) 

0076 

0077  if  (  CmdCode. ne.O  )  then 

0078  if  (  Ch.eq.'x'  .or.  Ch.eq.'X'  )  then 

0079  call  DlgCut (  %val (theDialog)  ) 

0080  RunSetupFilter  -  .true. 

0091  else  if  (  Ch.eq.'c'  .or.  Ch.eq.'C  )  then 

0092  call  DlgCopy (  %val (theDialog)  ) 

0093  RunSetupFilter  -  .true. 

0084  else  if  (  Ch.eq. 'v'  .or.  Ch.eq. 'V  )  then 

0085  call  DlgPaste (  %val (theDialog)  ) 

0086  RunSetupFilter  “  .true. 

0087  endif 

0088  endif 

0089 

0090  c . return  ItemHit-1  for  <Return>  or  <Enter> 

0091  if  (  ChCode. eq. 3  .or.  ChCode. eq. 13  )  then 

0092  ItemHit  -  1 

0093  RunSetupFilter  -  .true. 

0094  end  if 

0095 

0096  endif 

0097 

0098  return 

0099  end 

0001  c . Load  a  file  of  STRUCTURE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  '!3  ToolBo.xl  .  f  inc 

0004 

0005  c . Load  the  ToolBox  traps 

00  06 

000"'  Inlines. f 

I)  o  o  p 

0009  SOBRODTINE  RTJNTRAJ  ( INFILE,  CLIMATE ,  FLIGHT_TIME,  INIT_LAT  , 

0010  i  INIT_LON,  INITIAL_ALT) 

0  011  c 

0012  EXTERNAL  FDNCNT 
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0013 
0014 
0015 
0016 
oon 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0059 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
006’’ 
0068 
00  6  9 
0^70 


00'2 
,-i  n  T 

00  7  4 
7  0 5 
00  7  6 


C 


C 


C 

C 


LOGICAL  FIRST,  OFF_EAST,  OFF_WEST 
DIMENSION  PARMIN(IO) ,XMEAN(10) ,STDDEV(10) 
DIMENSION  CORK  POSITION ( 3 ), INIT  POSITION(3) 


REAL* 4 
REAL* 4 
R£AL*4 
REAL* 4 
REAL *4 
RZAL*4 
R£AL*4 
REAL* 4 
REAL* 4 
REAL *4 
REAL*4 
REAL* 4 
REAL *8 


SLOPE, Y_INTERCEPT, TOTAL_SEG_DIST, SEGMENT_DIST 
INIT_SEG_VEL,  FIN_SEG__VEL,  FDNCNT,  PERM_INT_STEP 
ANGLE_RESOLOTION, DIFFTM, INIT_SEG_TIME , DIFFGT 
FLIGHT_TIME, INITIAL_ALT, INTEGRAT_STEP 
FIN_SEG_TIME,  FIN_INTEGRAT_LMT 
DIFLAT, DIFLON, TOLERANCE, INIT_INTEGRAT_LMT 
WIND_AZIMOTH, WrND_VEL,  INIT_POSITION, CORR_POSITION 
AE, BE, RADIDS_ERTH, T2TOF. DELTAT, ERTH_ROTATION, R2D, DIFFNC 
XLATSNG, XLNGSNG, GRD_RANGE, OGH, VGH 

LON_SRTH_ROT,  INIT_EAST_WIND,  INIT_NORTH_MIND,  TOTAL_EAST 
DIST_EAST, DIST_NORTH, FINAL_ALT, TOTAL_NORTH 
NEM_LAT,NEW_LON, INIT_LAT, INIT_LON, LAT_DEG, LON_DEG 
FSIM 


INTEGER*4  ICHECK, IS, CLIMATE 
INTEGER* 4  PERCNT_DONE 

LOGICAL*!  SegmentsFinished 

CEAPACTER  INFILE*255,  TAB*1 


DATA  TAB  /9/ 

DATA  R2D  /57. 29578,' 

DATA  ERTH_ROTATION  /7 . 2 92 1151E-05/ 

DATA  IS  /O/ 

COMMON  /DRVOOT/  FSIM (13 ) , DFSIM (13) 

COMMON  /DRVOT2/  ALP  ,ALPDOT,BTA  ,BTADOT,HSIM  , HDOT  , 

V  ,  VDOT  ,  X  , XDOT  , Y  , YDOT  , VI 

EQDIVALENCE  (FSIM(  1),T  ) , (FSIM ( 12 ) , LAT_RAD) 

EQUIVALENCE  (FSIM ( 13 ), LON  RAD) 


COMMON 

/PLTOUT/  HWLS 

,  HWLL 

,  VDS 

,  VTS 

,  VUS 

,  VDL 

,  VTL 

& 

VUL 

,RDS 

,RTS 

,  RVS 

,  RDL 

,  RTL 

,RVL 

h 

RNDL 

,RNDS 

,  RNTL 

,RNTS 

,  RNUL 

,  RNUS 

,RNVL 

RNVS 

,  RNDLM 

, RNDSM 

, RNTLM 

, RNTSM 

,  RNULM 

,RNUSM 

& 

RNVLM 

, RNVSM 

C . . . .  GRAM  PROGRAM  COMMON  BLOCKS . 


INCLUDE  ’ naspgcom, inc ' 

r 

C....  DRYDEN  SIM  COMMON  BLOCKS. 


INCLUDE  ' naspcom. inc ’ 


include  'traj.inc' 
include  'trjcom.inc' 
include  ' giobals . inc ' 


record  ,  GrafPort 
record  rect 
integer  *4 
string*255 
9tring*255 
char act or  * 2  54 
record  /  DialogPtr 
record  i  handle  / 
integer*4 


SavedPort 
ItPect 
1 1  Type 
ItTe.'it 
PrTe::t 
CharData 
StatPtr 
ItHndl 
last  value 
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0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0123 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 


C 

C - 

C 

RADIOS_ERTH  -  6375416,785 

r* 

CALL  OPENIT  ( INIT_LAT,  INIT_LON,  INFILE,  FLIGHT_TIME,  CLIMATE) 
last_value  -  0 

c . gat  tha  previoua  grafPort 

call  GatPort  (  %val (  SavadPort  ) ) 


o . display  the  status  dialog 

StatPtr  -  GatNawDialog  (  %val (int2 (129) )  ,  %val(nil)  ,  %val (inFront)  ) 

call  ShowWindow  (  %val (StatPtr)  ) 
call  SalactWindow (  %val (StatPtr)  ) 
call  SatPort  (  %val (StatPtr )  ) 

call  DrawDialog(  %val (StatPtr)  ) 

c . gat  tha  handla  for  tha  parcent  complete  text  box  (item  #3) 

PrTaxt  -  '0  %' 

call  GatDItem  (  %val (StatPtr)  ,  %val (int2 ( 3) )  ,  %raf(ItTypa)  ,  %rof (ItHndl)  , 

%raf(ItRact)  ) 

call  SatITaxt  (  %val (ItHndl)  ,  %val (PrTaxt)  ) 

c 

C _  PERFORM  INITIALIZATION. 

C 

FIRST  -  .TROE. 

0FF_EAST  -  .FALSE. 

OFF_WEST  -  .FALSE. 

TOTAL_SEG_DIST  -  0.0 
FIN_INTEGRAT_LMT  -  0.0 
TOTAL_EAST  -0.0 
TOTAL_NORTH  -  0.0 
DELTAT  -  0.0 
DIFFGT  -  0.0 
DIFFNC  -  0.0 
DIFFTM  -  0.0 
C 

C  SDBRODTINE  GRAMIN  PROVIDES  THE  BALLOON  DRIFT  SIMULATION  WITH 

C  INITIAL  VALDES  FOR  THE  LATITUDE  (INIT_LAT  (DEG) ) ,  LONGITUDE 

C  (INIT_LON  (DEG)),  ALTITUDE  (HI  (KM)),  AND  THE  RADIOS  OF  THE  EAnTH 

C  (RADIUS_ERTH  (M)  )  . 

C 

IF (CLIMATE  .NE.  13) THEN 

CALL  GRAMIN  (INIT_LAT,  INIT_LON,  INITIAL_ALT,  CLIMATE) 

END  IF 

C  INITIAL  INPUTS  FOR  RTGRAM  AND  THE  SUBROUTINES. 

LAT_RAD  -  INIT_LAT/R2D 
LON_RAD  -  INIT_LON/R2D 
XLATSNG  -  SNGL ( LAT_RAD ) 

XLNGSNG  -  SNGL ( LON_RAD ) 

INIT_INTEGRAT_LMT  =0.0 
TOTAL_EAST  -  0 . C 
TOTAL_NORTH  -  0.0 
TOLERANCE  -  0.0001 
ANGLE_RESOLDTION  -  1.0 
NO  or  PTS  -  1 
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0141 

0142 

0143  C 

0144  C 

0145  C 

0146  C 

0147  c 

0148  C 

0149  C 

0150 
0151 
0152 
0153 
0154 
0155 

0156  C 

0157 
0153 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 

0167  c 

0168 

0169  C 

0170 

0171 

0172  C 

0173 
0174 
0175 

0176  C 

0177 
0178 
0179 

0180  C 

0191 

0182 

0183  C 

0184  C 

0185  C 

0186 

0187 

0189 

0189 

0190 

0191 

0192 

0193  C 

0194  C 

0195  C 

0196 
01?' 

0198 

019? 

0  2  00 

0  2  01  C 

0  2  0  2  C 

O  n  T  n 

0204  C 


AE  -  6378134.999 
BE  -  6356750.499 

NOGAES/GRAMRT  DERIVES  THE  WIND  COMPONENTS,  EAST  (DGB  (M/S)) 

AND  NORTH  (VGH  (M/S)).  THESE  COMPONENTS  ARE  BASED  OPON  THE 
INITIAL  LATITUDE  (INIT_LAT  (DEG) /LAT_RAD  (RAD)),  LONGITUDE 
(INIT_LON  (DEG) /LON_RAD  (RAD)),  AND  ALTITUDE  ( INTALT 
(M) /HSIM  (FEET)). 

IF (CLIMATE  .EQ.  13) THEN 

CALL  NOGAPS (INITIAL_ALT,  IN1T_LAT,  INIT_LON,  UGH,  VGH,  FIRST) 
ELSE 

HSIM  -  INITIAL_ALT  *  3.28084 
CALL  GRAMRT  (FIRST) 

ENDIF 

IF  (VGH. EQ. 0.0)  THEN 
WIND_AZIMDTH  -  90.0 
ELSE 

WIND_AZIMUTH  -  (ATAN (UGH/VGH) ) *R2D 
ENDIF 

IF(  VGH. LT. 0.0)  THEN 

WIND_AZIMUTH  -  180 . 0+WIND_A2IKUTH 
ELSEIF(  UGH. LT. 0.0  )  THEN 

WIND_AZIMUTH  -  360 . 0+WIND_A2IMDTH 
ENDIF 

W1ND_VEL  -  SQRT ( (OGH»*2)  +  (VGH* *2)) 

INIT_EAST_WIND  -  UGH 
INIT_N0RTH_WIND  -  VGH 

INIT_POSITION(l)  -  ( (RADIOS_ERTH)»COS(XLATSNG) ) ♦SIN(XLNGSNG) 
INIT_P0SIT10N(2)  -  ( (RAD10S_ERTH) *COS(XLATSNG) ) *COS (XLNGSNG) 
INIT_POSITION(3)  -  (RADIOS_ERTH) *SIN(XLATSNG) 

CURR_POSITION(l)  -  INIT_POSITION(l) 

CDRR_POSITlCN(2)  -  INIT_POSITION (2) 

CURR_POSITION (3)  -  INIT_POSITION (3) 

CALL  GRNRGE ( INIT_POSITION, CURR_POSITION, AE, BE, RADIOS_ERTH, 

4  2, 2,GRD_RANGE) 

PLACE  VALUES  IN  COMMON  BLOCK  FOB  WRITING  TO  EXTERNAL  PLOT  FILE 

TIME_ARRAY  (1)  -  INIT_INTEGRAT_LMT 

LAT_ARRAY(1)  -  INIT_LAT 

LON_ARRAY(l)  -  INlI_LON 

ALT_ARRAY(1)  -  INITIAL_ALT 

GBANGE_ARRAY(1)  -  GRD_RANGE 

WINDAZ_ARFAY ( 1 )  -  WIND_AZIMUTH 

WIND_VEL_ARRAY (1)  -  WIND_VEL 

PLACE  VALUES  IN  COMMON  BLOCK  FOB  MAKING  MAP 

TOFTAB(l)  *  INIT_INTEGRAT_LMT 
LNGTAB(l)  »  -1.0  *  INIT_LON 
LATTAB(l)  -  INIT_LAT 
ALTTAB(l)  -  INITIAL_ALT 
JMPTAB(l)  =■  INT2(0> 

THE  FOLIOWING  WRITE  STATEMENT  PROVIDES  HEADERS  FOR  THE 
OUTPUT  FILES. 
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0205 
0206 
0  2  0 
0208 
0209 
0210 
0211 
0  212 
0213 
0214 
0215 
0216 
021'’ 
0218 
0219 
0220 
02  21 
0222 
022? 
0224 
0225 
0226 
0227 
0229 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0239 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
02  4- 
0248 
0249 
0250 
'’251 
02  52 

0  2  5  3 

'7254 
0255 
0  2  5  6 
02  5- 
02  58 
0  2  5  3 
0  2  60 
02  61 
0  2  62 
.262 
:2  64 
o:  65 
''266 
':26’ 
'12  6  8 


WHITE (14 , 30)  'TIME' , TAB.  'TIME  STEP ' , TAB,  'ALTITUDE ' , TAB, 
i  'GRANGE' , TAB, ' WIND_AZIMUTH ' , TAB, 'MIND_VEL' , TAB, ' LATITUDE' , TAB, 
(  ' LONGITUDE ' , TAB, ’ JUMP ' 

3  0  rORMAT(2X,  A,  Al,  A,A1,  A,A1,A,  A1,A,A1,  A,A1,  A,A1,  A,  A1,A) 


"  WRITE  THE  INITIAL  OUTPUT  AT  START  TIME  OF  THE  SIMULATION. 

WRITE (14,20) INIT_INTEGRAT_LMT, TAB, INTEGRAT_STEP , TAB, 

&  INITIAL_ALT, TAB, aRD_RANGE, TAB, WIND_AZIMUTH, TAB, 

(  WIND_VEL, TAB, INIT_LAT, TAB, INIT_LON, TAB, JMPTAB (1) 

C 

INTEGRAT_STEP  -  FLIGHT^TIME  /  2047.0 

C 

IF  ( INTEaRAT_STEP  . GT .  10000.0)  THEN 
INTEGRAT_STEP  -  10000.0 
ELSEIF  ( INTEGRAT_STEP  .LT.  1.0)  THEN 
INTEGRAT_STEP  -  1.0 
END  IF 

PERM_INT_STEP  -  INTEGRAT_STEP 
NEW_LAT  -  SNGL(INIT_LAT) 

NEW_LON  -  SNGL(IN1T_L0N) 

C 

C  READ  IN  ONE  SET  OF  DATA  POINTS  OF  THE  ASCENT  VELOCITY  PROFILE. 

READ  (21,*)  INIT_SEG_TIME,  IN1T_SEG_VEL 

100  READ  (21,*, END  -  101)  FrN_SEG_TIME,  F1N_SEG_VEL 
S«gin«ntsFini«h«d  “  .FALSE. 

GO  TO  102 

101  FIN_SEG_TIME  -  FLIGHT_TIME 
FIN_SEG_VEL  -  0.0 
IN1T_SEG_VEL  -  0.0 
S»gm*nt»rini«h*d  -  .TRUE. 

lU2  CONTINUE 

Q 

C  COMPUTE  THE  SLOPE  AND  Y  INTERCEPT  USED  IN  THE  FORMULA  FOR  THE 

C  EQUATION  OF  A  LINE.  THESE  COMPONENTS  COMPOSE  THE  FUNCTION  USED 

C  IN  DEVELOPING  THE  PROFILE. 

r 

SLOPE  -  (  FIN_SEG_VEL  -  INIT_SEG_VEL  )  / 

S  (  FIN_SEG_TIME  -  INIT_SEG_TIME  ) 

Y_INTERCEPT  -  (  riN_SEa_VEL  -  (  SLOPE  *  FIN_SEG_TIME  )  ) 

INIT_INTEGRAT_LMT  -  INIT_SEG_TIME 
FIN_INTEGRAT_LMT  -  INIT_SEG_TIME  +  INTEGRAT_STEP 

(2 

IF(DIFFGT  .GT.  TOLERANCE) THEN 

FIN_INTEGRAT_LMT  -  DIFFGT  +  IN1T_SE&_TIME 
INTEGRAT_STEP  -  DIFFGT 
DIFFGT  -  0.0 
END  IF 

IF  THE  UPPER  LIMIT,  BASED  ON  THE  TIMESTEP,  IS  GREATER  THAN  THE 
FUNCTION  BOUNDARY  OF  THE  FUNCTION,  RESET  THE  UPPER  LIMIT  TO 
7  COMPENSATE  FOR  THE  UPPER  BOUNDARY. 

IF  (FIN_IHTEGPJiT_LMT  .  GT  .  FIN_3E'G_TIME  '  THEN 
CIFF'IT  -  FIN_INTEGRAT_LMT  -  FIN_SE'G_TIME 
FIN_IHTEGPJ>iT_LMT  -  FIN_INTEGPJ(T_LMT  -  riFFOT 
INTEGPAT_STEF  -  F IH_IHTEGPAT_LMT  -  INIT_INTEGPAT_LMT 
END  IF 

IF  (FIN_IHTEGPJ(T_LMT  .  GE  .  FLIGHT_TIME)  THEN 
FIH_INTEGPAT_LMT  -  FLIGHT_TIME 

INTEGRAT  STEP  -  FIN  INTEGRAT  LMT  -  INIT  INTEGRA!  LWT 
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0269 
0270 
0271 
02^2 
02’3 
C2'4 
0275 
02  7  6 
027' 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
028"’ 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
02  98 
02  99 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0  3  08 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 

0  31' 

0318 
0  319 
0  "5  2  ' 
'321 
'322 


'-■3  2  4 

'325 
0326 
'3  2' 
0  3  2  8 
0  3  2'' 

‘'7  3  0' 

0  3  3  1 
0  3  3  2 


DIFFGT  -  0.0 
END  IF 

C 

C  DSE  FIRST  TRAJECTORY  INPDT  AS  ’RESET'  VALUE.  THEN  CHANGE  MODE  TO 

C  'OPERATE'  AND  CYCLE  THROUGH  REMAINDER  OF  TRAJECTORY. 

C  THE  FUNINT  (FUNCTION  INTEGRATION)  ROUTINE  WILL  PERFORM  THE 

r  INTEGRATION  NEEDED  TO  PROVIDE  THE  DISTANCE  TRAVELED  ( SEGMENT_DIST ) 

C  IN  TIME  DEFINED  BY  THE  FUNCTION. 

200  IF ( .NOT . SagmantsFiniahed) THEN 

CALL  FUNINT  (INI T_INTEGRAT_LMT,  FIN_lNTEGRAT_IAfT,  2  ,  FUNCNT,  ICHECK, 

&  SEaMENT_DIST, SLOPE, Y_INTERCEPT) 

END  IF 

C  COMPUTE  THE  CUMULATIVE  DISTANCE  TRAVELED  BY  THE  BALLOON. 

C 

TOTAL_SEG_DIST  -  TOTAL_SEG_DIST  +  SEGMENT_DIST 
FINAL_ALT  -  TOTAL_SEG_DIST  +  1NITIAL_ALT 

r; 

C  NOGAPS/GRAMRT  DERIVES  THE  WIND  COMPONENTS,  EAST  (UGH  (M/S)) 

C  AND  NORTH  (VGH  (M/S) ) .  THESE  COMPONENTS  ARE  BASED  UPON  THE 

C  LATITUDE  (NEW_LAT  (DEG) /LAT_BAD  (RAD)),  LONGITUDE  (NEW_LON 

C  (DEG) /LON_RAD  (RAD)),  AND  ALTITUDE  (FINAL_ALT  (M) /HSIM  (FEET)). 

IF (CLIMATE  .EQ.  13) THEN 

CALL  NOGAPS (FINAL_ALT,  NEW_LAT,  NEW_LON,  UGH,  VGH,  FIRST) 

ELSE 

flSIM  -  FINAL_ALT  •  3.28084 
CALL  GRAMRT  (FIRST) 

ENDIF 

C  CONVERT  THE  WIND  COMPONENTS  TO  A  DISTANCE. 

r 

DIST_EAST  -  ((UGH  +  INIT_EAST_WIND) /2 . 0)  »  INTEGRAT_STEP 
DIST_NORTH  -  ((VGH  +  IN1T_N0RTH_W1ND) /2 . 0)  *  INTEGRAT_STEP 

C 

DIST_EAST  -  DIST_EAST  +  TOIAL_EAST 
DIST_NORTH  -  DIST_NORTH  +  TOTAL_NORTH 

r" 

TOTAL_EAST  -  DIST_EAST 
TOTAL_NORTH  -  DIST_NORTH 

r 

INIT_EAST_WIND  -  UGH 
INIT_NORTH_WIND  -  VGH 

r 

IF  (VGH. EQ. 0.0)  THEN 
WTND_A2IMUTH  -  90.0 
ELSE 

WIND_AZIMUTH  -  ( ATAN (UGH/VGH) ) *R2D 
ENDIF 

IF(  VGH.LT.O.C)  THEN 

WIND_AZIMUTH  -  1 bO . 0+WIND_AZ IMUTH 
ELSEIF(  UGH. LT. 0.0  )  THEN 

WIND_AZIMUTH  ’>  3 60 . 0 +  WIND_AZIMUTH 
ENDIF 

WIND_VEL  -  SORT  (  (UGH**-2)  *  (’VGH**2) 

DELTA!  -  INTEGPAT_STEF  DELTA! 

WCMAG  -  SQRT ( (DIST_EAST**2)  +  (DIST_NORTH»»2 ) ) 

C  THE  LATITUDE/LONGITUDE  RESOLUTION  IS  1.0  METER  ( ANGLE_RZSOLUTION) . 
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3333 

3334 
0335 
033e 
0  3  3'’ 
0  3  38 
0339 
3340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 

0357 
'^358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
03  •'I 
0372 
03-!3 
0374 
0375 
0376 
037"’ 
03’8 
OB’a 
0380 
"381 
03S2 

0'  3  8  3 

'  3«4 
03  86 

0  3  8' 

O'  3  9  8 
'389 
''3  9'' 
3  3  91 
'  3  92 
3  93 
33  94 
''  3  95 
3'  3  9  6 


IF(WCMAG  .GT.  ANGLE_R£SOLt7riON)  THEN 

TOTAL_EAST  -0.0 
TOTAL_NORTH  -  0.0 

LAT_DEG  -  LAT_RAri  ♦  R2D 
LON_DEG  -  LON_RAC  *  R2D 

SUBROCTINE  ECOORE  OSES  THE  LATITUDE  (LAT_DEG),  LONGITUDE  (LON_DEG) , 

AS  WELL  AS  THE  DISTANCE  THE  BALLOON  TRAVELED  DURING  THE  TIMESTEP 
(DIST_EAST,  DIST_NORTH)  TO  PRODUCE  THE  NEW  LATITUDE  AND  LONGITUDE 
(NEW_LAT,  NEW_LON) .  IT  ALSO  OSES  THE  CONSTANT  RADIOS_ERTH  AND  THE  FLAG 
IS.  THIS  FLAG  ALLOWS  FOR  A  NORTH  AND  EAST  RANGE  INSTEAD  OF 
MAGNITUDE  AND  DIRECTION. 

CALL  ECOORD  ( LAT_DEG, LON_DEG, DIST_EAST, DIST_NORTH, 

RADIUS_ERTH , IS , NEW_LAT , NEW_LON) 

LON_ERTH_ROT  -  ( ERTH_ROTATION  *  DELTAT)  »  R2D 
NEW_LON  -  NEW_LON  +  LON_ERTH_ROT 
IF  (NEW_LON .GT . 360 . 0)  THEN 
NEW_LON  -  NEW_LON  -  360.0 
ELSE  IF  (NEW_LON.LT. -360.0)  THEN 
NEW_LON  -  NEW_LON  +  360.0 
END  IF 

DELTAT  -0.0 

DIFLAT  -  ABS(NEW_LAT  -  LAT_DEG) 

DIFLON  -  ABS(NEW_LON  -  LON_DEG) 

NEW_LAT  -  SNGL (NEW_IAT) 

NEW_LON  -  SNGL(NEW_LON) 

LAT^RAD  -  NEW_IAT/R2D 
LON_RAD  -  NEW_LON/R20 
.XLATSNG  -  SNGL  (LAT_RAD) 

XLNGSNG  -  SNGL(LON_RAD) 

CURR_POSITIO" (1)  -  ( (RADIDS_ERTH) »COS (XLATSNG) ) ‘SIN (XLNGSNG) 
CDRR_POSITION(3)  -  ( (RADIDS_ERTH) ‘COS (XLATSNG) ) ‘COS (XLNGSNG) 
CURR_POSITION ( j)  -  (RADIUS_ERTH) ‘SIN (XLATSNG) 

CALL  GRNRGE ( .NIT_POSITION , CURR_POSITION, AE, BE , RADIUS_ERTH , 

S  2, 2,GRD_RANGE) 

END  IF 

T2TOF  -  ABS (FIN_INTEGRAT_LMT  -  FLIGHT_TIME) 

PERCNT_DONE  -  JNINT ( ( FIN_INTEGRA1  LMT/FLIGHT_TIME) ‘100 . 0) 

IF(  PERCNT_DONE  . GT .  last_value)  THEN 
WRITE  (CHAP,_DATA,  4)  PERCNT_DONE 
4  format  (  13  ,  '  » '  ) 

PRTEXT  -  CHAR_DATA 

CALL  SetiTe^^t^  ••--al  ( ItHndl )  ,  ♦•--al  '  F  rT»;;t  >  i 

last_-.'alu6  -  PEPCNT_DONE 
END  IF 

IF(T2TCF  .LE.  C . 5 ' GCTC  7po 

IF  THE  DIFFERENCE  BETWEEN  THE  TIMESTEP  AND  SEGMENT  IS  GPEATEP.  THAN 
ZER'C,  PEAD  IN  ANOTHER  SEGMENT  OF  THE  ASCENT  PROFILE. 

IF(  DIFFGT  .GT.  TOLERANCE  ) THEN 
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INIT  SEG  TIME  -  FIN  SEG  TIME 


-  3 

INIT_SEG  VEL 

- 

FIN_SEG_VEL 

3  ?  9 

GOTO  100 

?4  0': 

ENDIF 

04  c: 

7 

0  4': 

ir<  INTEGPAT_STEF 

.EQ.  DIFFNC 

04C3 

INTEGRAT_STEP 

- 

DIFFTM 

04  0  4 

INIT  SEG  TIME 

- 

FIN_SEG_TIME 

INIT  SEG  VEL 

- 

FIN_SEG_VEL 

4  O'  6 

lIFFNC  -  0.0 

040'’ 

CIFFTM  -  0.0 

■^40? 

GOTO  100 

04  0  9 

ENDIF 

04  1C 

7 

■-?  4 : : 

INTEGRAT  .STEP  - 

PERM  INT  STEP 

IT.  TOLERANCE)  THEN 


NQ_OF_PTS  -  NO_OF_PTS  +  1 
IF(NO_OF  PTS  .GT.  2048.0)GOTO  100 


TIME_ARRAY (NO_OF_PTS) 
LAT_ARRAY  (NO_OF_PTS) 
LON_APJLAY  (NO_OF_PTS) 
ALT_ARRAY (NO_OF_PTS) 
GRANGE_APJlAy  ( NO_OF_P  TS ) 
WINDAZ  ARRAY (NO  OF  PTS) 


-  FIN_INTEGRAT_LMT 

-  NEW_LAT 

-  NE«_LON 

-  FINAL_ALT 

-  GRI>_RANGE 

-  WIND  AZIMUTH 


WIND  VEL  ARRAY (NO  OF  PTS)  -  WIND  VEL 


TOFTAB (NC_OF_PTS) 
LATTAB (NC_OF_PTS) 
ALTTAB(NO  OF  PTS) 


F I N_ I NTEGRAT_LMT 

NEW_LAT 

FINAL  ALT 


INT2 (-1) 


00NVT:P,T  PROGRAM'S  INTERNAL  WEST  LONGITUDE  TO  EAST  LONGTUDE  FOR  MAP 
IF'NEW_LON.aT. 180.0;  THEN 

LNGTAB (NO_OF_FTS)  -  360.0  -  NEW_LON 
IF (OFF_WEST) THEN 

JKPTAB(NO_OF_PTS)  -  INT2(0) 

ELSE 

JMPTAB (NO_OF_PTS)  -  INT2(-1) 

OFF_WEST  -  .TRUE. 

ENDIF 

ELSE  IF (NEW_LON. LT. -180 . 0)  THEN 

LNGTAB (NO_OF_PTS)  -  360.0  +  NEW_LON 
IF (OFF_EAST) THEN 

JMPTAB (NO_OF_PTS)  -  INT2(0) 

ELSE 

JMPTAB (NO_OF_PTS)  -  INT2(1) 

OFF_EAST  -  .TRUE. 

ENDIF 

ELSE 

LNGTAB (NO_OF_PTS)  -  -1.0  *  NEM_LON 
IF  IOFF_WESTj  THEN 

JMPTAB (NO_OF_PTS I  -  INT2 ( 1 ) 

';FF_WEST  =  .FALSE. 

ELSE  IF  (OFF_EAST)  THEN 

CMFTAB INC_^F_FTS)  -  INT2(-Ii 
.FF_EAST  =  -FALSE. 

CMPTAE  (N0__'F_FTS!  -  INT2)0l 

en:  IF 


-  INT2(0) 

-  INT2(1) 

-1.0  *  NEM_LON 

-  INT2(1) 


WRITE  I  14  ,  20)  FIN_ItJTEGRAT  LMT.  TAB,  INTEGPAT_STEP  ,  TAB. 

i  FINAL  ALT,  TAB  ,  GRD  _RANGE ,  TAB ,  WIND_AZ  IMUTH  ,  TAB,  WINDJ.'F) 

;  TAB, NEW  LAT.TAB.NEW  LON, TAB, JMPTAB (NO  OF  PTS) 
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0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0,76 
047'7 
0479 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
04  94 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
051' 
0518 
0519 
052  0 
0521 
0522 
0523 
0524 


20  FORMAT  ( F9 . 2 , A1 , F 8 . 2 , A1 , FIO . 3 , A1 , F15 . 3 , A1 , 2 (F8 . 3 , Al) , 

S  F7.4,A1,F8.4,A1,I2) 

C 

C  DETERMINE  THE  POSITION  OF  THE  CDMDLATIVE  TIMESTEP  ITERATIONS 

C  IN  RELATION  TO  THE  END  POINT  OF  THE  ASCENT  PROFILE  SEGMENT. 

DIFFNC  -  ABS (FIN_INTEGRAT_LMT  -  FIN_SEG_TIME) 

DIFFTM  -  ABS (DIFFNC  -  INTEaRAT_STEP ) 

IF(  DIFFNC  .LT.  TOLERANCE  ) THEN 
INIT_SEG_TIME  -  FIN_SEG_TIME 
INIT_SEG_VEL  -  FIN_SEG_VEL 
GOTO  100 

ELSEIF(  DIFFNC  . GE .  INTEGRAT_STEP  .OR.  DIFFTM  . LT . TOLERANCE  (THEN 
INIT_INTEGRAT_LMT  -  FIN_INTEGRAT_LMT 

FIN_INTEGRAT_LMT  -  F IN_1NTEGRAT_LMT  +  INTEGRAT_STEP 

GO  TO  200 
ELSE 

INTEGRAT_STEP  -  DIFFNC 

INIT_INTEGRAT_LMT  -  F IN_INTEGRAT_LMT 
FIN_INTEGRAT_LMT  -  FIN_SEG_TIME 
GOTO  200 
END  IF 
C 

789  NO_OF_PTS  -  NO_OF_PTS  +  1 
C 

TIME_ARRAY(NO_OF_PTS)  -  FIN_INrEGRAT_LMT 

LAT_ARRAY  (NO_OF_PTS)  -  NEW_LAT 

LON_ARRAi:  (NO_OF_PTS)  -NEW~LON 

ALT_ARRAT (NO_OF_PTS)  -FINAL_ALT 

aRANGE_ARRAY(NO_OF_PTS)  -  GRD_RANGE 

WINDAZ_ARrJlY(NO_OF_PTS)  -  WIND_AZ1MDTH 

WIND_VEL_ARRAY (NO_OF_PTS)  -  MIND_VEL 

C 

ntrpts  -  NO_OF_PTS 

TOFTAB(NO_OF_PTS)  -  FIN_INTEGRAT_LMT 
LATTAB(NO_OF_PTS)  -  NEW_LAT 
ALTTAB (NO_OF_PTS)  -  FINAL_ALT 
C 

C  CONVERT  PROGRAM'S  INTERNAL  WEST  LONGITDDE  TO  EAST  LONGTDDE  FOR  MAP 

IF (NEW_LON.GT. 180.0)  THEN 

LNGTAB (NO_OF_PTS)  -  360.0  -  NEW_LON 
IF (OFF_WEST) THEN 

JMPTAB (NO_OF_PTS)  -  INT2(0) 

ELSE 

JMPTAB (NO_OF_PTS)  -  INT2(-*) 

OFF_Wl:3T  -  .TRUE. 

END  IF 

ELSE  IF (NEW_LON.LT. -180.0)  THEN 

LNGTAB (NO_OF_PTS)  -  360.0  +  NEW_LON 
IF (OFF_EAST) THEN 

JMPTAB (NO_OF_PTS)  -  INT2(0) 

ELSE 

JMPTAB (NO_OF_?TS)  -  INT2(1) 

CFF_EAST  -  .TRUE. 

END  I F 
ELSE 

LNGTAB (NO_or_PTS)  -  -1.0  ♦  NEW_LON 
IF  (OFF_WEST>  THEN 

JMPTAB (NO_OF_PTS)  -  INT2 ( 1 ? 

OFF_WEST  -  .FALSE. 

ELSE  IF  (OFF_EAST)  THEN 

JMPTAB (NO_OF_PTS)  -  INT2(-1) 

OFF  EAST  -  .FALSE. 
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0525 

z\sz 

0526 

JMPTAB  (N0_0F_PT3)  -  INT2(0) 

0527 

ENl'IF 

.'52d 

END  IF 

0  =  29 

c 

0530 

call  SetPort (  %val ( SavadPort )  ) 

0531 

call  DisposDialog (  %val (StatPtr )  ) 

0532 

Q 

0533 

c 

CLOSE  TEMP  FILES 

0534 

c 

0535 

CLOSE (DNIT-IOTEMl, STATUS- ' DELETE' ) 

0536 

CLOSE ( aNIT-IOTEM2 ) 

0537 

r 

0538 

C 

CLOSE  ODTPOT  FILE 

0539 

c 

0540 

CLOSE (DNII-: 4) 

0541 

C 

0542 

RETURN 

0543 

END 

0544 

c 

0545 

FUNCTION  FUNCNT (T, SLOPE, YINTER) 

0546 

REAL* 4  SLOPE, YINTER, FUNCNT 

0547 

REAL*8  T 

0548 

r 

0549 

FUNCNT  -  (  SLOPE  ♦  T  )  +  YINTER 

0550 

c 

0551 

RETURN 

0552 

END 

0553 

C 

0554 

SUBROUTINE  FUNINT  ( XL, XH , INTORD , FNAM, ICHECK, VOINT , P , Y) 

0555 

C 

0556 

c* 

0557 

r 

c 

0558 

r* 

PURPOSE  1)  A  FUNCTIONAL  INTEGRATION  ROUTINE  USING  A  VARIABLE 

c 

0559 

r 

ORDER  GAOSSIAN-LEGENDRE  ALGORITHM. 

c 

0560 

C 

c 

0561 

C 

INPUTS  DESCRIPTIC.J 

c 

0562 

C 

c 

0563 

C 

(  XL  )  THE  LOWER  BOUND  ON  THE  INTEGRAL  (CAN  BE  REAL*8) 

c 

0564 

c 

(  XH  )  THE  UPPER  BOUND  ON  THE  INTEGRAL  (CAN  BE  REAL’S) 

c 

0565 

r 

(INTORD)  ORDER  OF  THE  GAUSS -LEGENDRE  POLYNOMIAL:  2-10 

c 

0566 

C 

INCLUSIVE  AND  12,  16,  20,  24  AND  32  ARE  IMPLEMENTED. 

c 

ose"" 

n 

(FNAM)  NAME  OF  THE  FORTRAN  EXTERNAL  FUNCTION 

c 

0568 

c 

TO  BE  INTEGRATED  (CAN  BE  REAL’S) 

c 

0569 

r- 

c 

0570 

r 

OUTPUTS  DESCRIPTION 

c 

0571 

r 

c 

0572 

r 

(VOINT)  THE  VALUE  OF  THE  INTEGRAL  BETWEEN  THE  SPECIFIED  LIMITS 

c 

os-’o 

n 

(ICHECK)  CHECK  FOR:  PROPER  EXECUTION  -  0 

c 

0574 

C 

FAULT  FOUND  -  -1 

c 

0575 

c 

c 

05"' 

c 

PROGRAM  REQUIREMENTS 

r 

05” 

c 

c 

0579 

c 

THE  PROGRAM  ASSUMES  THAT  A  FORTRAN  EXTERNAL  FUNCTION  (WHICH 

c 

7579 

c 

MAY  BE  PEAL’S)  IS  DEFINED  SOMEWHERE  WITHIN  THE  CALLING  CODE. 

r 

0  5  8  0 

7 

(  SINCE  IT  IS  AN  EXTEPNAL  FUNCTION  IT  NEED  NOT  NECESSARILY  BE 

C 

0581 

'7 

DEFINED  IN  THE  ROUTINE  THAT  MAKES  THE  SUBROUTINE  CALL  ) , 

c 

0582 

-• 

r 

7583 

■7 

CAVEATS 

c 

7584 

- 

,'7 

7597 

7 

THIS  IS  A  VERY  SIMPLE  ROUTINE  WHICH  NEVERTHELESS  IS  VERY 

r 

25  8  6 

c 

FAST  (THERE  ARE  ONLY  INI  CRD  EVALUATIONS  OF  THE  FUNCTION) 

C 

7  58' 

c 

AND  QUITE  ACCURATE  FOR  WELL  BEHAVED  FUNCTIONS. 

C 

■5  8  8 

c 

AS  WITH  ANY  NUMERICAL  TECHNIQUE  FUNCTIONS  WITH  SINGULARITIES 

r 
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0593  C 

059C  C 

0591  C 

0592  C 

0593  C 

0594  C 

0595  C 

0596  C 

0597 
0599 
05^9 
0600 
0601 
0602 

0603  C 

0604  C 

0605  C 

0606  C 

0607 
0608 
0609 
0610 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0619 
0619 
0620 
0  621 
0622 
0623 
0624 
0625 
0626 
0627 
0629 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
063'7 
0638 
063  9 
0640 
0641 
0642 

0  6  4  3  7 

0644 
0  64  5 
-^646 
064' 

'^649 
0  64  9 
'■'6  5  0 
0  6  51 
0652 


& 

& 

i 

i 

i 

i 

& 

i 

& 

& 

i 

i 

i 

& 

i 

i 

i 

i 

& 

& 

i 

4 


4 

4 


AND  PERIODIC  FUNCTIONS  INTEGRATED  OVER  MANY  PERIODS  ARE  OFTEN  C 
NOT  HANDLED  WELL.  C 

IN  PRINCIPLE  THE  ACCURACY  OF  THE  ALGORITHM  INCREASES  WITH  THE  C 
THE  ORDER  OF  THE  POLYNOMIAL  USED,  HOWEVER  ROUNDOFF  ERRORS  WILL  C 
LIMIT  THIS  TREND.  C 

C 

PARAMETER  (MIN  -  2,  MAX  -  32) 

REAL*8  WEIGHT  (KIN:MAX,  MAX/2)  .  Z  (MINiMAX,  MAX/2) 

REAL* 8  SUMH,  DELTAH,  HALF,  TERM 
R£AL*4  VOINT,  XH,  XL,  FNAM 
CHARACTER* 1  SR 
DATA  HALF  /  0.5  / 

DATA  STATEMENTS  CONTAINING  THE  WEIGHTS  AND  ZEROES  OF  THE 
LEGENDRE  POLYNOMIALS 

DATA  WEIGHT (2, 1)  /  1 .  / 

DATA  (WEIGHTO, I) , I-l, 2)  /  . 555555555555556, . 888888888888889  / 

DATA  (WEIGHT (4, I) , I-l, 2)  /  . 347854845137 4 54 ,. 65214515486254 6  / 

DATA  (WEIGHT(5,I) , I-l, 3)  /  . 23692688505618 9, . 47 862 86704 99366 , 
.568888888888889  / 

DATA  (WEIGHT (6, I) , I-l, 3)  /  . 1713244 9237 9170 ,. 3607 6157304813 9 , 
.467913934572691  / 

DATA  (WEIGHT (7, I) , I-l, 4)  /  . 1294 84 9661 68870, . 27 97053914 8 9277 , 

.381830050505119, .417959183673469  / 

DATA  (WEIGHT(8,I) ,1-1,4)  /  . 101228536290376, . 222381034453374 , 
.313706645877887, .362683783378362  / 

DATA  (WEIGHTO, I) ,1-1,5)  /  . 08127438836157 4 ,. 18064 8160694857 , 
.260610696402935, .312347077040003, .330239355001260  / 

DATA  (WEIGHTdO,  I)  ,  I-l,  5)  /  .  066671344308688  14  945134  9150581 , 

.219086362515982, ,269266719309996, .295524224714753  / 

DATA  (WEIGHT (12, I) , I-l, 6)  /  . 047175336386512 ,. 10693 9325995318 , 
.160078328543346, .203167426723066, .233492536538355, 
.249147045813403  / 

DATA  (WEIGHT(16, I) , I-l, 8)  /  . 0271524594 11754 ,. 062253523938648 , 
.095158511682493, .124628971255534, .149595988816577, 
.169156519395003, .182603415044924, .189450610455068  / 

DATA  (WEIGHT(20, I) , I-l, 10)  /  . 01761400713 9152 ,. 040601 42 9800387 , 
.062672048334109, .083276741576705, .101930119817240, 
.118194531961518, .131688638449177, .142096109318382, 
.149172986472604, .152753387130726  / 

DATA  (WEIGHT (24, I) , I-l, 12)  /  . 01234122 9799987 ,. 028531388628934 . 
.044277438817420, .059298584915437, .073346481411080, 
.086190161531953, .097618652104114, .107444270115966, 
.115505668053726, .121670472927803, .125837456346828, 
.127939195346752  / 

DATA  (WEIGHT(32, I) , I-l, 16)  /  . 007018610009470 ,. 016274 3 94 730906 , 
.025392065309262, .034273862913021, .042835898022227, 
.050998059262376, .059684093478536, .065822222776362, 
.072345794108849, .078193895787070. .083311924226947, 
.087652093004404, .091173879695764, .093844399080805, 
.095638720079274, .096540088514728  / 

DATA  I ‘2,1)  .  5~735026918962'; 

DATA  ( Z ( 3 ,  I)  , 1  =  1 , 2  I  ,  .774596669241483.  .0 

DATA  (Z (4, I) , I-l, 2)  . 861136311594053 .. 33998104358485 6 

DATA  (Z (5, I) , I-l, 3)  .  . 906179845938664 .. 538469310105693 ,. 0  , 

DATA  'Z ( 6, I) , I-l , 3)  .  .932469514203152, .661209386466265, 

.238619186083197 

DATA  (Z (7, I) , I-l, 4)  /  .949107912342759, .741531185599394, 

. 405845151377397, .0  / 

DATA  (Z (8, I) , I-l, 4)  /  . 960289856497536, . 796666477413627, 
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0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 

0661 

0662 

0663 

0664 

0665 

0666 

0667 

0668 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679  C 

0680 
0681 

0682  C 

0683  C 

0684  C 

0685 
0686 
0687 
0688 
0689 

0  6  90  C 

0691  C 

0692  C 

0693 
0694 
0695 
0696 
069’ 

0698  C 

0699  C 

9  7  00  r 

0701 
O'  7  02 
!'■  -’0  3 

0^04  C 

7^05  C 


-.'op 

-709 

’  1 
:  11 


&  .525532409916329, .183434642495650  / 

DATA  (Z (9, I) , I-l, 5)  /  .968160239507626, .836031107326636, 

i  .613371432700590, .324253423403809, .0  / 

DATA  (Z  (10, 1) , I-l, 5)  /  .973906528517172,  .865063366688985, 
i  .679409568299024, .433395394129247, .148874338981631  / 

DATA  (Z  (12, I)  , I-l, 6)  /  .981560634246719,  .904117256370475, 

&  .769902674194305, .587317954286617, .367831498998180, 

5  .125233408511469  / 

DATA  (Z (16, I) , I-l, 8)  /  . 989400934991650, . 944575023073233, 

6  .865631202387832, .755404408355003, .617876244402644, 

4  .458016777657227, .281603550779259, .095012509837637  / 

DATA  (Z  (20, I)  , I-l, 10)  /  .993128599185095,  .  963971927277914, 
4  .912234428251326, . 83 911697 182221 9, . 7 4 633 19064 60151 , 

4  .636053680726515, . 510867001950827 ,. 3737060887 15420 , 

4  .227785851141645, .076526521133497  / 

DATA  (Z  (24, I)  , I-l, 12)  /  .995187219997021,  .974728555971309, 
4  .938274552002733, .886415527004401, .820001985973903, 

4  .740124191578554, .648093651936976, .545421471388840, 

4  .433793507626045, .315042679696163, .191118867473616, 

4  .064056892862686  / 

DATA  (Z  (32, I)  , I-l, 16)  /  . 997263861849481,  . 985611511545268 , 
4  , 964762255587506, .934906075937740, .896321155766052, 

4  .849367613732570, .794483795967942, .732182118740290, 

4  .663044266930215, .587715757240762, .506899908932229, 

4  .421351276130635, .331868602282128, .239287362252137, 

4  . 144471961582796, . 048307665687738  / 

VOINT  -  0 . 

ICHECK  -  0 

CHECK  THAT  THE  ORDER  OF  INTEGRATION  IS  IN  BOUNDS 

IF  (  (INTORD  .LT.  MIN)  .OR.  (INTORD  .GT.  MAX)  )  THEN 

PRINT*,  '  INTEGRATION  OF  THAT  ORDER  IS  NOT  AVAILABLE.  ' 
ICHECK  -  -1 
RETURN 
END  IF 

CHECK  THAT  THE  ORDER  OF  INTEGRATION  IS  AVAILABLE 

IF  (  (WEIGHT (INTORD,  1)  .EQ.  0.)  )  THEN 

PRINT*,  '  INTEGRATION  OF  THAT  ORDER  IS  NOT  AVAILABLE.  ' 
ICHECK  -  -1 
RETURN 
END  IF 

CALCULATE  SEVERAL  NECESSARY  QUANITIIES 

DELTAH  -  (XH  -  XL)  *  HALF 
SUMH  -  (XH  +  XL)  *  HALF 

NSTEP  -  INTORD,/ 2 

INTEGRATE  THE  FUNCTION  WITH  A  INTORD  ORDER  ALGORITHM 
DO  I  =  1 , NSTEP 

TEPJi  -  FNAM  '  SUMH  +  DELTAH  *  Z  i  lUT'/'PD ,  I  i  .  F  .  i  ' 

VO'INT  -  VOINT  ->•  WEIGHT  (INTORD,  I)  *  TEFM 
TEPJ^  -  FNAM  '  SUMH  -  DELTAH  ‘  Z  ( INTCPD ,  I )  ,  F  ,  Yi 
VOINT  -  VOINT  ^  WEIGHT  (INTORD, I)  *  TEPM 
END  PC 


'■’14  C  MULTIPLY  BY  LIMITS  CONSTANT  AND  TAKE  CARE  OF  ODD  POINT  FOR  INTORD  ODP 

'"15 

1'16  IF  I  NSTEP*2  .EQ.  INTORD  )  THEN 
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VOINT  -  DELTAS  ♦  VOINT 
ELSE 

VOINT  -  (  VOINT  +  WEIGHT  (INTORD,  NSTEP  +  1) ‘ENAM (SUMH, P, Y) ) * 
S  DELTAS 


PETDRN 

END 

SDBRODTINE  ECOORD  (  ALATR,  ALONR,  DRP ,  ORP ,  RE,  IS,  ALATP ,  ALONP  ) 


PtIRPOSE  1)  DETERMINE  LATITDDE  (ALATP)  AND  LONGITUDE  (ALONP) 

OF  A  DESIRED  POINT  USING  REFERENCE  I.ATITUDE 
(ALATR)  AND  LONGITUDE  (ALONR) . 

2)  INPUTS  ARE  INTERPRETED  DIFFERENTLY  BY  VALUE  OF 
FLAG  (IS) 

(IS)  -  0  (DRP)  RANGE  FROM  REFERENCE  POINT 

(+)  EASTERLY  TO  MERIDIAN  OF  DESIRED 
POINT 

(URP)  RANGE  ALONG  MERIDIAN  (+)  OP  TO 
DESIRED  POINT 

(IS)  -  1  (DRP)  RANGE  FROM  REFERENCE  POINT  TO 
DESIRED  POINT 

(URP)  AZIMUTH  OF  RANGE  LINE-OF-SITE  TO 
DESIRED  POINT 

NOTE  -  RANGES  ARE  ALONG  EARTH  SURFACE  AND 
AZIMUTH  IS  IN  DEGREES  FROM  NORTH 
LATITUDES  ARE  GEOCENTRIC 

INPUTS  DESCRIPTION 

(ALATR)  LATITUDE  OF  REFERENCE  POINT  (DEG) 

(ALONR)  LONGITUDE  (+)  EAST  OF  GREENWICH  OF  REFERENCE  POINT 

(DEG) 

(DRP)  RANGE  FROM  REFERENCE  POINT  TO 

(IS)  -  0  (+)  EAST  ALONG  LATITUDE  TO  MERIDIAN  OF 
DESIRED  POINT 
(IS)  -  1  DESIRED  POINT 

(DRP)  (IS)  -  0  RANGE  (+)  NORTH  ALONG  MERIDIAN  OF  DESIRED 

POINT  FROM  REFERENCE  LATITUDE  TO  DESIRED 
POINT 

(IS)  -  1  AZIMUTH  OF  RANGE  LINE-OF-SITE  FROM  REFERENCE 
POINT  TO  DESIRED  POINT 
(RE)  EARTH  RADIUS  AT  REFERENCE  POINT 

(IS)  FLAG  TO  INTERPRET  THE  MEANINGS  OF  (DRP)  AND  (DRP) 

OUTPUTS  DESCRIPTION 


(ALATP) 
( ALONP ) 


LATITUDE  OF  DESIRED  POINT  (DEG) 
LONGITUDE  OF  DESIRED  POINT  (DEG) 


REQUIREMENTS  1'  SINE  ROUTINE  -  SIN 

2)  rOSINE  ROUTINE  -  COS 

2’  SQUARE  ROOT  ROUTINE  -  SQPT 

'  ARCSINE  ROUTINE  -  ASIN 


DATA  P.2D  /  57.29577951  ,' 
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0781 

REAL*4  ALATR,ALONR,DRP,nRI',ALATP,ALONP 

0782 

c 

0783 

ALONR  -  ALONR  *  -1.0 

0784 

c 

0785 

IF(  RE  )  50,  50,  10 

0786 

10 

CONTINtlE 

0787 

THD  -  DRP/RE 

0788 

c 

0789 

IF(  IS  )  20,  20,  30 

0790 

r 

0791 

20 

CONTINUE 

0792 

THU  -  ORP/RE 

0793 

TT  -  COS  (  THD  ) 

0794 

T1  -  SIN  (  THD  ) 

0795 

T2  -  COS  (  THD  ) *TT 

0796 

T3  -  SIN  (  THD  )  *TT 

0797 

GO  TO  40 

0798 

C 

0799 

30 

CONTINUE 

0800 

THU  -  URP/R2D 

0801 

TT  -  SIN  (  THD  ) 

0802 

T1  -  COS  (  THD  )  »TT 

0803 

T2  -  COS  (  THD  ) 

0804 

T3  -  SIN  (  THD  ) *TT 

0805 

c 

0806 

40 

CONTINUE 

0807 

TT  -  ALATR/R2D 

0808 

SPP  -  COS  (  TT  ) *T1  +  SIN  (  TT  ) *T2 

0809 

IF(  SPP  .GT.  1.0  )  SPP  -  1. 

0810 

IF(  SPP  .LT.  -1.0  )  SPP  —1. 

0811 

SLP  -  SORT  (  1.  -  SPP*SPP  ) 

0812 

IF(  SLP  .NE.  0.0  )  SLP  -  T3/SLP 

0813 

IF(  SLP  .LT.  -1.0  )  SLP  —1. 

0814 

IF(  SLP  .GT.  1.0  )  SLP  -  1. 

0815 

c 

0816 

ALATP  -  ASIN  (  SPP  ) *R2D 

0817 

ALONP  -  ASIN  (  SLP  ) •R2D  +  ALONR 

0818 

50 

CONTINUE 

0819 

c 

0820 

ALONR  -  ALONR  •  -1.0 

0821 

ALONP  -  ALONP  ♦  -1.0 

0822 

RETURN 

0823 

END 

0824 

c 

0825 

SUBROUTINE  OPENIT (XLATIN, XLONIN, INFILE, TOTTOF, 

ICLIMT) 

0826 

c 

0827 

c . 

THIS  ROUTINE  OPENS  THE  FILES  NORMALLY  ATTACHED 

WITH  JCL  DIRECTIVES 

0828 

r 

ON  THE  GOULD  VERSION 

0829 

c 

0830 

c . 

WRITTEN  10/18/89  L  SCHILLING  NASA/ADFRF. 

0831 

c 

0832 

CHARACTER*255  INFILE 

0933 

CHARACTER  CLAT*3 , CLON* 4 , CLIMT*2 

0834 

CHARACTER* 7  CTOF 

0835 

INTEGER  LAT, LON. TOF, ICLIMT 

r~ 

0837 

LAT  -  XLATIN 

0838 

LON  -  XLONIN 

0839 

TOF  -  TOTTOF 

0840 

WP.ITE  (CLAT,  '  (13)  ’  )  LAT 

0841 

WRITE (CLON, ’ (14 1 ' ) LON 

0842 

WRITE (CTOF, ' (17) ' ) TOF 

0843 

WP,ITE  (CLIMT,  '  (12)  '  )  ICLIMT 

0844 

c 
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0845 
0846 
'184"' 
0848 
0849 
0850 
0851 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
0859 
0860 
0861 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
0870 
0871 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 
0880 
0881 
0882 
0883 
0884 
0885 
0886 
0887 
0888 
0889 
0890 
0891 
0892 
0893 
0894 
0895 
0896 
089'’ 
08  98 
0  8  99 
0  900 
'3  901 
0902 
0903 
0  904 
0  905 
0906 


OPEN  (UNIT-21,  FILE-INFILE, STATDS-’OLD' .READONLY) 

OPEN (14, FILE-CLAT// '_’//CLON// ■_’//CTOF// ‘ . ' //CLIMT, 

FORM- ' formatted ' ,«CCES3-’ sequential ' ,  STATUS- ' NEW ' ) 

RETURN 

END 

C....  THIS  FILE  CONTAINS  SUBROUTINES  USED  BY  REAL-TIME  GRAM  PROGRAM. 

C  1/24, '89  L  SCHILLING.  THE  MAJORITY  HAVE  BEEN  UNAFFECTED,  BUT 

C  SEVERAL  HAVE  BEEN  SIGNIFICANTLY  MODIFIED  FROM  THE  ORIGINAL 

C  GRAM88  CODE. 

r 

SUBROUTINE  CORLAT ( A, B, C, D , E, F, G, H, AI , AJ, AK, SPl , SP2 , SDl , SD2 , STl , 

1  ST2 , SUl , SU2 , SVl , SV2 , UDl , UD2 , VDl , VD2 , RD, RT, RV) 
IF(SD1*ST1*SD2»ST2»RD*RT*RV.GT.0.)  GO  TO  5 

C . DEFAULT  VALUES  AVOID  DIVISION  BY  ZERO 

IF(SD1.LE.0.)  SDl-0.001 
IF(ST1.LE.0.)  STl-0.001 
IF(SD2.LE.O.)  SD2-0.001 
IF(ST2.LE.O.)  ST2-0.001 
IFIRD.LE.O.)  RD  -  .00001 
IF(RT.LE.0.)  RT  -  .00001 
IF(RV.LE.0.)  RV  -  .00001 
5  CONTINUE 

IF  (ABS(nDl) .LE.O.)  UDl  -  0.001 
IF  (ABS(VDI) .LE.O. )  VDl  -  0.001 
IF  (ABS (SUl) .LE.O.)  SUl  -  0.001 
IF  (ABS(SVl) .LE.O.)  SVl  -  0.001 
IF  (ABS(UDl) .GE.l.)  UDl  -  0 . 99*UD1/ABS (UDl ) 

IF  (ABS (VDl) .GE.l.)  VDl  -  0 . 99*VD1/ABS (VDl) 

A-RD*SD2/SD1 
B-SD2*SQRT (1-RD*RD: 

TD2- (SP2*SP2-SD2»SD2-ST2*ST2) / (2*SD2»ST2) 
TD1-(SP1*SP1-SD1*SD1-ST1*ST1) / (2*SD1*ST1) 

IF (ABS (TDD .LE.O. )  TDl  -  0,001 
IF(ABS(TD2) .LE.O.)  TD2  -  0.001 
IF(ABS(TD2) .GE.1.0)  TD2-0 . 99»TD2/ABS (TD2) 

IF(ABS(TD1) .GE.1.0)  TDl-0 . 99*TD1/ABS (TDl) 

C- (ST2/ST1) * (RT-RD*TD2*TD1) / (1-TD1*TD1*RD*RD) 

D-(RT*ST2-C*ST1) / (A*TD1*SD1) 

E-  ST2 *ST2 -C*C*ST1 ‘STl -D*D*SD2 ‘SDl -2 •C*D*BD»TD1 *311*302 

IF(E.GE.0.)  GO  TO  10 
E-0  . 

10  E-SORT(E) 

F- (S02/SU1) * (RV-RD*UD2*DD1) / (l-RD*RO*ODl*UDl) 

G- (RV*SU2-r*SDl) / (RD*UD1*SD2) 

H-  S02*SU2-F*F*SU1*SU1-G*G*SD2*SD2-2*F*G*RD*UD1*SD2*SD1 

IF(H.GE.0.)  GO  TO  15 
H-0  . 

15  H-SQRT(H) 

AI-(SV2/SV1) * (RV-RD*VD2*VD1) / ( 1 -RD*RD*VD1 *VDD 
AJ-(RV*SV2-AI*SV1) / (RD*VD1*SD2) 

AK-  SV2*SV2-AI*AI*SV1*SV1-AJ*AJ*SD2*SD2-2*AI*AJ*RD*VD1*SD2*SV1 

IF(AK.GE.0.)  C-C  TO  2  5 
AK-C  . 

25  AK-S2PT(AK) 

PETUP.N 

ENC 

FUNCTION  CORPEL'Xi 

DATA  A, 6/19.51615854016301, 1 .00041693941245578/ 


090’  PEG  -  l./EXP(B*X) 

0908  IF(X.LT.0.05)RBO  -  1.  -  A*X**2 
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0909 

0910 

0911 

0912 

0913 

0914 

0915 

0916 

0917 

0918 

0919 

0920 

0921 

0922 

0923 

0924 

0925 

0926 

0927 

0928 

0929 

0930 

0931 

0932 

0933 

0934 

0935 

0936 

0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 


0962 
096? 
0964 
0  965 
0966 
0967 
0968 
0969 

0970 

09'’! 

0972 


C 

c. .  , 

c 

c 

c. .  , 

c 


CORREL  -  RHO 

RETORN 

END 

o^o..>-0TINE  FAir.  ;PG,  DG,  TG,  PJ,  2  7,  XJ,  IK,  I,  D,  UtrXG, 

$  DPYG,  DPXJ,  DPYJ,  DPX,  DPY,  DTXG,  DTYG,  DTXJ,  DTYJ,  DTX,  DTY) 
..FAIRS  BETWEEN  GROVES  AND  JACCHIA  VA^^DES  90  LE  HEIGHT  LE  115  KM 
DIMENSION  CZ(6) 

.  . FAIRING  VALDES 

DATA  CZ  /I. 0,0. 9045085, 0.6545085, 0.3454915, 0.0954915, 0.0/ 

HEIGHT  INDEX 

T  -(IH  -  85) /5 

GROVES  FAIRING  COEFFICIENT 

CZI  -  CZ(I) 

JACCHIA  FAIRING  COEFFICIENT 
SZI  -  1.0  -  CZI 
FAIRED  TEMPERATURE 
T  -  TG*CZI  +  TJ*SZI 
FAIRED  DENSITY 

D  -  EXP  (ALOG(DG)  *CZI  +  ALOG  (DJ)  *SZ1) 

FAIRED  GAS  CONSTANT 
RG  -  PG/(DG*TG) 

RJ  -  PJ/(DJ*TJ) 

R  -  RG*CZI  +  RJ*SZI 
P  -  R*D*T 

DPX  =  DPXG*CZI  +  DPXJ*SZ1 
DP/DY  FOR  GEOSTROPHIC  WINDS 
DPY-DPYG*CZI+DPYJ*SZI 
DTX  -  DTXG*CZI  +  DTXJ*SZI 
DT/DY  FOR  THERMAL  WINDS 
DTY  -  DTYG  *  CZI  +  DTYJ  ♦  SZI 
RETURN 
END 

SUBROUTINE  GRAMIN  (XLATIN, XLONIN, ALTINT,  ICLIMT) 

.  THIS  ROUTINE  READS  IN  ALL  DATA  FILES  TO  INITIALIZE  ARRAYS 
FOR  USE  IN  GRAM  PROGRAM. 

.  WRITTEN  24  JAN  89  L  SCHILLING  NASA/ADFRF. 

COMMON  /C4  /  DUMMY4 (2529) ,  THETl,  DDMMY5(2) 


0951 

COMMON  /lOTEMP/ 

lOTEMl ,  IOTEM2 

IDG 

,IUN 

DD 

,XMJD 

,PHIl 

0952 

PHI 

,  NSAME 

RPl 

,RD1  , 

RTl 

,  SPl 

,SD1 

0953 

STl 

,RD1 

RVl 

,  SUl 

SVl 

,MN 

,  IDA 

0954 

lYR 

,H1 

PHIIR 

, THETIR, 

G 

,  RI 

rB 

0955 

PHIR 

, THETR 

FIO 

,F10B  , 

AP 

,  IHR 

,MIN 

0956 

NMORE 

,DX 

HL 

,  VL 

DZ 

,B 

,EPS 

0957 

lOPP 

,  LOOK 

lET 

,GLAT 

RPIS 

,  RDIS 

,RT1S 

0958 

RUIS 

,RV1S 

SPlS 

,SD1S 

STIS 

,  SUIS 

,SV1S 

0959 

UDSl 

,  VDSl 

UDLl 

,  VDLl 

UDS2 

,  VDS2 

,DDL2 

0960 

0961 

COMMON  /CHIC  / 

VDL2 

LA(4, 

,  REARTH 
4) ,NB(2) 

IWSYM 

DC0EF(14,  9)  , 

VCOEF (14 , 

9) 

COMMON  /WINCOM/  DUMSTF ( 17 ). UPRE , VPRE, DUPRE , DVPRE 

DATA  PI  /'  3 . 1 4  1 3  ?  ? 

DATA  FAC  ,'0 . 01  "45329  ' 

LOOK  =  0 
H  =0.0 

NSAME  -  0 

FIRST  READ  DEFINES  INITIAL  HEIGHT  (KM) ,  INITIAL  LATITUDE  (DEG) 
INITIAL  LONGITUDE  (DEG),  F10.7,  MEAN  F10.7,  AP ,  MONTH,  DAY, 


229 


CHR/91-2750 


0973 

0974 

0975 

0976 

n 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 

0991 

0992 

0993 

0994 

0995 

0996 

0997 

0998 

0999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 
103  3 

1034 

1035 

1036 


C  YEAR  (TOTAL  YEAR  -  1900),  GREENWICH  HOOR,  MINUTES,  SECONDS, 

C  LATITUDE  INCREMENT  (DEG) ,  LONGITUDE  INCREMENT  (DEG) , 

C  HEIGHT  DECREASE  (KM) ,  MAXIMUM  NUMBER  OF  POSITIONS  (EXCLUDING 

C  INITIAL  POSITION)  TO  BE  COMPUTED,  TIME  INCREMENT  BETWEEN 

c  r~riTious,  trajectory  cttiok,  cetput  oftio*;,  kikimum  cEOSTP.crnro 

C  LATITUDE. 

C 

C...  SET  INITIAL  CONDITIONS  FOR  INITIALIZATION  PROCESS 
HI  -  ALTINT/1000. 

PHIl  -  XLATIN 
THETl  -  XLONIN 
MN  -  ICLIMT 
C...  READ  FIXED  INPUT  DATA 

OPEN (UNIT-55 , FILE- ’ FIXED_INPDT . ’ , STATUS- ' OLD ' , READONLY) 

RE.AD  (55,  *,  END-90)  FIO  ,F10B  ,  AP 

IDA  ,IYR  ,IHRO  ,MINO  , ISECO  , 

DPHl  ,DTHET  ,  DH  ,NMAX  , INCT  , lOPT  , 

lOPP  ,  GLAT 
C 

GLAT  -  ABS(GLAT) 

IF  (GLAT.LT.  5.)  GLAT  -  5. 

IF  (GLAT. GE. 18.)  GLAT  -  17.999 
GLATF-GLAT*FAC 

C 

C _  INITIALIZE  DATA  ARRAYS. 

C 

CALL  SETUP 
C  CALL  GRIDIN 

C 

CLOSE (55) 

RETURN 

C 

90  CONTINUE 
C 

WRITE(6, 555) 

555  FORMAT ('  GRAMIN  PROBLEM’) 

STOP 

END 

C 

SUBROUTINE  GRAMRT  (FIRST) 

C 

C....  THIS  ROUTINE  IS  THE  EXECUTIVE  FOR  THE  REAL-TIME  GRAM  PROGRAM. 

C 

C....  WRITTEN  26  JAN  89  L  SCHILLING  NASA /AD FRF . 

C 

C. . . .  GRAM  INPUTS: 

C  GRAM  DRYDEN  SIM 

C  -  - 

C  TIME  SEC  SEC 

C  ALTITUDE  KILOMETERS  FEET 

C  LATITUDE  DEG,  +NORTH  DEG,  +NORTH 

C  LONGITUDE  DEG,  +WEST  DEG,  +EAST 

C 

C. . . .  GRAM  OUTPUTS: 

c 

C  ntJCEP.TURBED  (MONTHLY  MEAN) 

C  GRAM  DRYDEN  SIM 

r  -  - 

C  PRESSURE  NEWTONE/METEP**2  POUNDS/'FT**2 

C  DENSITY  KILOGRAMS /METER* *3  SLUGS/FT**3 

C  TEMPERATURE  DEGREES  KELVIN  DEGREES  RANKINE 

C  GEOSTROPHIC  WIND  METERS/SEC  FEET/SEC 

C 
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MEAN  PLUS  PERTURBATIONS 


PRESSURE 
DENSITY 
TEMPERATURE 
TOTAL  WIND 


NEWTONS /METER*  *  2 
KI LOGRAMS /METER* * 3 
DEGREES  KELvIN 
METERS/SEC 


DRYDEN  SIM 

PODNDS/FT**2 
SLDGS/FT**3 
DEGREES  RANKINE 
FEET/SEC 


THERMAL  WIND  SHEAR  METERS/SEC/KILOMETER  FEET/SEC/FOOT 


LOGICAL  FIRST 


GRAM  PROGRAM  COMMON  BLOCKS. 


/C4  / 


COMMON 

CC»1M0N 


/CHIC  / 
/COMJAC/ 


GLAT(16) ,GLON<16) ,NG  ,P4D(16,26) ,L4D(i 
T4D(16, 2  6) ,SP4 (16,26) ,SD4  <16, 26) ,ST4 (16, 2 
THETl  ,THET  ,  HS 

LA(4,4) ,NB(2) , IWSYM, UCOEF ( 14 , 9) ,VCOEF(14, 
LAT_RADJ  ,XLONG  , SDA  , SHA  , DY  ,R88 
EM 


6,26)  , 

6)  , 


1059 

COIWCN 

/rOMPER/ 

SPH 

,  SDH 

,  STH 

,PRH 

,  DRH 

,  TRH 

,DRH 

1060 

VRH 

,  SI’P 

SVH 

,CP 

,  PRHS 

,  DRHS 

,TRHS  , 

1061 

URHS 

,  VRHS 

,  PRHL 

,DRHL 

,  TPRL 

.DRHL 

, VRHL  , 

1062 

SPHS 

,  SDHS 

,  STHS 

,SDHS 

,  SVHS 

,  SPHL 

, SDHL  , 

TO  CP 

STHL 

,  SUHL 

,  SVHL 

1064 

COMMON 

/lOTEMP/ 

lOTEMl 

,  IOTEM2 

lUG 

,  IDN 

,DD 

,  XMJD 

,PHI1  , 

1065 

PHI 

,NSAME 

,  RPl 

,RD1 

,RT1 

,  SPl 

,SD1 

1066 

STl 

,  RUl 

,  RVl 

,  SOI 

,  SVl 

,MN 

,  IDA 

1067 

lYR 

,H1 

,PHI1R 

,THET1R,G 

,  RI 

1068 

PHIR 

,  THETR 

,F10 

,F10B 

,  AP 

,  IHR 

,MIN  , 

1069 

NMORE 

,DX 

,HL 

,  VL 

,DZ 

.B 

,EPS 

1070 

lOPP 

,  LOOK 

lET 

,GLATX 

,RP1S 

,  RDIS 

,RT1S  , 

1071 

RUIS 

,  RVIS 

SPIS 

,SD1S 

,  STIS 

,  sols 

,SV1S  , 

1072 

UDSl 

,VDS1 

UDLl 

,VDL1 

,UDS2 

,  VDS2 

, UDL2  , 

1073 

VDL2 

,REARTH 

1074 

COMMON 

/IPRTP  / 

IPRT 

1075 

COMMON 

/PDTCOM/ 

1076 

104 

,  MONTH 

lOPR 

,PG(18, 

19)  ,  TG(18,  19) 

, 

1077 

DG(18, 

19)  , PSP  (8, 10, 

12)  ,DSP(8,  10,  12 

)  ,TSP(8,10,12) , 

1078 

PAQ(17 

,5)  ,DAC(17,5) 

,  TAQ(17, 

5),PDQ(17,5), 

DDQ(17,5) 

1079 

TDQ(17,5) ,PR(20,10) 

,DR(20, 10) ,TR(20,10)  , 

DAQ(17,5) 

1080 

VAQ(17, 5) ,DDQ(17,5) 

,  VDQ(17, 

5)  ,UR(25, 10)  , 

VR(25,  10) 

1081 

PQ 

,DQ 

TQ 

,DQ 

,  VQ 

rPQA 

,DQA 

1082 

TQA 

,  UA 

VA 

,  lOPQ 

,PLP(25 

,  10)  ,DLP(25,  10) 

1083 

TLP (25 

,  10) ,DLP (25,10) ,VLP(25, 10)  ,  DDL (25, 

10)  , 

1084 

VDL(25 

,10) ,UDS(25,10) ,VDS(25,10) 

1085 

COMMON 

/WINCOM/ 

DH 

,  FCORY 

DX5 

,DY5 

,  DPX 

,  DPY 

,DPXX  , 

1086 

DPXY 

,  DPYY 

0GH 

,  VGH 

,  TH 

DTX 

,DTY 

1087 

DOH 

,  DVH 

PH 

,OPRE 

,  VPRE 

DUPRE 

,DVPRE 

1088 

r 

1089 

C  .  . 

. .  COMMON 

BLOCKS  ADDED  IN 

MODIFYING  GRAM  AND  INTERFACING  WITH  SIM. 

1090 

c 

1091 

COMMON 

/GRAMOT/' 

PGH 

,  DGH 

TGH 

,  OH 

,  VH 

rPS 

,DS 

1092 

rc 

,  FGHF 

DGHF 

,  TGHF 

.  FHF 

.  DHF 

.  THF 

109? 

FSH 

,  D5H 

TSH 

,  WGH 

1094 

LOGICAL 

GPJ4ATM,  G7  6ATM,  GATMP 

.  GPMWND 

, GWINDF 

1095 

COMMON 

/GRMDAI , 

GPJ^ATM ,  G7  6ATM 

GATMP 

,  G  MWND 

, GWINDF 

,  CS76 

-  CSU 

1096 

CSF 

TMPP76 

TMFP0 

. TMFPF 

,  PA76 

,  FA'’ 

.  PAP 

PHOT  6  ,RHOU  .PROF  . DWINDU . UWINDP , VWINDU . VWINDF , 
DSHEAR, VSHEAR 

COMMON  /NASPGM/  FDAT(5720)  ,DDAT(5720)  ,TDAT(5720) 

SPDAT(5720) ,SDDAT(5720) ,STDAr(5720) 
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1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

112t> 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 
115'’ 
115P 

1159 

1160 
1161 
1162 

1163 

1164 


LOGICAL  WIND 

COMMON  /WINPAT/  WIND  , XWIND  , YWIND  , NDMWND, ALTW (32 ) , VELW (32 ) , 
HDGW(32) ,XWA(32) , YWA(32) 

C 

C _  DRYDEN  SIM  COMMON  BLOCKS. 

C 

COMMON  /ALTFDN/  ASIM  ,  RHO  ,  GSIM  ,  PA  ,  TMPR 

REAL* 8  FSIM,  T,  XLAT,  XLNG 

COMMON  /DRVODT/  FSIM (13) , DFSIM ( 13) 

COMMON  /DRVOT2/  ALP  ,ALPDOT,BTA  ,BTADOT,HSIM  , HDOT  , 

V  ,VDOT  ,X  ,XDOT  ,Y  , YPOT  ,VI 

LOGICAL  OP,  RST,  HLD,RT,ATRM,  ICEN,  MDAT,  HAZ 

COMMON  /RTCDAT/  OP , RST, HLD, RT, ATRM, ICEN, MDAT, HAZ 
EQUIVALENCE  (FSIM(  Ij , T  ), (FSIM ( 12 ), XLAT) , (FSIM (13) , XLNG) 

C 

DATA  R2D  /57. 29578/ 

CCC  DATA  FIRST  /.TRUE./ 

C 

C....  FIRST  TIME  IN  REAL-TIME  LOOP,  INITIALIZE  RANDOM  NUMBER 
C  GENERATOR.  REQUIRED  BECAUSE  'SETUP',  WHICH  INITIALIZES 

C  'RAND'  IN  THE  STANDARD  GRAM  PROGRAM,  IS  NOT  IN  THE  REAL- 

C  TIME  LOAD  MODULE  IN  THE  DRYDEN  SIM.  L JS . 

C 

IF (FIRST)  THEN 
RDUM-RAND ( 1 ) 

RDUM-RAND (0) 
rpf*M-RAND  ( 0 ) 

FIRST-. FALSE  - 
RST-.TRUE. 

OP-. FALSE. 

HLD-. FALSE. 

ELSE 

RST-. FALSE. 

OP- . TRUE . 

HLD-. FALSE. 

END  IF 
C 

GLATF  -  GLATX  /  R2D 
C 

C. . . .  SCALE  INPUTS  FROM  SIM. 

C 

lET  »  T 

H  -  HSIM/3280.84 
PHI  -  XLAT*R2D 
THET  -  XLNG*R2D 

IF(THET.LT.O.O)  THET  -  THET+360.0 

C 

C....  IF  HOLD  MODE,  RETURN. 

C 

IF (HLD)  RETURN 

n 

C....  IF  RESET  MODE,  EXECUTE  GRAM  FIRST  PASS  CODE  FROM  GRAM  MAIN 
C  PROGRAM. 

r 

IF  (.NOT. RST)  TO  200 

NT  -  1 

PHIF  -PHI  /P.2C 

THETP,-THET/F.2t' 

PHIIP  =  PHIP 
THETIR  =  THETP 

C....  A-EQUATORIAL  EAPTH  RADIUS,  B  -  POLAR  EARTH  RADIUS 
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1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 
3  1 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 
121<> 
1220 
1221 
1222 

1223 

1224 

1225 
122  6 
122' 
1228 


C  EPS-  EARTH  ECCENTRICITY 

C 

A  -  6378.160 
B  -  6356.7747 
EPS-(1.-(B*B)/(A*A)) 

C 

C....  COMPOTES  RADIOS  TO  HEIGHT  H,  AND  GRAVITY  AT  HEIGHT  AND 
C  LATITODE  PHIR 

C 

CALL  RIG 
ISEC-ISECO+IET 
ISEC-MOD (ISEC,  60) 

MIN  -  MINO  +  IET/60 
IHR  -  IHRO  +  MIN  /  60 
MIN  -  MOD  (MIN,  60) 

C 

C....  CCX4POTES  P,D,T,0,V  AT  FIRST  POSITION  AFTER  INITILL  POSITION 

C 

IF(H.LE.30.)  LOOK-1 

IF(ABS(PHIR) .GT.GLATF)  GO  TO  195 

IF(H.GE.25.0  .AND.  H.LE.90.0)  GO  TO  195 

PHIIS-PHIIR 

PHIS-PHIR 

DPHIS- (PHIR+GLATF) /(2.*GLATF) 

PHIR-GLATF 

PHIIR-PHIR+PHIIS-PHIS 

C 

CALL  SCIMOD(O) 

C 

OP2-OPRE 
VP2-VPRE 
DOP2-DCPRE 
DVP2-DVPRE 
PHIR— GLATF 
C 

CALL  SCIMOD(O) 

OPl-OPRE 

VPl-VPRE 

DOPl-DOPRE 

DVPi-DVPRE 

OPRE-OP1+ (DP2-DP1) *DPHIS 
VPRE-VP1+ (VP2-VP1) *DPHIS 
DOPRE-DOP1+ (DOP2-DOP1) *DPHIS 
DVPRE-DVP1+ (DVP2-DVP1) *DPflIS 
PHIR-PHIS 
PHIIR-PHIIS 
C 

195  CALL  SCIMOD(l) 

C 

200  CONTINUE 
r 

C....  IF  OPERATE  MODE.  CYCLE  GRAM  PROGRAM.  CODE  FROM  GRAM  'MAIN'. 

IF ( .NOT. OP)  GO  TO  300 

NT  =  NT  4-  1 
PHIR  -PHI  /R2r 
THETR=THET/R2r 
MIN-MINO+IET '6' 

ISEC-IET 

ISEC-MOD ( ISEC, 601 
IHR-IHRO+MIN/60 
MIN-MOD (MIN, 60) 
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1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 
3253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 
12^9 
1280 
1281 
1281 
128? 

1284 

1285 

1286 
128’ 
1188 
1200 
12  0- 
1201 
12  92 


C 

C....  COMPOTE  RADIOS  AND  GRAVITY  AT  NEW  POSITION 

C 

CALL  RIG 


C 

C....  COMPOTE  P,D,T,0,V,  AT  NEW  POSITION 

C 

IF(ABS(PHIR) .GT.GLATF)  GO  TO  80 
IF(H.GE.25.0  .AND.  H.LE.90.0)  GO  TO  80 
PHIIS-PHIIR 
PHIS-PHIR 

DPHIS- (PHIR+GLATF) /(2.*GLATF) 
PHIR-GLATF 

PHIIR-PHIR+PHIIS-PHIS 


CALL  SCIMOD(O) 

C 

OP2-DPRE 
VP2-VPRE 
DOP2-DOPRE 
DVP2-DVPRE 
PHIR— GLATF 
c 

CALL  SCIMOD(O) 

C 

OPl-OPRE 

VPl-VPRE 

DOPl-DOPRE 

DVPl-DVPRE 

OPRE-OP1+ (OP2-DF1) ♦DPHIS 
VPRE-VP1+ (VP2-VP1) *DPHIS 
DDPRE-DOP1+ (DDP2-DOP1) ‘DPHIS 
DVPRE-DVP1+ (DVP2-DVP1) ‘DPHIS 
PHIR-PHIS 
PHIIR-PHIIS 
C 

80  CALL  SCIMOD(l) 

C 

300  CONTINOE 
C 

C....  SCALE  GRAM  OOTPOTS  FOR  SIMOLATION  OSE . 

C 

C....  COMPOTE  SPEED  OF  SOOND  IN  M/SEC. 

C 

CS76MS-SQRT(401 .8743‘TS  ) 

CSONPR-SQRT (401 . 8743‘TGH) 

CSPERT-SQRT(401.8743*TH  ) 

C 

C....  CONVERT  FROM  SI  TO  ENGLISH  UNITS.  '76'  SUFFIX  OSED  FOR  THE  76 
C  STANDARD  ATMOSPHERE  VALUE.  'O'  SUFFIX  OSE  FOR  THE  GRAM 

C  UNPERTORBED  (MONTHLY  MEAN)  VALUE.  'P'  SUFFIX  USED  FOR  THE  GRAM 

C  MEAN  PLUS  PERIOEBATIONS. 


CS76  ''CS76MS/C  .  3048  (SPEED  OF  SOUND  IN  FT/SEC 

CSV  =CSUNF.8/':  .  3048 

CSF  =CSPERT  ‘1,3048 


TMPP76-TS  *1.8  (TEMFEPATURE  IN  DEG  PANKINE 

TMFP,"  -=TGH‘l.? 

TMPPP  =TH 


PA'^6  -PS  ‘0.02088543  (PRESSURE  IN  LBS/FT“2 

PAU  -PGH*0. 02088543 
PAP  -PH  *0.02088543 
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RH076  -DS  *0.001940319 
RBOU  -DGH*0. 001940319 
RHOP  -DH  *0. "01940319 


IDENSITY  IN  SLOGS/FT**3 


DWINDO-VGH/0. 304  8 
DWINDP-VH  /0.304S 
VWINDO-DGH/0 . 3048 
VWINDP-OH  /0.304e 


IGEOSTROPHIC  i  TOTAL  WINDS  FT/SEC 
!D,V  COMPONENTS  INTERCHANGE 
! BETWEEN  GRAM  AND  SIM  AXES. 


DSHEAR-DVH/1000 . 0 
VSHEAR-DDH/1000. C 


IWIND  SHEAR  (FT/SEC) /FT 


SELECT  ODTPDT  TO  SIM  BASED  ON  DSER  SELECTION.  IT  IS 
FOR  THE  OSER  TO  SELECT  GRAM  ATMOSPHERE  AND  GRAM  WINDS 
INDEPENDENTLY. 


IT  IS  POSSIBLE 


IF ( .NOT.GRMATM)  GO  TO  50 


IF(G76ATM)  THEN 
ASIM  -  CS76 
RHO  -  RH076 
PA  -  PA76 
TMPR  “  TMPR76 
ELSE 

IF(GATMP  )  THEN 


1319 

ASIM 

* 

CSP 

1320 

RHO 

“ 

RHOP 

1321 

PA 

- 

PAP 

1322 

TMPR 

= 

TMPRP 

1323 

ELSE 

1324 

ASIM 

- 

CSU 

1325 

RHO 

- 

RHOU 

1326 

PA 

- 

PAD 

1327 

TMPR 

* 

TMPRU 

1328 

ENDIF 

1329 

ENDIF 

1330 

C 

1331 

50  CONTINUE 

!  GRAM  76  REFERENCE  SELECTED 


!  GRAM  CALCULATED  ATMOSPHERE  SELECTED 
!  GRAM  MONTHLY  MEAN  +  PERTURBATIONS 


!  GRAM  MONTHLY  MEAN  WITHOUT  PERT. 


TEST  FOR  DSER  SELECTION  OF  WINDS. 


IF ( .NOT.GRMWND)  GO  TO  60 


IF (WIND)  THEN 

IF(GWINDP)  TEEN 
XWIND  -  UWINDP 
YWIND  “  WINDP 
ELSE 

XWIND  -  UWINDD 
YWIND  -  '.•WINDO 
ENDIF 
ELSE 

XWIND  -  c.-: 

YWIND  =0,' 

ENDIF 


'  GRAM  WINDS  SELECTED,  WIND  ON 
!  MEAN  +  PERTURBATIONS  SELECTED 


MONTHLY  MEAN  WITHOUT  PERT. 


!  GRAM  WINDS  SELECTED,  BUT  WINDS  OFF. 


6"  CONTINUE 


PETUPN 

EtIL 


SUBROUTINE  GRID::' 
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1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 
14  08 
14''- 

1410 

1411 

1412 

1413 

1414 

1415 

1416 
141'’ 

1418 

1419 
1  4  2 ' 


C 

C 

c 

c 

r' 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 


c 

c 

c 


c 


c 

c. 

c 


r 


c 


. . .  THIS  ROUTINE  READS  A  BINARY  DATA  FILE  CONSISTING  OF  PRESSURE, 
DENSITY,  TEMPERATURE,  PRESSURE  VARIANCE,  DENSITY  VARIANCE,  AND 
TEMPERATURE  VARIANCE  FOR  LATITUDES  20-65  AND  LONGITUDES  35-140 
WEST  (CONTINENTAL  US  +) .  THE  DATA  TABLE  IS  USED  TO  SUPPLY  THE 
REAL-TIME  GRAM  PROGRAM  WITH  4D  GRID  DATA  WHEN  WITHIN  THE  REGION 
INDICATED  ABOVE  (CONUS  INCLUDING  A  SORROUNDING  AREA) .  THE 
DATA  IS  USED  BY  ROUTINE  ' USGRID ’  TO  BUILD  A  GRID.  'USGRID' 
REPLACES  'GEN4D’,  'ADJUST',  'GRID4D',  'INTRP4',  'SELEC4',  AND 
’SORT4 ’ . 

...  THIS  ROUTINE  REQUIRES  THE  INCLUSION  OF  THE  EXTENDED  REGION.  THE 
REGION  IS  CREATED  ON  THE  SYSTEM  VOLUME  WITH  THE  FOLLOWING 
VOLUME  MANAGER  COMMAND: 

CREATE  COMMON  NASPGM  FIRST-380  PROT-68  ACCESS-OT(R  W) 

. , .  ROUTINE  I/O;  LUN  25  IS  INPUT  FILE 

'UT'  IS  TERMINAL  OUTPUT 

...  WRITTEN  23  JAN  89  L  SCHILLING  NASA/ADFRF . 

CHARACTER*12  FILNAM 

COMMON  /PDTCOM/  IT, MONTH, DUMMYl (8118) 

COMMON  /NASPGM/  PDAT{5720)  ,DDAT(5720)  ,TDAT(5720)  , 

SPDAT(5720) ,SDDAT(5720) ,STDAT(5720) 

. . .  OPEN  BINARY  FILE  CONTAINING  US  4D  GRID  DATA  FOR  MONTH  OF 
INTEREST. 

WRITE (FILNAM, 777)  MONTH 
777  FORMAT ( 'NASPGRID ', 12, ' .B' ) 

IF(FILNAM(9:9)  .EQ.  '  ')  FILNAM  ( 9 :  9)  -  ’  0  ' 

OPEN(2S, FILE-FILNAM, STATUS- 'OLD' , FORM- ' UNFORMATTED ' , 

ACCESS- ' SEQUENTIAL ’ , ERR-99, ZOSTAT-ZOS) 

...  READ  IN  BINARY  DATA  FILE. 

REWIND  (25) 

READ (25)  PDAT, TDAX, DDAT, SPDAT, STDAT, SDDAT 
CLOSE (25) 

RETURN 

...  ERROR  CONDITION. 

99  CONTINUE 

WRITE (6, 231)  FILNAM, lOS 

231  FORMAT('  OPEN  ERROR  ON  ’,A12,'  STATUS- ', 13 ) 

STOP 

END 


SUBROUTINE  GTEPP ' IH. PHI , P , P, T , PG , DG , TG , PPY . PTY, DF2Y> 

INTERPOLATES  GPCVLS  DATA  TO  HEIGHT  IH  AJII'  LATITUDE  FHi 

DECLARE  AFPROFRi;,TE  ARGUMENTS  TO  BE  IN  GOULP  EXTENPEP .  IF  A 
MON-EXTENDED  PARAMETER  IS  DECLARED  EXTENDED.  THE  INTERFACE  WILL 
WORE,  ALBFIT  WITH  A  SLIGHT  EXECUTION  OVERHEAD  PENALTY.  LJE . 


DIMENSION  PG(18,19),TG(18,19),DG(18,19) 
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1421  C  HEIGHT  INDEX 

1422  I  -(IH  -  20) /5 

1423  C  LONER  LATITUDE  INDEX 

1424  J  -  INTI (PHI  +  100.)/10.) 

1425  IF  (J.LT.l)  J  -  1 

1426  IF  (J.GT.18)  J  -  18 

1427  C  DPPER  LATITDDE  INDEX 

1428  JP  -  J  +  1 

142  9  C . CHECK  FOR  DENSITY  OR  TEMPERATURE  LEQ  0 

1430  CHK  -  DG(I,J)  *  TG(I,J)  *  DG(I,JP)  *  TG(I,JP) 

1431  IF  (CHK)  10,10,20 

1432  10  P  -  PG(I,J) 

1433  D  -  DG(I,  J) 

1434  T  -  TG(I,J) 

1435  GO  TO  30 

1436  C . LATITUDE  DEVIATION  FROM  GROVES  ARRAY  POSITION 

1437  20  PHIF  -  (PHI  +  100.  -  10.*J)/10. 

1438  TL-  TG(I,J)  +  (TG(I,JP  )  -  TG ( I , J) ) »PHIF 

1439  C  LATITUDE  INTERPOLATION 

1440  DL-  DG(I,J)  +  (DG(I,JP  )  -  DG(I,J))  *PHIF 

1441  R1  -  PG(I,  J)  /  (DG(I,  J)  *TG(I,  J)  ) 

1442  R2  -  PG(I,  JP)  /  (DG  (I,  JP)  *TG(I,  JI )  ) 

1443  C  INTERPOLATED  GAS  CONSTANT 

1444  R  -  R1  +  (R2  -  Rl) *PHIF 

1445  C  PRESSURE  COMPUTED  FROM  INTERPOLATED  GAS  CONSTANT 

1446  P  -DL*R*TL 

1447  D  -  DL 

1448  T  -  TL 

1449  C  OP/DY  FOR  GEOSTOPHIC  WINDS 

1450  30  DPY  -  (PG(I,JP)  -  PG(I,J))  »  0.5 

1451  C  DT/DY  FOk  *HERMAL  WINDS 

1452  DTY  -  (TG(I,JP)  -  TG(1,J))  *  0.5 

1453  JM  -  J  -  1 

1454  IF  (JM.LT.l)  JM  »  JP 

1455  DP2Y  -  (PG(I,JP)  -  PG(I,JM  ))*0.5 

1456  IF  (ABS(PHI) -90. )  50,40,40 

1457  40  DPY  -  0. 

1458  DTY  -  0. 

1459  DP2Y  -  0. 

1460  50  CONTINUE 

1461  RETURN 

1462  END 

1463  C 

1464  SUBROUTINE  INTLL (F, lA, IB, IC, ID, FLL, GLAT, GLON, CLAT, CLON, IH) 

1465  C 

1466  C . INTERPOLATES  FUNCTION  (ARRAY)  F  FROM  VALUES  OF  GLAT  AND  GLON  AT 

1467  C  INDEX  VALDES  lA,  IB,  IC,  ID  TO  OUTPUT  VALUE  FLL  AT  HEIGHT  IH 

1468  C  AND  POSITION  CLAT,  CLON 

1469  C 

1470  DIMENSION  F  ( 1 6 , 2  6)  ,  GLAT  ( 1 6)  ,  GLON  (16) 

1471  c . NORMALIZES  LONGITUDE  DISPLACEMENT 

1472  IF (F (lA, IH) *F (IB. IH) *F (IC. IH) *F (ID, IH) )  20,10,20 

1473  10  FLL=0. 

1474  RETURN 

1475  20  X- (CLON-GLON 'IE'  '  (GLON  (lA) -GLON  (IE)  ) 

14^6  C . NORMALIZES  LATITUDE  DISFLACEMENT 

14  77  Y”  (CLAT-GLAT  '  I.A;  '  (GLAT  ( IC) -GLAT  ( lA!  ! 

1478  C . TWO  DIMENSIONAL  INTERPOLATION 

147  ^  FLL-F  (IB,IH)-^'F'ID,IH)-F(IB,IH))»Y+(F(IA,IH)-F(IB,IH)?*X 

148':'  1  +  (F  (  IC,  IH)  -F 'lA,  IH) -F  (ID,  IH) +F  (IE,  IH)  I  *X*Y 

14B1  PXTURN 

1482  END 

148?  SUBROUTINE  INTEC^  ( UR, VR , H , PHI , SUH, SVH) 

14  84  C 
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1485  C . FINDS  RANDOM  WIND  STANDARD  DEVIATION  AT  HEIGHT  H  (KM),  LATITUDE 

1486  C  PHI  (DEGREES)  ,  FROM  DR  AND  VR  ARRAYS 

1487  C 

1488  DIMENSION  DR(25, 10) ,VR(25, 10) 

1489  C . I  -  LOWER  HEIGHT  INDEX 

1490  IF  (H.LT.95.)  I  -  1  +  INT(H)  /  5 

1491  IF  (H.GE.95.)  1-19+ (INT (H) -80) /20 

1492  IF  (I.GT.25)  1-25 

1493  C  UPPER  HEIGHT  INDEX 

1494  IP-I+1 

1495  IF  (IP.GT.25)  IP-25 

1496  C  LOWER  LATITUDE  INDEX 

1497  J-INT(PHI+110.) /20 

1498  C  UPPER  LATITUDE  INDEX 

1499  JP-J+1 

1500  IF  (JP.GT.IO)  JP-10 

1501  C . PHIl  -  LOWER  LATITUDE  FOR  OR  AND  VR  ARRAY  VALDES 

1502  PHIl— 110. +20. *J 

1503  C . PHI2  -  UPPER  LATITUDE  FOR  UR  AND  VR  ARRAY  VALDES 

1504  PHI2  — 110.+20.+JF 

1505  IF  (I.GT.19)  GO  TO  10 

1506  C  LOWER  HEIGHT  FOR  UR  AND  VR  ARRAY  VALDES 

1507  Z1-5.*(I-1) 

1508  GO  TO  20 

1509  10  Z1-20.*(I-15) 

1510  20  IF  (IP.GT.19)  GO  TO  30 

1511  C  UPPER  HEIGHT  FOR  UR  AND  VR  ARRAY  VALUES 

1512  Z2-5.*(IP-1) 

1513  GO  TO  40 

1514  30  Z2  -  20.  *  (IP  -  15) 

1515  C  INTERPOLATE  ON  LATITUDE  AT  LOWER  HEIGHT 

1516  40  CALL  INTERW (DR ( I , J) , VR ( I, J) , PHIl, DR ( I , UP) , VR ( I, JP ) , PHI2 , Ul, VI , 

1517  $  PHI) 

1518  C  INTERPOLATE  ON  LATITUDE  AT  UPPER  HEIGHT 

1519  CALL  INTERN  ( UR  ( IP,  J)  ,VR(IP,  J)  ,  PHIl ,  UR  ( IP,  JP)  ,VR(IP,  JP)  ,PflI2,U2, 

1520  $  V2,PHI) 

1521  C  INTERPOLATE  ON  HEIGHT 

1522  CALL  INTERW(Dl,Vl,Zl,D2,V2,Z2,SUa,SVH,H) 

1523  RETURN 

1524  END 

1525  SUBROUTINE  INTERW (U1 , VI , Z1 , U2 , V2 , Z2 , U, V, Z) 

1526  C 

1527  IF  (  Z1  -  Z2  )  20,10,20 

1528  10  D  -  U1 

1529  C  SETS  0,V  -  Dl.Vl  IF  Z1  -  Z2 

1530  V  -  VI 

1531  RETURN 

1532  20  A  -  (Z-Zl) / (Z2-Z1) 

1533  D  -  01  +  (D2-D1)  A 

1534  V  -  VI  +  (V2-V1)  *  A 

1535  C . LINEAR  INTERPOLATION  BETWEEN  U1,V1  AT  HEIGHT  Z1  AND  D2 , V2  AT 

1536  C  HEIGHT  Z2 .  OnTPDT  IS  U,V  AT  HEIGHT  Z 

1537  RETURN 

1538  END 

1539  SUBROUTINE  INTER! (r 1 , D1 , T1 , Z1 , F2 , D2 , T2 , Z2 . F , D, T , Z) 

1540  C 

1541  5  IF  (Z1  -  Z2)  20. 10, 20 

1542  10  F  -  FI 

1543  D  -  D1 

1544  C  SETS  F,  D,  T  =  Fl.Dl.Tl,  IF  Z1  =  Z2 

1545  T  -T1 

1546  RETURN 

1547  20  A  -  (Z  -  Zl)/  (Z2  -  Zl) 

1548  T  -  T1  +  (T2  -  Tl)  *  A 
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1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 
1  600 
1601 
1602 

1603 

1604 

1605 
lb06 

leo” 
160P 
1  609 
1610 
1611 
1612 


D  -  D1  +  (D2  -  Dl)  *  A 
P  -  PI  +  (P2  -  PI)  *  A 

C . LINEAR  INTERPOLATION  BETWEEN  P1,D1,T1  AT  HEIGHT  Z1  AND  P2,D2,T2 

C  AT  HEIGHT  Z2  TO  ODTPOT  VALDES  OF  P,D,T  AT  HEIGHT  Z 

RETURN 
END 

SDBRODTINE  INTER2 (PI , Dl , T1 , Z1 , P2 , D2 , T2 , Z2 , P, D, T, Z) 

C . INTERPOLATES  BETWEEN  P1,D1,T1  AT  HEIGHT  Z1  AND  P2,D2,T2  AT 

C  HEIGHT  Z2  TO  OOTPDT  VALDES  OF  P, D, T  AT  HEIGHT  Z 

C . CHECKS  FOR  T1,D1,T2,D2  PRODUCT  -  0,  FOR  GAS  CONSTANT  INTERPOLATION 

CHK-T1*D1*T2*D2 
IF  (CHK)  10,10,5 


5  IF  (Z1  -  Z2)  20,10,20 

10  P  -  PI 
D  -  Dl 

C  SETS  P,D,T  -  P1,D1,T1  IF  Zl-22 

T  -  T1 
RETURN 

20  IF(P1*D1*T1*P2*D2*T2.LE.O.)GO  TO  30 
IF(D2*Dl.LE.0.0)GO  TO  30 
A-ALOG (D2/D1) / (Z2-Z1) 

C  LINEAR  INTERPOLATION  ON  LOG  D 

DZ-  D1*EXP(A*(Z  -  ZD) 

A-(Z-Zl) / {Z2-Z1) 

C  LINEAR  INTERPOLATION  ON  T 

TZ-  T1  +  A*(T2-T1) 

Rl-Pl/ (D1*T1) 

R2-P2/ (D2*T2) 

C  LINEAR  INTERPOLATION  ON  GAS  CONSTANT  R 

R-(R2-R1) *A+R1 

C  PRESSURE  FROM  PERFECT  GAS  LAW 

P  =  DZ  *  R  *  TZ 
D  -  DZ 
T  »  TZ 
RETURN 
30  P-0. 

D-0  . 

T-0  . 

RETURN 

END 

SUBROUTINE  INTER4  (  CLAT,  CLON,  IZ,  P,  D,  T, 

S  P4,  D4,  T4,  DPX,  DPy,  DTX,  DTY, DPXX, DPYY, DPXY) 

C 

COMMON/IOTEMP/IOTEMl, IOTEM2, lUG,  lUN  , DD, XMJD, PHIl , PHI , 

SNSAME , DUMMY2 (56) 

C . INTERPOLATES  BETWEEN  4D  ARRAYS  P ( I , IH)  , D ( I , IH)  , T ( I , IH)  AT  GRID 

C  LOCATIONS  LATITUDE  GLATd)  LONGITUDE  GLON(I). 

C  CLAT, CLON  -  CURRENT  LATITUDE, LONGITUDE 

C  IZ  -  HEIGHT  NG  -  NUMBER  OF  4D  GRID  POSITIONS 

C  OUTPUT  -  P4,D4,T4,  AND  DERIVATIVES  DPX, DPY, DTX, DTY 

COMMON  /C4  /  GLAT(16) ,GLCN(16) ,NG,DUMMY(2499) 

COMMON/CHIC/LA (4 , 4) ,NB(2) , IWSYM, UCOEF (14 , 9) ,VCOEF(14, 9) 

DIMENSION  P(16,26),D(16,26),T(16,26), LAX (16) 

DATA  IBLK.dH  /,IAST/1H*/ 

IWSYM  -  IBLK 
ICHF,  =  0 

C  HEIGHT  INDEX  =  KIIGHT  +  1 

IH  =  IZ  +  1 

5  IF  dCHK.GT.l'  GC  TO  220 
IF  (NG.GT.9)  g:  T-:  IOC 
^  NG  =  9  MEANS  FOLAF  GRID 

DO  10  I-IO,  16,1 
P  (I,  IH)  -  P  (9,  IE’ 

D  (I ,  IH)  -  D  (9,  IH! 
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1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 

1629 

1630 

1631 

1632 

1633 

1634 

1635 

1636 

1637 

1638 

1639 

1640 

1641 

1642 

1643 

1644 

1645 

1646 

1647 

1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 
165  9 
1660 
1661 
1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 


T(I,IH)  -  T(9,IH) 

GLAT(I)  -  GLAT(9) 

C  1-10-16  ALL  AT  90  DEG 

10  GLON(I)  “  GLON(I-8) 

C  LOWER  RIGHT  INTERPOLATION  INDEX 

IB  -  INT(CLON/45)  +  1 
C  LOWER  LEFT  INTERPOLATION  INDEX 

lA  -IB+1 

IF  (IA.GT.8)  lA  -  IA-8 
C  POSITION  ODTSIDE  POLAR  GRID 

IF  (ABS(CLAT) .LT.75.)  GO  TO  20 
C  DPPER  LEFT  INTERPOLATION  INDEX 

IC  -  lA  +8 

C  UPPER  RIGHT  INTERPOLATION  INDEX 

ID  -  IB  +  8 
GO  TO  300 

20  IF(NSAME.EQ.l)  NSAME-2 
CALL  GEN4D 
C: 

C  CALL  OSGRID 

C:  :  ^ 

ICHK  -  ICHK  +  1 
GO  TO  5 

100  XLON  -  CLON 


DO  105  I  1,4 
DO  105  J  -  1,4 
116  -  4*(I-1)  +  J 
LAX(I16)  -  LA(I,J) 

105  CONTINUE 

IF  (XLON-GLON (1) . GT . 180) XLON-CLON-360 . 

C . CHECKS  FOR  POSITION  WITHIN  16  POINT  GRID  llO-GOOD.  200-POSITION 

C  OUTSIDE  GRID. 

IF  (CLAT.GE.GLAT(l)  .AND.  CLAT . LT.GLAT (1 6)  .AND.  XLON . LE . GLON ( 1) 


$  .AND.XLON.GT.GLON(16) )  GO  TO  110 
GO  TO  200 
110  NDL-5 


IF(ABS(CLAT) .LT.18)  -12 

lA  -  1  +  INT((GLON(l  ■  XLCM)  /  5) 

C . I A  -  LOWER  LEFT  (REFERENCE)  INTERPOLATION  INDEX 

lA  -  lA  +  4  *  INT((CLAT  -  GLAT(l))  /  NDL) 

C  LOWER  RIGHT  INTERPOLATION  INDEX 

IB  -  lA  +  1 

C  UPPER  LEFT  INTERPOLATION  INDEX 

IC  -  lA  +  4 

C  UPPER  RIGHT  INTERPOLATION  INDEX 

ID  -  lA  +  5 


GO  TO  300 

200  IF (NSAME.EQ. 1) NSAME-2 
CALL  GEN4D 
C: 

C  CALL  USGRID 

C:  :  " 

ICHK  -  ICHK  +  1 
GO  TO  5 
220  CONTINUE 
C: :  220  WRITE(6, 250' 

C::  2  50  FOP.MAT(lH  ,  '  ~7ABLE  TO  GENERATE  4-D  GRID.  TOO  MANY 

C;:  S' RETRIES  IN  INTER4 ' ; 

P4-0  . 

D4-C  . 

T4-0  . 

RETURN 

C . INTERPOLATION  FOP  POSITION  INSIDE  16  POINT  GRID  OR  POLAR  GRID 

300  CALL  INTLL (P , lA, IB, IC, ID, P4, GLAT, GLON, CLAT, XLON, IH) 
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1677  CALL  INTLL{D,IA,IB,IC,ID,D4,GLAT,GLON,CLAT,XLON,IH) 

1678  CALL  INTLL(T, lA, IB, 1C, ID, T4,GLAT,GLON,CLAT,XLON, IH) 

167  9  C . RELATIVE  LONGITDDE  DISPLACEMENT  FROM  REFERENCE  POSITION  <IA) 

1680  DLON  -  (XLON  -  GLON ( lA) ) / (GLON ( IB)  -  GLON(IA)) 

1681  C . RELATIVE  LATIT0DE  DISPLACEMENT  FROM  REFERENCE  POSITION(IA) 

1682  DLAT  -  (CLAT  -  GLAT (lA) ) / (GLAT (IC)  -  GLAT(IA)) 

1683  DPX-P(IB,IH)-P(IA,IH) 

1684  C . DP/DX  FOR  GEOSTROPHIC  WIND  EQUATIONS 

1685  DPX  -  DPX  +  (P(ID,IH)  -  P(1C,IH)  -  DPX) *DLAT 

1686  DTX  -  T(IB,IH)  -  T(IA,IH) 

1687  C . DT/DX  FOR  THERMAL  WIND  EQUATIONS 

1688  DTX  -  DTX  +  (T(ID,IH)  -  T(IC,IH)  -  DTX) *DLAT 

1689  DPT  -  P(IC,IH)  -  P(IA,IH) 

1690  C . DP/DY  FOR  GEOSTROPHIC  WIND  EQUATIONS 

1691  DPY  -  DPY  +  (P(ID,IH)  -  P(IB,IH)  -  DPY) *DLON 

1692  DTY  -  TUC,IE)  -  T(IA,IH) 

1693  C . DT/DY  FOR  THERMAL  WIND  EQUATIONS 

1694  DTY  “  DTY  +  (T(ID,IH)  -  T(1B,IH)  -  DTY) *DLON 

1695  IF(NG.GT.9)  GO  TO  315 

1696  DPX-DPX/9. 

1697  DTX-DTX/9. 

1698  DPY-DPY/3. 

1699  DTY-DTY/3. 

1700  315  IF(ABS (CLAT) .GT. 18)  GO  TO  312 

1701  DPY-DPY*5. /12 

1702  DTY-DTY*5./12 

1703  312  IF  (NG.GT.9)  GO  TO  310 

1704  DPXX  -  0. 

1705  DPYY  -  0. 

1706  DPXY  -  0. 

1707  RETURN 

1708  310  DPXY  -  P(ID,IH)  -  P(IC,IH)  -  P(IB,IH)  +  P{IA,IH) 

1709  IF  (MOD(IB,4)  .EQ.O)  GO  TO  320 

1710  II  -  lA 

1711  12  -  IB  +  1 

1712  13  -  IC 

1713  14  -  ID  +  1 

1714  SX-1. 

1715  GO  TO  330 

1716  320  II  -  lA  -  1 

1717  12  -  IB 

1718  13  -  IC  -  1 

1719  14  -  ID 

1720  SX— 1. 

1721  330  IF(LAX(I1) .NE.LAX(IA) .OR.LAX(I2) .NE.LAX(IA) .OR.LAX(I3) .NE. 

1722  *  LAX(IA) .OR.LAX(I4) .NE.LAX(IA))  GO  TO  360 

1723  DPXX  -  F{I2,IH)  -  P(Il,IH) 

1724  DPXX  -  DPXX  +  (P(I4,IH)  -  P(I3,IH)  -  DPXX)  »DLAT 

1725  IF  (IC.GT.12)  GO  TO  340 

1726  II  -  lA 

1727  12  “  IC  +  4 

1720  13  =  IB 

1729  14  =  ID  +  4 

1730  SY-1 . 

1731  GO  TO  350 

1732  340  II  -  lA  -  4 

1733  12  -  IC 

1734  13  =  IB  -  4 

1735  14  =  ID 

1736  SY--1. 

1737  350  IF  (LAX  (II)  .  NE  .  LAa  ( lA)  .OP. .  LAX  (12)  -NE.LAX  ( lA)  .OR.  LAX  (13)  .  NE  . 

1736  *  LAX(IA) .OR.LAX(I4) .NE.LAX(IA) )  GO  TO  360 

173?  DPYY  =  P(I2,IH)  -  P(I1,IH) 

1740  DPYY  -  DPYY  (P(I4,IH)  -  P(I3,IH)  -  DPYY)  *DLON 
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1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 
17  92 

1793 

1794 

1795 

1796 

1797 

1798 

1799 

1800 
1  801 
1802 

1803 

1804 


DPXX  -(DPXX  -  2.*DPX  ) *SX 
DPXY  -(DPYY  -  2.*DPY  ) *SY 
RETURN 

360  DPXX  -  0. 

DPYY  -  0. 

DPXY  -  0. 

RETURN 

END 

SUBROUTINE  JAC (Z,TZ, DENS ) 

COMMON/IOTEMP/lOTEMl, IOTEM2, IDG, ION, DD, XMJD, PHIl , PHI , 

NSAME,RP1,  RDl,  RTl,  SPl,  SDl,  STl,  RDl,  RVl,  SUl,  SVl , 
$  MN,  IDA,  lYR,  HI,  PHIIR,  THETIR,  G,  RI,  H,  PHIR,  THETR,  FIO,  FlOB,  AP, 

$  IHR,MIN,NMORE,DX,HL,VL,DZ,DUMMY(25) 

COMMON/COMJAC/XLAT, XLONG, SDA, SHA, DY, Y, T, EM 
DIMENSION  AI,PEA(6)  ,EI(6)  ,DI(6)  ,  B(7),DIT(6) 

QQ  -  100. 

DATA  ALPHA/0 .0,0. 0,0. 0,0. 0,-0. 38, 0.0/ 

DATA  EI/28. 0134, 31. 9988, 15 . 9994 , 39. 948 , 4 . 002 6, 1 . 00797/ 

DATA  B/28. 15204, -0.085586, 1.284E-04, -1.0056E-05, -1.021E-05, 
11.5044E-06, 9.9826E-08/ 

AV-6.02257E23 
QN-. 78110 
002". 20955 
QA-. 009343 
QHE  -  1.289E-5 
FK-8. 31432 
C 

C  TbMPEKAl’UKi,  Ai  Z  -  125  KM,  EQ.  9 

C 

TX-444 .3807+.02385*T  -392 . 8292*EXP (-. 0021357*T) 

A2-2.* (T-TX) /3. 141592 65 
C 
C 

DIT(6)-0. 

M-10 

EPS-. 0001 
C 

C  TEMPERATURE  FOR  90%Z%125,  EQ.  10 
C 

Tl-1 . 9* (TX-183 . ) /35. 

T4-3.*(TX-183.-2.*Tl*35./3.) /(35.»*4) 

T3— Tl/ (3.*35.**2) +4 .*T4*35./3. 

TZ-TX+Tl* (Z-125. ) +T3* (Z-125. ) **3+T4* (Z-125.) **4 
IF  (Z-105.)  43,43,40 
C 

C  MEAN  MOLECULAR  WEIGHT  FOR  90%Z%105,  EQ.  1 

C 

43  Z2  -  Z  -  QQ 

EM-B(l) +B(2) *Z2+B(3) *Z2**2+B ( 4 ) *Z2**3+B (5) *Z2**4+B(6) *Z2**5 
1+B(7) *22**6 
D-Z 

70  CONTINUE 

r 

C  INTEGRATION  OF  EQ .  5  FOR  DENSITY  BETWEEN  90%Z%105 

r’ 

A-90  . 

FA=B (1 ) +B(2) * (A-CQI +B(3) ♦ (A-QQ) **2*6(4)* (A-QQ) **3+8(5)* (A-QQ> **4 
1+B (6) * (A-QQ) **5  +B (7) * (A-QQ) **6 
FA-FA* 9. 80655/ f (1 . +A/6 . 356766E+3 ) * *2 ) 

FA-FA/ (TX+Tl* (A-125 . ) +T3* (A-125.)**3  tT4*(A-125.i**4) 

FD-B(l) +B(2) * (D-QQ) +B(3) * (D-QQ) » *2 +P ( 4 ) * (P-QQ) **3+B (5) * (P-QQ) **4 
1+B(6) * (D-QQ) **5  +B (7) * (D-QQ) **6 
FD-FD*9. 80665/ ( (1 . +D/6 . 356766E+3) **2) 

FD-FD/ (TX+Tl* (D-125 . ) +T3* (D-125. ) **3  +T4* (D-125 . ) **4) 
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1005 

1806 

1807 

1808 

1809 

1810 
1811 
1812 

1813 

1814 
1315 
1816 

1817 

1818 

1819 

1820 
1821 
1822 

1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1842 

1843 

1844 

1845 

1846 

1847 

1848 
1049 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 

1858 

1859 

1860 
1861 
1862 

1863 

1864 

1865 

1866 

1867 

1868 


C  SRQ4,  SIMPSONS  ROLE  QDADRATURE  -  G.F.KtJNCIR 

C  DEFINITIONS  - 

C  A  -  LOWER  LIMIT  OF  INTEGRATION 

C  D  -  UPPER  LIMIT  OF  INTEGRATION 

C  FUNC  -  INTEGRAND  FUNCTION  SUBPROGRAM 

C  EPS  -  RELATIVE  ERROR  CONVERGENCE  CRITERION 

C  M  -  MAXIMUM  NUMBER  OF  INTEGRATIONS 

C  R  -  RESULT  OF  INTEGRATION 

C  N  -  NUMBER  OF  INTEGRATIONS9RIQtIRID  TO  FIND  R 

C 

NINT  -  1 
N-0 

PREV-0 . 

SONE-  (D-A)  *  (FA+FD)  /2  . 

71  N-N+1 

IF  (N-M)  72,72,75 

72  NINT  -  2  *  NINT 
STWO-0 . 

DEL- (D-A) /FLOAT (NINT) 

DO  73  I-1,NINT,2 
X-A+DEL»FLOAT(I) 

FX-B(1)+B(2) *(X-QQ)+B(3) *(X-QQ)**2+B(4)*(X-Q0)**3+B(5) *(X-QQ) **4 
1+B(6) * (X-QQ) **5  +B(7) * (X-QQ) **6 
FX-FX*9 . 80665/ ( (1 . +X/6 . 356766E+3) *»2) 

FX-FX/  (TX+Tl*  (''-125.  )+T3*  (X-125.  )**3  +T4*  (X-125. )  **4) 

73  STWO-STWO+FX 
CUR-SONE+4 . *DEL*STWO 

IF  (EPS*ABS (CUR) -ABS (CUR-PREV) )  74,75,75 

74  PREV-CUR 
SONE-(SONE+CUR) /4. 

GO  TO  71 

75  R-CUR/3 

IF  (Z-105.)  44,  76,44 
44  IF  (D-105.)  76,55,76 

C 

C  DENSITY  FOR  90%Z%105 

C 

76  DENS-3. 46E-9*183.*EM*EXP (-R/FK) / {TZ*28 .878) 

DL-ALOGIO (DENS) 

PAR-AV*DENS/EM 
AN-»T,0010  (SN*EM*PAR/28 . 96) 

AA-ALOGIO (QA*EM*PAR/28 . 96) 

AHE-ALOGiO (QHE*EM*PAR/28 . 96) 

AO-ALOGIO (2 . *PAR» (1 . -EM/28.96) ) 

AO2-ALOG10 (PAR* (EM* ( 1 . +Q02 ) /28 . 96-1. ) ) 

AH— 0. 

RETURN 

C 

C  TEMPERATURE  AND  MEAN  MOLECULAR  WEIGHT  AT  Z-105  KM 

C 

40  Z3-105. 

TZ3-TX+T1* (Z3-125. ) +T3* (Z3-125) **3+T4* (Z3-125) **4 
ZM3-B(1)+B(2) *  5.+B(3)*  25.+B(4)*  125.+B(5)*  5.**4.+B(6)*  5.**5. 
1+B(7) *  5.**6. 

D-105. 

GO  TO  70 
C 

C  DENSITY  AT  Z-105  KM 


55  DENl-3 . 4  6E-?*lf  5  .  "-ZMS^EXF  (-P./FK)  /  (T03*28 . 8  78t 

pap-av*deni/zm:' 

DI  (l)-QN*ZM3*PAP,/28.96 

DI (2) -PAR* (ZM3* (1 .+Q02) /28 . 96-1 . ) 

DI  (3)-2.*PAP.*  (1.-ZM3/28.96) 
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1869 

DI (4)-QA*ZM3*PAR/28.96 

1870 

DI (5)-QHE*ZM3*PAR/28.96 

1871 

IF(Z-125.)  56,56,90 

1872 

56 

CONTINOE 

1873 

C 

1874 

C 

INTEGRATION  OF  EQ.  6  FOR  DENSITY  ABOVE  105  KM 

1875 

C 

1876 

R-0. 

1877 

Dl-125. 

1878 

Al-105. 

1879 

400 

CONTINOE 

1880 

FAl-9. 80665/ ( ( 1 . +A1/6 . 3567 66E+3) **2) 

1881 

FAl-FAl/ (TX+Tl* (Al-125 . ) +T3* (Al-125 . ) **3+T4* (Al-125 . ) ** 

1882 

FDl-9. 80665/ ( ( 1 . +D1/6 . 3567 66E+3) **2) 

1883 

IF(D1-125.)  45,45,50 

1884 

45 

FDl-FDl/ (TX+Tl* (Dl-125. ) +T3* (Dl-125 .) **3+T4* (Dl-125.) ** 

1885 

GO  TO  51 

1886 

50 

FDl-FDl/ (TX+A2*ATAN (Tl* (Dl-125 . ) * (1 .+4 .5E-6* (Dl-125. )  **. 

1887 

TZ-TX+A2*ATAN (Tl* (Z-125 . ) * (1 . +4 . 5E-6* (Z-125 . ) **2 . 5) /A2) 

1888 

51 

N-0 

1889 

NINT  -  1 

1890 

PREV-0 

1891 

SONE-(Dl-Al) * (FAl+FDl) /2 . 

1892 

81 

N-N+1 

1893 

IF  (N-M)  82,82,85 

1894 

82 

NINT  -  2  *  NINT 

1895 

STWO-0 . 

1896 

DEL- (Dl-Al) /FLOAT (NINT) 

1897 

DO  83  I-1,NINT,2 

18  98 

Xl-Al+DEL*FLOAT (I) 

1899 

FXl-9. 80665/ ( ( 1 . +X1/6 . 3567 66E+3) **2) 

1900 

IF(X1-125.)  46,46,52 

1901 

46 

FXl-« a1/ (TX -Tl* (Xl-125 . ) +13* (Xl-125. ) **3+T4* (Xl-125 .)**• 

1902 

GO  TO  83 

1903 

52 

FXl-FXl/ (TX+A2*ATAN(T1* (Xl-125 .)* (1 . +4 . 5E-6* (Xl-125,) **; 

1904 

83 

STWO-STMO+FXl 

1905 

COR-SONE+4 . *DEL»STWO 

1906 

IF  (EPS*ABS (CUR) -ABS(COR-PREV) )  84,85,85 

1907 

84 

PREV-CUR 

1908 

SONE- (SONE+CUR) /4 . 

1909 

GO  TO  81 

1910 

85 

R-CDR/3.+R 

1911 

IF(A1.EQ.125.)  GO  TO  430 

1912 

Dl-Z 

1913 

Al-125. 

1914 

GO  TO  400 

1915 

430 

CONTINUE 

1916 

c 

1917 

c 

DENSITY  ABOVE  105  KM 

1918 

c 

1919 

DO  41  1-1,5 

1920 

DIT  (I)  -DI  (I)  *  (TZ3/TZ)  **  (1  .+ALPHA(I)  )  *EXP  (-EI  (I)  *R/FK) 

1921 

41 

CONTINOE 

1922 

DENS-0 

1923 

DO  42  I-l, 6 

1924 

DENS-DENS  +  EI  'I'  TIT  'I)  /AV 

1925 

42 

CONTINTC 

1926 

r 

192  7 

C 

MEAN  MOLECULA?  '--TIGHT  FOP  Z  105  KM 

1928 

c 

192  9 

EM“DENS*AV/ (DIT  1 ’ +DIT (2) +DIT (3) +DIT ( 4 ) +DIT ( 5) +DIT (6) ) 

1930 

1931 

r- 

LOG  DENSITY 

1932 

r 

) 

) 

.5)/A2)) 


) 

.5)/A2)  ) 
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1933 

DL-ALOGIO (DENS) 

1934 

AN  -ALOGIO  (DIT  (1)  ) 

1935 

AO2-ALOG10 (DIX (2) ) 

1936 

AO  -ALOGIO (DIT (3) ) 

1937 

AA  -ALOGIO (DIT (4) ) 

1938 

AHE-ALOG10(DIT(5) ) 

1939 

IF(Z-500.)  47,48,48 

1940 

47 

DIT(6)-10.**(-6) 

1941 

48 

AH-ALOGIO (DIT (6) ) 

1942 

AN  -AMAXl (-0. ,  AN) 

1943 

A02-AMAX1 ( -0 . , A02 ) 

1944 

AO  -AMAXl (-0. ,  AO) 

1945 

AA  -AMAXl (-0.,  AA) 

1946 

AHE-AMAXl ( -0 . , AEE) 

1947 

AH  -AMAXl  (-0.,  AH) 

1948 

RETURN 

1949 

c 

1950 

c 

TEMPERATURE  AND  DENSITY  AT  Z-500  KM 

1951 

c 

1952 

90 

S-TX+A2*ATAN(Tl*375.*(l.+4.5E-6*375.»*2.5) /A2) 

1953 

DI (6)-10.** (73.13-39.4*ALOG10 (S) +5 . 5»ALOG10 (S) *ALOG10(: 

1954 

Al-500. 

1955 

IF(Z-500.)  49,60,60 

1956 

C 

1957 

C 

INTEGRATION  OF  EQ.  6  FOR  DENSITY  FOR  Z  125  KM 

1958 

c 

1959 

49 

Al-Z 

1960 

60 

FAl-9. 80665/ ( ( 1 . +A1/6 . 3567 66E+3) **2) 

1961 

FAl-FAl/ (TX+A2*AiAN(Tl* (Al-125.) ‘(1.+4.5E-6* (Al-125.) * 

1962 

Dl-Z 

1963 

IF(Z-500.)  61,62,62 

1964 

61 

Dl-500. 

1965 

62 

FDl-9. 80665/ ( ( 1 . +D1/ 6 . 3567 66E+3) **2 ) 

1966 

FDl-FDl/ (TX+A2*ATAN(T1* (Dl-125 . ) * ( 1 . +4 . 5E-6* (Dl-125 . ) * 

1967 

N-0 

1968 

NINT  -  1 

1969 

PREV-0 

1970 

SONE-  ( Dl  -A1 )  *  ( FAl  +FD1 )  /  2  . 

1971 

91 

N-N  +  1 

1972 

IF  (N-M)  92,92,95 

1973 

92 

NINT  -  2  *  NINT 

1974 

STMO-0 . 

1975 

DEL-(Dl-Al) /FLOAT (NINT) 

1976 

DO  93  I-1,NINX,2 

1977 

Xl-Al+DEL*FLOAT (I) 

1978 

rXl-9. 80665/ { (1.+X1/6.356766E+3) **2) 

1979 

FXl-FXl/ (TX+A2*ATAN (T1* (Xl-125. ) * (1.+4 .5E-6* (Xl-125.) *' 

1980 

93 

STWO-STWO+FXl 

1981 

CUR-SONE+4 . *DEL*STWO 

1982 

IF  (EPS*ABS  (CUR) -ABS  (CUR-PREV)  )  94,95,95 

1983 

94 

PREV-CUR 

1984 

SONE- (SONE+CUR) /4. 

1985 

GO  TO  91 

1986 

95 

R-CUR/3 . 

1987 

n 

1988 

r 

TEMPERATURE  A'  2  500  KM 

1  982 

r 

1998 

TZ-TX+A2*ATAN 'll" ' Z- 12 5 . ) * ( 1 . +4 . 5E- 6* (Z-125. ) **2.5) /A2 

1991 

IF(Z-500.)  63,64.64 

1992 

6  3 

P--P 

1993 

r 

]  994 

r 

density  OF  HYDROGEN  FOR  Z  500  KM 

1995 

r 

1996 

64 

DIT(6)-DI (6) * (S/TZ) *EXP (-EI(6) *R/FK) 

5)/A2)) 


5)/A2)  ) 


5)  /A2) ) 
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1997 

1998 

1999 

2000 
2001 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

2036 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 
204-^ 

2050 

2051 

2052 
2  05  3 
2054 
^055 
2056 
2  0  5' 
2'58 
2059 
206^^ 


GO  TO  56 
END 

S0BRODTINE  JACCH ( Z , PHIR, THET , PH , DH, TH) 

C 

C . , . .  DECLARE  APPROPRIATE  ARGUMENTS  TO  BE  IN  GODLD  EXTENDED .  IF  A 
C  NON-EXTENDED  PARAMETER  IS  DECLARED  EXTENDED,  THE  INTERFACE  MILL 

C  WORK,  ALBEIT  WITH  A  SLIGHT  EXECDTION  OVERHEAD  PENALTY.  L JS . 

C 

COMMON / COM JAC / XLAT, XLONG, SDA, SHA,DY, R, T, EM 

COMMON/ lOTEMP / lOTEMl, IOTEM2, IDG, IDN,DD,XMJD, PHIl, PHI, 

NSAME,RP1,  RDl,  RTl,  SPl,  SDl,  STl,  RDl,  RVl,  SDl ,  SVl , 
$  M  ,  IDA,  lYR,  HI,  PHIlR,THETlR,G,RI,H,CLAT,CLON  , FIO, FlOB, AP , 

$  IHR,MIN,NMORE,DX,HL,VL,DZ, DUMMY (25) 

C 

C  JACCH  CALCULATES  THE  PRESSURE,  DENSITY,  AND  TEMPERATURE  AT  A 

C  POINT  IN  SPACE  ABOVE  90  KM  FOR  A  PARTICULAR  TIME 

C 

C  INPUT 

C  Z  -  HEIGHT  IN  KM 

C  PHIR  -  LATITUDE  IN  RADIANS 

C  THET  -  LONGITUDE  IN  DEGREES  (0  TO  360  DEGREES  TURNING  WESTWARD) 

C  FIO  -  SOLAR  RADIO  NOISE  FLUX  (XE  -  22  WATTS/M**2) 

C  FlOB  -  81-DAY  AVERAGE  FIO 

C  AP  -  GEOMAGNETIC  INDEX 

C  M  -  MONTH  (FOR  YEARLY  MEAN  VARIABLES  M  IS  SET  TO  13) 

C  IDA  -  DAY  OF  MONTH 

C  lYR  »  YEAR 

C  IHR  -  HOUR  OF  DAY  (UNIVERSAL  TIME) 

C  MIN  -  MINUTE  (UNIVERSAL  TIME) 

C  XMJD  =  MEAN  JULIAN  DAY  (SET  EQUAL  TO  ZERO  FOR  ANNUAL  MEAN) 

C  DD  -  DAY  NUMBER  WITH  RESPECT  TO  JAN  0  OF  YEAR  lYR 

C 

C  OUTPUT 

C  PH  -  PRESSURE  IN  UNITS  OF  NT/M* *2 

C  DH  -  DENSITY  IN  UNITS  OF  KG/M**3 

C  TH  -  TEMPERATURE  IN  KELVIN  DEGREES 

C 

C  DD  -  DAY  NUMBER  WITH  RESPECT  TO  JAN  1  OF  YEAR  lYR 

C 

C  REPLACEMENT  OF  SUBROUTINE  VARIABLES  TO  INSURE  NO  CHANGES  IN  THEM 

C 

R  -  0.31 

XLAT  -  PHIR 

XLONG  -  THET 

IF  (M.EQ.13)  GO  TO  50 

C 

C  CALCULATE  SOLAR  DEC.  AND  HOUR  ANGLE 

C 

CALL  TME 

r 

C  EXOSPHERIC  TEMPEPATURE 

C 

CALL  TINF 
GO  TO  7  5 
50  T  -  1000.0 

C  TEMPEPATURE,  riOIEOULAR  WEIGHT,  AND  DENSITY  WITHOUT  SEASONAL 

VARIATIONS 

7'^  CALL  JAC  (Z,  TK,  c:-' 

IF  (M.EQ.13!  G?  TO  300 
YDA  =  365.0 
J1  -  MOD (lYR, 4  ^ 

IF  (Jl.EQ.O)  YDA  =  366.^1 
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2061  Cl  -  S1N((360.  /  YDA)  *  0.0174532925  *  (DD  +  100.0)) 

2062  IF  (PHIR)  80,70,80 

2063  70  C2  -  0.0 

2064  GO  TO  90 

2065  80  C2  -  (SIN, PHIR)  **  2)  *  (PHIR  /  ABS (PHIR) ) 

2066  C 

2067  C  DENSITY  WITH  SEASONAL  VARIATIONS 

2068  C 

2069  90  Z90  -  Z  -  90.0 

2070  DLRHO  -  0.02  *  Z90  *  EXP (-0.045  *  Z90)  *  Cl  *  C2 

2071  DH  -  DH  *  EXP (DLRHO) 

2072  C 

2073  C  MOLECULAR  WEIGHT  WITH  SEASONAL  VARIATION 

2074  C 

2075  IF  (Z  -  120.0)  100,100,150 

2076  100  EM  -  EM  +  0.006  *  Z90  *  Cl 

2077  GO  TO  250 

2078  150  IF  (Z  -  230.0)  200,250,250 

2079  200  DEM  -  EXP(-0. 02424  »  Z90)  *  (0.0316  *  Z90  -  0.0002257  •  Z90  *  Z90) 

2080  EM  -  EM  +  DEM  *  Cl*0.5 

2081  C 

2082  C  TEMPERATURE  WITH  SEASONAL  VARIATIONS 

2083  C 

2084  250  IF  (Z-260.0)  270,300,300 

2085  270  ZllO  -  Z  -  110.0 

2086  DTH  -  -2.291753  ♦  ZllO  +  0.02154336  »  Z110*Z110-  4 . 17 6667 lE-05  * 

2087  $  (ZllO  **  3) 

2088  DTH  -  EXP(-0. 290655  *  SQRT (ABS (ZllO) )) *  DTH 

2089  TH  -  TH  +(DTH  *  Cl  *  C2  *TH)  /  100.0 

2090  C 

2091  C  DENSITY  IN  METRIC  UNITS  AND  PRESSURE  CALCULATED 

2  0  92  C 

2093  300  DH  -  DH  ♦  1000.0 

2094  PH  -((DH  *  8.31432  *  TH)  /  EM)  *  1000. 0 

2095  RETURN 

2096  END 

2097  SUBROUTINE  NORMAL (D1 , D2 ) 

2098  C . PRODUCES  2  RANDOM  NUMBERS,  Dl,  D2,  PICKED  FROM  A  NORMAL  DIST. 

2099  C  WITH  ZERO  MEAN  AND  UNIT  VARIANCE 

2100  REAL  L 

2101  LOGICAL  OP  ,  RST  ,  HLD  ,  RT  ,  ATRM  ,  ICEN  ,  MDAT 

2102  COMMON  /RTCDAT/  OP  ,RST  ,  HLD  ,  RT  ,  ATRM  ,  ICEN  ,  MDAT 

2103  C 

2104  C....  MODIFIED  TO  OUTPUT  ZERO  WHEN  RESET  FLAG  IS  TRUE.  THIS  AVOIDS 

2105  C  OUTPUT  BIASES  INTRODUCED  BY  UNCHARACTERISTIC  LARGE  STEPS 

2106  C  INTRODUCED  AT  PROGRAM  INITIALIZATION  TIME  OR  WHEN  ICS  CHANGE. 

2107  C 

2108  C....  MODIFIED  1/10/90  L  SCHILLING  NASA/ADFRF . 

2109  C 

2110  50  CONTINUE 

2111  C 

2112  X  -  RAND  (0) 

2113  y  -  2*RAND(0)  -  1 

2114  C 

2115  XX  -  X**2 

2116  YY  -  Y**2 

211"  S  -  XX  *  YY 

2118  IF  (S.GT.1.01  G?  TO  50 

211''-  C 

2120  51  CONTINUE 

2121  C 

2122  L  -  SQRT (-2 .0*ALOG(RAND (0) ) ) /S 

2123  C 

2124  Dl  -  (XX-YY)'^L 
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2125  D2  -  2.0*X*Y*L 

2126  C 

2127  IF(RST)  THEN 

2120  Dl-0.0 

2129  D2-0.0 

2130  ENDIF 

2131  C 

2132  RETURN 

2133  END 

2134  S0BRODTINE  PDT0V'  (PSP,  DSP,  TSP,  CLAT,  CLON,  IH,  PS,  DS,  TS, 

2135  $  DPX,  DPY,  DTX,  DTY, DP2X, DP2Y, DPXY) 

2136  C 

2137  C....  DECLARE  APPROPRIATE  ARGUMENTS  TO  BE  IN  GOULD  EXTENDED.  IF  A 

2138  C  NON-EXTENDED  PARAMETER  IS  DECLARED  EXTENDED,  THE  INTERFACE  KILL 

2139  C  WORK,  ALBEIT  WITH  A  SLIGHT  EXECUTION  OVERHEAD  PENALTY.  L JS . 

2140  C 

2141  C . INTERPOLATES  STATIONARY  PERTURBATIONS  ON  LATITUDE  AND  LONGITUDE 

2142  C  AT  HEIGHT  IH 

2143  DIMENSION  PSP ( 8 , 10 , 12 ) , DSP (8 , 10 , 12) , TSP ( 8 , 10, 12 ) 

2144  IF  (IB.T.T.52)  GO  TO  10 

2145  IF  (IH.Gr.84)  GO  TO  20 

2146  C  HEIGHT  INDEX  K 

2147  K  -  ( (IH+4) /8)  -  4 

2148  GO  TO  30 

2149  10  K  -  (IH-20) /lO 

2150  GO  TO  30 

2151  20  K  -  8 

2152  30  XLON  -  CLON 

2153  IF  (CLON. LT. 10.)  XLON  -  360.  +  CLON 

2154  C  LOWER  LONGITUDE  INDEX  J 

2155  J  -  INT((XLON  +  20.) /30.) 

2156  C . DLON  -  RELATIVE  LONGITUDE  DEVIATION  FROM  CORNER  REFERENCE  LOCATION 

2157  DLON  -  (XLON  -  30. *J  +  20.)/30. 

2158  C  UPPER  LONGITUDE  INDEX  JP 

2159  JP  -  J+1 

2160  IF  (JP.GT.12)  JP-1 

2161  C  LOWER  LATITUDE  INDEX  I 

2162  I  -  1NT((CLAT  +  110.)/20.) 

2163  C  UPPER  LATITUDE  INDEX  IP 

2164  IP  -  I+l 

2165  if  (IP.GT.lO)  IP-10 

2166  C . DLAT  -  RELATIVE  LATITUDE  DEVIATION  FROM  CORNER  REFERENCE  LOCATION 

2167  DLAT  -  (CLAT-20.*!  +  110.)/20. 

2168  C  PRESSURE  LAT-LON  INTERPOLATION 

2169  PS-PSP  (K,  I,  J)  +  (PSP  (K,  IP,  J)  -PSP  (K,  I,  J)  )  *DLAT+(PSP  (K,  I,  JP)  -PSP  (K,  I,  J 

2170  1)  )  *DLON+  (PSP  (K,  IP,  JP)  -PSP  (K,  I,  JP)  -PSP  (K,  IP,  J)  +PSP  (K,  I,  J)  )  *DLAT* 

2171  2DLON 

2172  C  DENSITY  LAT-LON  INTERPOLATION 

2173  DS-DSP  (K,  I,  J)  i  (DSP  (K,  IP,  J)  -DSP  (K,  I,  J)  )  *DLAT+  (DSP  (K,  I,  JP)  -DSP  (K,  I,  J 

2174  1)  )  ♦DLON+  (DSP  (K.  IF,  JP)  -DSP  (K,  I,  JP)  -DSP  (K,  IP,  J)  +DSP  (K,  I,  J)  )  *DLAT* 

2175  2DLON 

2176  C  TEMPERATURE  LAT-LON  INTERPOLATION 

2177  TS-TSP  (K,I,J)  +  (TSF(K,IP,J)  -TSP  (K,  I,  J)  )  *DLAT+  (TSP  (K,  I,  JP)  -TSP  (K,  I,  J 

2178  1)  )  ■•■DLON+  (TSP  (K,  IF  ,  JP)  -TSP  (K,  I,  JP)  -TSP  (K,  IP,  J)  +TSP  (K,  I,  J)  )  *DLAT* 

21“’?  2DLON 

2180  C . DFX  -  DF  DX  FCF  ---LOSTROPHIC  WINDS 

2181  DPX  -  (PSF  (K,  :  .  7!  -  FSF(K,I,JF))  ,  6. 

2102  DPX  -  DFX  '  !FSF  >K,  IF,  J)  -  PSP  (K,  IF  ,  JF )  )  .  6  .  -  DFX)  -"DLAT 

2183  . DFY  -  DF.'DY  FCF  3EOSTP.OPHIC  WINDS 

2  184  DPY- (FSF (K,  IE  ,  7  -FSF (K,  I , J) )  ,  4 . 

2185  DFY  -  DFY  +  '  FSF  ’  F  .  IF  ,  JF  )  -  FSF  (K,  I ,  JF)  )  .  4  .  -  DFY)  *DLON 

2186  C . DTX  -  DT/DX  FOR  THERMAL  WINDS 

FIS"  DTX  =  (TSP(K,I,J)  -  TSP(K,I,JF))  /  6. 

2188  DTX  -  DTX  +  ( ( TSF ( K . IP , J)  -  TSP (K, IP , JP) ) /6 .  -  DTX) *DLAT 


248 


CHR/91-2750 


218  9  C . DTY  -  DT/DY  FOR  THERMAL  WIKDS 

2190  DTY  -  (TSP(K,IP,J)  -  TSP{K,I,J))  /  4. 

2191  DTY  -  DTY  +  ( (TSP (K, IP , JP )  -  TSP (K, 1, JP) ) /4 .  -  DTY) *DLON 

2192  IF  (IP.GT.9)  GO  TO  90 

2193  DPXY  -  (PSP(K,IP,J)  -  PSP(K,IP,JP)  -  PSP(K,I,J)  +  PSP ( K, I , JP) ) /24 . 

2194  JX-J-1 

2195  IF  (JX.LT.l)  JX  -  JX  +  12 

2196  lY  -  I  -  1 

2197  DP2X  -  (PSP(K,I,JX)  -  PSP (K, I , JP) ) /6 . 

2198  DP2X  -  DP2X  +  ( (PSP (K, IP , JX)  -  PSP (K, IP, JP) ) /6 .  -  DP2X) *DLAT 

2199  DP2Y  -  (PSP(K,IP,J)  -  PSP  (K,  lY,  J)  ) /4  . 

2200  DP2Y  -  DP2Y  +  ( (PSP (K,  IP, JP)  -  PSP (K, lY, JP) ) /4 . -  DP2Y) »DLON 

2201  RETURN 

2202  90  DP2X  -  0. 

2203  DP2Y  -  0. 

2204  DPXY  -  0. 

2205  RETURN 

2206  END 

2207  SUBROUTINE  PERTRB 

2208  C>> 

2209  REAL* 8  XCNT, PNDLX, RNDSX, RNTLX, RNTSX, RNULX, RNUSX, RNVLX, RNVSX 

2210  CC»IMON  /PLTOUT/  EWLS  ,  HWLL  ,  VDS  ,  VTS  ,  VUS  ,VDL  ,  VTL 

2211  .  VOL  ,RDS  ,RTS  ,  RVS  ,  RDL  ,  RTL  ,  RVL 

2212  .  RNDL  , RNDS  , RNTL  , RNTS  , RNUL  , RNOS  , RNVL  , 

2213  .  RNVS  ,RNDLM  ,  RNDSM  ,  RNTLM  ,  RNTSM  ,  RNOLM  ,  RN  JSM  , 

2214  .  RNVLM  ,RNVSM 

2215  C>> 

2216  COMMON/IOTEMP/IOTEMl, IOTEM2, IDG,  lUN  , DD, XMJD, PHIl , PHI , NSAME, 

2217  $PL1,  DLl, TLl, SPLl, SDLl, STLl, ULl, VLl, SOLI, SVL1,MN, IDA, lYR, 

2218  1PH,PLAT, 

2219  *  PLON,G,R,CH,CLAT,CLON,F10,F10B,AP,IHR,MIN,NMORE,DX,HL,VL,DZ, 

2220  2B, EPS, lOPP, LOOK, lET, FLAT, PSl , DSl , TSl , USl , VSl , SPSl , SDSl , 

22  21  3STS1, SUS1,SVS1, UDSl, VDSl, UDll, VDLl,  DDS2,  VDS2 ,  UDL2 ,  VDL2 , DOMMY3 ( 1 ) 

2222  COMMON  /COMPER/SP2 , SD2 , ST2 , P2 , D2 , T2 , U2 , V2 , SU2, SV2 , CP , 

2223  1PS2,DS2,TS2,US2,VS2, 

2224  2PL2,DL2,TL2,UL2,VL2, 

2225  3SPS2,SDS2,STS2,SDS2,SVS2, 

2226  4SPL2,SDL2,STL2,SDL2,SVL2 

2227  COMMON/WINCOM/  DUM ( 11) , T, DUMMY2 ( 9) 

2228  C>> 

2229  DATA  XCNT, RNDLX, RNDSX, RNTLX, RNTSX, RNULX, RNUSX, RNVLX, RNVSX  /9*0.0/ 

2230  C» 

2231  DLON  »  ABS (CLON-PLON) 

2232  PI  -  3.1415927 

2233  IF(DLON.GT.PI)  DLON  -  2.*PI  -  DLON 

2234  DX  -  R*SQRT ( (CLAT-PLAT) **2  +  (COS (CLAT) *( DLON  ))**2) 

2235  C . DX  IS  HORIZONTAL  DISTANCE  BETWEEN  POSITIONS  PLAT,PLON  AND  CLAT,CLO 

2236  AH  -  900. 

2237  BH  -  6. 

2238  C  HORIZONTAL  WAVELENGTH,  KM 

223?  HLL*  AH  +  BH*CH 

2240  O'- 

2241  HWLL=HLL 


2242  C> ' 


224:* 

nPHl  = 

(  90  .  - 

2  2  44 

DHGT  1= 

0.2  2  * 

22  45 

IF  (DHGT.GT.5 

224^ 

VDS  » 

(11.0  - 

2  2  4"^ 

VTS  = 

(3.0  * 

22  4  9 

VUS 

(6.2  - 

2  24  ^ 

VDL  -= 

(20.  •:  - 

2  2 

VTL  - 

7 . 3*DHG 

225  1 

VUL  “= 

(31.2  - 

*7  C  -■ 

HLS  -= 

20 .  *  . 

AES  'CLAT)  ,  0.1717453293!  **2 
0  .  00259*  (:5URTIABS  (CH!  **3'  > 
'  '.ICX  =  5 
2  .  :':2E-4*DF3I)  *DHGT 
5 . i46E-4*DFHI) *DHGT 
2  .  •-::5E-4*DFHII  *DHGT 
1  .  ;-46E-3*PFHII  *rHGT 
T 

3 . 5C3E-3*DPHI) *DHGT 
C125*CH*CH 
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2253 

IF (HLS .GT . 400 . )  ELS  -  400. 

2254 

c>> 

2255 

HWLi-HLS 

2256 

c» 

2257 

HLS  -  (DX/HLS) »*2 

2258 

HLL  -  {DX/H-i.)**2 

2259 

RDS-SQRT(HLS+(D2/VDS)  **•2) 

2260 

IF(RDS.LE.100.)GO  TO  10 

2261 

RDS-0. 

2  2  62 

GO  TO  20 

2263 

10 

RDS-CORRELIRDS) 

2264 

20 

RTS-SQRT (HLS+ (D2/VTS) **2) 

2265 

IF (RTS. LE. 100.) GO  TO  30 

2266 

RTS-0. 

2267 

GO  TO  40 

2268 

30 

RTS-CORREL(RTS) 

22C9 

40 

RVS-SQRT (HLS+ (DZ/VUS) **2) 

2270 

IF(RVS.LE.100. )GO  TO  50 

2271 

HVS-0 . 

2272 

GO  TO  60 

"173 

50 

RVS-CORREL(RVS) 

2274 

60 

RDL-SQRT  (HLL+  (DZ/VDL)  **2) 

2275 

IF(RDL.LE.100.)GO  TO  70 

2276 

RDL-0 . 

:277 

GO  TO  00 

2278 

70 

RDL-CORREL (RDL) 

2279 

8C 

RTL-SQRT(HLL+{D2/VTL) **2) 

22  80 

IF(RTL.LE.100.)GO  TO  90 

2281 

RTL-0 . 

2202 

GO  TO  100 

2283 

90 

RTL-CORREL(RTL) 

2234 

100 

RVL-SQRT (HLL+ (DZ/VUL) **2) 

2''8S 

IF(RVL.LE. 100. ) GO  TO  110 

2286 

RVL-0 . 

2287 

GO  TO  120 

2288 

110 

RVL-CORREL (RVL) 

2289 

120 

CONTINOE 

2290 

CALL  CORLAT (AS, BS, CS, DS,  ES 

^791 

1  SDS2, STSl, STS2, SDSl, SOS2, 

2292 

2RVS) 

z293 

CALL  CORLAT (AL, BL, CL, DL, EL 

2294 

1  SDL2,STL1,STL2,SUL1,SUL2, 

2295 

2RDL,  RTL,  RVL) 

2296 

CALL  NORMAL (ZD, ZT) 

2297 

c>> 

2299 

XCNT-XCNT+1.0 

22?'J 

RNDS-ZD 

270f" 

RNTS-ZT 

2301 

RNDSX-RNDSX+RNDS 

2  3  02 

RlITSX-RNTSX+Rl.'TS 

2  3  03 

RNDSM-RNJSX/XCNT 

2  30 

PJ.’TSM-RNTSX/XCNT 

2305 

c.-> 

£  5  0  6 

DS2=AS*DS1+B3*Z2 

2  " 

TS2=CS»T£l+L'C'r.5:  -i5S*ZT 

7  ^’.jp 

FS2*=D.^2-^TSr 

;  3 

^'ALL  VOPHhL  fZl  . 

2311 

111  2 

p  5  =  2  T 

^71  ' 

Pli  r;  S  X = S  X  PJ  r '  2 

2^14 

PiJ  V  S  X  *  PJ^  V  S  X  Pl’V  S 

2  315 

PUUSM=PJ^USX/XCNT 

2  :m 

PUVSM*P^VSX/XCNT 
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2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 
2  3  62 
2  3  6? 
2364 
2  3  65 

2366 

2367 
2  3  68 
236? 
2  370 
237  1 


237  4 
2  3  7  5 

~  3  ~  c 

^  -T  ^ 

2  ’7P 
2  ?7? 
2  3  8  ? 


C» 

DS2-FS*US1+GS*DS2+HS*ZD 
VS2-AIS*VS1+AJS*DS2+AKS*ZT 
CALL  NORMAL (ZD, ZT) 

C» 

RNDL-ZD 

RNTL-ZT 

RNDLX-RNDLX+RNDL 

RNTLX-RNTLX+RNTL 

RNDLM-RHDLX/XCNT 

RNTLM-RNTLX/XCNT 

C» 

DL2-AL*DL1+BL*ZD 

TL2-CL*TL1+DL*DL2+EL*ZT 

PL2-DL2+TL2 

CALL  NORMAL (ZD, ZT) 

C>> 

RNDL-ZD 

RNVL-ZT 

PNOLX-RNDLX+RNDL 

RNVLX-RNVLX+RNVL 

RHDLM-RNDLX/XCNT 

RNVLM-RNVLX/XCNT 

C>> 

DL2-FL*DLl-t'GL*DL2+HL*ZD 

\D,2-AIL*VL1+AJL*DL2+AKL*ZT 

P2-PS2+PL2 

D2-DS2+DL2 

T2=TS2+TL2 

IF(P2.LT.-0.9)P2  -  -0.9 

IF(D2.LT.-0.9)D2  -  -0.9 

IF(T2.LT.-0.9)T2  -  -0.9 

D2-US2+DL2 

V2-VS2+VL2 

DDL1-DDL2 

ODS1-DDS2 

VDL1-VDL2 

VDS1-VDS2 

RETURN 

END 

SUBROUTINE  PHASE (D1 , XI , D2 , X2 , D , X) 

C 

C _  DECLARE  APPROPRIATE  ARGUMENTS  TO  BE  IN  GOULD  EXTENDED.  IF  A 

C  NON-EXTENDED  PARAMETER  IS  DECLARED  EXTENDED,  THE  INTERFACE  WILL 

C  WORK,  ALBEIT  WITH  A  SLIGHT  EXECUTION  OVERHEAD  PENALTY.  L JS . 

n 

PER  -  870. 

IF  (X2-X1)  20,10,20 
10  D  =  D1 
PXTURN 
20  DA  -  D1 
DB  =  D2 
FER2  -  PEP./2. 

IFfABS  (DE-DA)  .LE.PEP,2)GO  TO  30 
IF  (DA.LT.PEP.2!  DA  -  DA  +  PEP 
IF  (DB.LT.FEF,2)  DE  =  DB  +  PEP 
30  DA  -  DA  4-  (DE  -  DA) (X  -  XI  )  (X2  -  XI  > 

IF  (DA.GT.PEFi  DA  =  DA  -  PEP 

IF  (DA.  LT  .  0  .  )  DA^DA-^PEP 

C  =  DA 

PETURN 

EMD 

SUBROUTINE  QBOGEN 

G . COMPUTES  OBC  VALUES  P3, DQ, TU, UQ, VQ  AT  HEIGHT  H,  LATITUDE  PHI 
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2381  C  ON  JULIAN  DAY  XMJD  FROM  ARRAYS  OF  AMPLITUDES  PAQ,DAQ,TAQ, 

2382  C  DAQ,VAQ  AND  PHASES  PDQ, DDQ, TDQ, DDQ, VDQ . 

2383  COMMON/IOTEMP/IOTEMl, IOTEM2, lUG, lUN, DDD,  XMJD, PHIl, PHI, 

2384  .  NSAME.RPl,  RDl,  RTl,  SPI,  SDl,  521,  RUl,  RVl ,  SUl,  SVl , 

2385  $  MN,  IDA,  lYR,  HI,  PHIIR, THETIR, G, RI, B, PHIR, THETR, FIO, FlOB, AP , 

2386  $  IHR,MIN,NMORE,DX,HL,VL,DZ,DUMMY2(25) 

2387  COMMON  /PDTCCW/ 

2388  .  IU4,MONTH,IOPR,PG(18,19) ,TG(18,19) ,DG(18,19) 

2389  .  , PSP (8, 10, 12) 

2390  .  , DSP (8, 10, 12) ,TSP (8, 10, 12) , PAQ(17, 5) ,DAQ(17, 5) , TAQ(17, 5) , 

2391  .  PDQ  (17, 5)  ,  DDQ  (17, 5)  ,  TDQ  (17,  5)  ,  PR (20, 10)  ,  DR (20, 10)  ,TR(20,  10)  , 

23  92  .UAQ(17, 5)  ,  VAQ(17, 5)  ,UDQ(17,5)  ,  VDQ  (17,  5)  ,  DR  ( 25 , 10)  ,  VR  (25 ,  10) 

2393  .  ,  PQ,  DQ,  TQ,  UQ,  VQ 

2394  $  , PA,DA, TA, DA, VA, lOPQ, DUMMY(2250) 

2395  IF  (XMJD. GT.O. AND. lOPQ.EQ.l)  GO  TO  10 

2396  C  SETS  QBO  VALDES  TO  ZERO  FOR  ANNUAL  MEAN 

2397  PQ  -0. 

2398  DQ-0. 

2399  TQ-0. 

2400  DQ-0. 

2401  VQ-0. 

2402  RETURN 

2403  C  LOWER  HEIGHT  INDEX 

2404  10  IH  -  INT( (H-5.) /5.) 

2405  IF  (IH.LT.l)  Ifl-1 

2406  C  UPPER  HEIGHT  INDEX 

2407  IP  -  IH  +  1 

2408  IF  (IP.GT.17)  IP  =  17 

2409  PHA  -  ABS(PHI) 

2410  C  LOWER  LATITUDE  INDEX 

2411 

2412  JL  -  INT((  PHA  +  10.)/20.) 

2413  C  UPPER  LATITUDE  INDEX 

2414  JP  -  JL  +  1 

2415  IF  (JL.LE.O)  JL-1 

2416  IF  (JP.GT.5)  JP-5 

2417  C  JULIAN  DAY  FOR  JAN  0,  1966 

2418  XMJDO  =  2439126 

2419  C  TIME  RELATIVE  TO  JAN  0,  1966 

2420  TMJD  -  XMJD-XMJDO 

2421  C  2*PI/PERIOD, PERIOD  -  870  DAYS 

2422  PER  -  870. 

2423  TP  -  6.2831853/PER 

2424  C  LOWER  HEIGHT 

2425  HI  -  5.  +  5. *18 

2426  C  LOWER  LATITUDE 

2427  PHIJ  -  20.*JL  -  10. 

2428  C  UPPER  LATITUDE 

242?  PHIP  »  20.*JP-1C. 

2430  C . INTERPOU^TES  QBO  F.D,T  AMPLITUDE  ON  LATITUDE  AT  LOWER  HEIGHT 

2431  CALL  INTERZ (PAQ'IH, JL) ,DAQ(IH, JL) ,TAQ(IH, JL) , PHI J, FAQ ( IH, JP ) , 

2432  IDAQdH,  JP)  ,  TAQ  (IH,  .JP)  ,  PHIP ,  PAl ,  DAI ,  TAl ,  PHA) 

2433  C  UPPER  HEIGHT 

2434  HF  -  5. +5. *18 

2435  C . INTERPOLATES  QEO  ?,D,T  AMPLITUDE  ON  LATITUDE  AT  UPPER  HEIGHT 

2436  CALL  INTERZ  (FA:  CP  .  JL)  ,  DAQ  (IF  ,  JL)  .  TAQ  (IF  ,  JLl  .  FHI  J,  FAQ  ( IF  .  JI  )  , 

24  ?  "  2  DAQ  ( IF  ,  JF)  ,  TA  (  '  2?  .  JF  i  ,  PHIF,  FA2,  DA2,  TA2  ,  FHAt 

?4  3fi  ^ . INTERPOLATES  2  =  ?  F.D.T  AMPLITUDE  OJI  HEIGHT  AT  LATITUDE  FHI 

2433  CALL  INTERZ 'F A1 . CAl , TAl , HI, FA2 , DAI , TA2 . HF , PA, DA, TA, Hi 

2  4  4':  '■ . INTERPOLATES  'CB  '  F  .  D  ,  T  ,  U ,  V  PHASE  ^iN  LATITUDE  AND  HEIGHT 

2  44  1  CALL  PHASE  (FDQ  (IH  .  JL)  ,  PHIJ,  FDQ  (IH,.tF)  ,FHIF,FD1,FHA) 

2  442  CALL  PHASE  (DD'Q  ( IH  ,  JL)  ,  PHI  J,  DDQ  ( IH,  JP ),  PHIP  ,  DDl ,  PHA) 

244^  CALL  PHASE (TDQ (IH. JL) , PHI J, TDQ (IH, JP) , PHIF, TDI , PHA) 

2444  CALL  PHASE ( PDQ ( IF , JL) , PHI J, FDQ ( IP , JP) , PHIP , PD2 , PHA) 
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2445  CALL  PHASE (DDQ (IP , JL) , PHI J, DDQ ( IP, JP) , PHIP, DD2 , PHA) 

2446  CALL  PHASE (TDQ ( IP , JL) , PHI J, TDQ ( IP, JP) , PHIP, TD2 , PHA) 

2447  CALL  PHASE (PDl , HI , PD2 , HP , PD, H) 

2448  CALL  PHASE (DDl , HI , DD2 , HP , DD,  H) 

2449  CALL  PHASE (TDl , HI , TD2 , HP , TD, H) 

2450  CALL  PHASE (DDQ (IH, JL) , PHI J, DDQ (IH, JP) , PHIP, DDl , PHA) 

2451  CALL  PHASE(VDQ(IH, JL) ,PHIJ,VDQ(IH,JP) , PHIP, VDl, PHA) 

2452  CALL  PHASE (DDQ (IP , JL) , PHI J, DDQ ( IP, JP) , PHIP , DD2 , PHA) 

2453  CALL  PHASE (VDQ (IP , JL) , PHI J, VDQ ( IP , JP) , PHIP , VD2 , PHA) 

2454  CALL  PHASE (DDl , HI , DD2 , HP , DD, H) 

2455  CALL  PHASE (VDl , HI , VD2 , HP , VD, H) 

24  56  C . INTERPOLATES  QBO  WIND  AMPLITDDE  ON  LATITDDE  AT  LOWER  HEIGHT 

2457  CALL  INTERW (DAQ (IH, JL) , VAQ (IH, JL) , PHI J, OAQ (IH, JP ) ,VAQ(IH, JP) , 

2458  5PHIP,DA1, VAl.PHA) 

2459  C . INTERPOLATES  QBO  WIND  AMPLITDDES  ON  LATITDDE  AT  DPPER  HEIGHT 

2460  CALL  INTERW (DAQ ( IP , JL) , VAQ(IP, JL) , PHI J, DAQ(IP, JP) , VAQ(IP, JP) , 

2461  6PHIP,DA2,VA2,PHA) 

2462  C . INTERPOLATES  QBO  WIND  AMPLITDDES  ON  HEIGHT  AT  LATITDDE  PHI 

2463  CALL  INTERW (DAI, VAl , HI , DA2 , VA2 , HP , DA, VA, H) 

2  4  64  C . EVALDATES  QBO  VALDES  FROM  INTERPOLATED  AMPLITDDES  AND  PHASES 

2465  PQ-PA*COS(TP* (TMJD-PD) ) 

2466  DQ-DA*COS (TP* (TMJD-DD) ) 

2467  TQ-TA*COS (TP* (TMJD-TD) ) 

2468  DQ-DA*COS (TP* (TMJD-DD) ) 

2469  VQ-VA*COS (TP* (TMJD-VD) ) 

2470  RETDRN 

2471  END 

2472  FDNCTION  RAND(XO) 

2473  C . PRODDCES  A  RANDOM  NDMBER  FROM  A  DNIFORM  DIST.  FROM  0  TO  +1 

2474  INTEGER  XO 

2475  DODBLE  PRECISION  X 

2476  IF  (XO.NE.O)  X  -  XO/262144. 

2477  X  -  X*509 

2478  X  -  X  -  INT(X) 

2479  RAND  -  X 

2480  RETORN 

2481  END 

2482  SDBRODTINE  RIG 

2483  COMMON/IOTEMP/IOTEMl, IOTEM2, IDG, IDN, DD, XMJD , PHIl , PHI , 

2484  .  NSAME,PI>1,  RDl,  RTl,  SPl,  SDl ,  STl,  RDl,  RVl,  SDl,  SVl , 

2485  $  MN,  IDA,  lYR,  HI,  PHIIR,  THETIR,  G,  K  ,  8  ,  PHIR,  THETR,  FIO ,  FlOB,  AP  , 

2486  $  IHR, MIN, NMORE,DX.HL,VL,DZ,B, EPS, lOPP, LOOK, IET,GLAT, 

2487  IRPIS, RDIS, RT1S,RD1S, RVIS, SPIS, SDIS, STIS, SDIS, SVIS, 

2488  2DDS1 , VDSl , DDLl , VDLl , DDS2 , VDS2 , DDL2 , VDL2 , DDMMY3 (1) 

2489  C . GRAVITY  G  AT  H,  LATITDDE  PHIR  (RADIANS) 

2  4  90  C . RADIUS  RI  FROM  CENTER  OF  EARTH  TO  HEIGHT  H 

2491  C . B  -  POLAR  EARTH  RADIOS,  EPS  -  ECCENTRICITY 

2492  CPHI2  -  COS (PHIR)  **  2 

2493  C  EARTH  RADIUS 

2494  RI  -  B  /  SQRT(1.  -  EPS  *  CPHI2; 

21:3  C  C2PHI  -  COS(2*FKIP.) 

2496  C2PHI  -  2.  *  CFHI2  -  1. 

2497  C  C4PHI  -  COS(4*FHIR) 

2498  C4FHI  =  8.  ♦  CFEI2  *  (CFHI2  -  1.)  +  1. 

2  4  99  C . G  AT  SURFACE 

2500  G  =  9.80616  *  .  -  0.0026373  *  C2FHI  +  0.0000'^5?  C2FHI  *  C2FHI) 

2  5  Cl  C . EFFECTIVE  FAC  I  US 

2502  RE  -  2  .  *  G  '  '  3  . ''■85  4  62E-3  -t  C2FHI  *  2.27E-6  -  C4FHI  *  2.E-9) 

2503  G  AT  HEIGHT  R 

2  504  G  -  G  '  (1  .  '  H  RE'  I  *■•  2 

2  505  '•  RADIUS  AT  HEIGHT  H 

25r'6  RI  -  RI  +  H 

2507  end 

2508  SUBROUTINE  RTEFF  ( H , PHI , PR, DR, TR, P, D , T) 
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2509  C 

2510  C . COMPOTES  RANDOM  PERTURBATION  STANDARD  DEVIATIONS  P,D,T  AT 

2511  C  HEIGHT  H  (KM),  LATITUDE  PHI(DEGREES)  FROM  SIGMA  ARRAYS 

2512  C  PR, DR, AND  TR 

2513  C 

2514  C....  DECLARE  APPROPRI:  li,  AAGol-ENTS  7:  DC  IN  00010  F,XTF,NDED.  IF  A 

2515  C  NON-EXTENDED  PARAMETER  IS  DECLARED  EXTENDED,  THE  INTERFACE  KILL 

2516  C  WORK,  ALBEIT  WITH  A  SLIGHT  EXECUTION  OVERHEAD  PENALTY.  L JS . 

2517  C 

2518  DIMENSION  PR (20, 10) , DR (20 , 10) , TR (20, 10) 

2519  C . I  -  LOWER  HEIGHT  INDEX 

2520  IF  (H.LT.95.)  I  ■=  INT  (  (H-20 . ) /5 . ) 

2521  IF  (H.GE.95.)  I  -  14  +  INT ( (H-80 . ) /20 . ) 

2522  IF(I.LT.l) I-l 

2523  IP  -  I+l 

2524  IF  (IP.GT,20)  IP  -  20 

2525  C  LOWER  LATITUDE  INDEX 

2526  J  -  INT((PHI  +  110.) /20.) 

2527  JP  =  J+1 

2528  IF  (JP.GT.IO)  JP-10 

2529  IF  (I.GT.14)  GO  TO  10 

2530  C  LOWER  HEIGHT  FOR  PR,TR,DR  ARRAYS 

2531  Zl-5.*I+20. 

2532  GO  TO  20 

2533  10  Zl-20. * (I-IO) 

2534  20  IF  (IP.GT.14)  GO  TO  30 

2535  C  UPPER  HEIGHT  FOR  PR, DR, TR  ARRAYS 

2536  Z2-5.*IP+20. 

2537  GO  TO  40 

2538  30  Z2-20.»(IP-10) 

2539  40  PHIl— 110.+20.*J 

2540  PHI2  — 110.+20.*JP 

2541  C . INTERPOLATE  ON  LATITUDE  AT  LOWER  HEIGHT 

2542  CALL  INTERZ (PR ( I , J) , DR (I , J) , TR ( I , J) , PHIl , PR ( I , JP ) , DR ( I , JP) , 

2543  1  TR(I, JP) ,PH12,P1,D1,T1,PHI) 

2  54  4  C . INTERPOLATE  ON  LATITUDE  AT  UPPER  HEIGHT 

2545  CALL  INTERZ  (PR  (IP,  J)  ,DR(IP,  J)  ,TR(IP,  J)  ,  PHIl ,  PR  ( IP,  JP)  ,DR(IP,  JP)  , 

2546  1  TR(IP, JP) ,PHI2,P2,D2,T2,PHI) 

2547  C . INTERPOLATION  ON  HEIGHT  USING  LATITUDE  INTERPOLATED  VALDES 

2548  CALL  INTERZ (Pi , D1 , T1 , Z1 , P2 , D2 , T2 , Z2 , P , D, T, H) 

2549  RETURN 

2550  END 

2551  SUBROUTINE  SCIMOD(NPOP) 

2552  C . COMPUTES  VALUES  P,D,T, D,V  AND  SHEAR  DUH, DVH  FROM  INPUT  AND 

2553  C  ARRAYS  IN  COMMON  PDTCOM.  INPUT  TO  SCIMOD  IS: 

2554  C  G  -  GRAVITY  AT  POSITION  RI  -=  RADIUS  AT  HEIGHT  H 

2555  C  PHIR  -  LATITUDE  (RADIANS)  THETR  -  LONGITUDE  (RADIANS) 

2556  C  FIO  -  F10.7  SOLAR  FLUX  FlOB  -  MEAN  F10.7  FLUX 

2557  C  AP  -  SOLAR-GEOMAGNETIC  A  SUB  P  INDEX 

2558  C  MN/IDA/IYR  -  DATA  (lYK  -  FULL  YEAR-1900) 

255?  ''  IHR'MIN  -  TIME  HI  -  PREVIOUS  HEIGHT 

2560  C  PHIIR  -  PREVIOUS  LATITUDE  THETIR  -  PREVIOUS  LONGITUDE 

2561  C  RF1,RD1,RT1  =  PREVIOUS  RANDOM  PERTURBATIONS 

2562  SF1,SD1,ST:  =  PPEVIOUS  RANDOM  STANDARD  DEVIATIONS  (SIGMAS) 

2  56?  ^  RDl.RVl  =  F?Z'’IOUS  RANDOM  WINDS 

2  5  64  O'  SUl.SVl  FrE"rO'’:'S  RANDOM  WIND  SIGMAS 

2565  COMMON /IFRTF  IF?! 

2  566  COMMON/IOTEMF /ICIEMl , IOTEM2, lUG,  ION  . DD , XMJD , PHI 1 . PH  I , 

256'  .MSAME,  RPIL,  PXII.  F-IIL.SFIL,  SDIL,  STIL,  PUIL.  FVIL,  SOIL,  SV  1  L , 

2  56P  $  MN,  IDA,  lYF.  HI.  FHIIP  ,  THETIF  .  Q,  P  I  ,  H  ,  FHIF  ,  THETF  .  FI  s  ,  F  1  ,  AF  . 

2^6^  .  IHP  ,  MIN,  NMCFE  .  DX ,  HL,  VL,  DZ  .  E ,  EPS,  ir.pF  ,  LOOP,  lET,  FLAT, 

2'^  IRPIS,  RDIS,  RTiS  ,  P'-'iS,  RVlS ,  SPIS  ,  SDlS ,  STIS ,  SUIS  ,  SVIS  , 

2  6  - )  2UDS1 , VDSl , DDLl , VTLI . UDS2 , VPS2 , UDL2 , VDL2 , DUMMYS ( 1 ) 

2"":  COMMON  ,''PDTCOM,' 
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2573  .  I04,M0NTH, I0PR,PG(18, 19) ,TG(18, 19) ,DG(18, 19) 

2574  .  , PSP (8, 10, 12) 

2575  .  , DSP (8, 10, 12) , TSP ( 8 , 10 , 12 ) ,PAQ(17, 5) ,DAQ(17, 5) ,TAQ(17, 5) , 

2576  .  PDQ(17, 5) ,DDQ(17,5) , TDQ (17, 5) , PR(20, 10) , DR (20, 10) ,TR(20, 10) , 

2577  .0AQ(17, 5) , VAQ(17,5) ,DDQ(17,5) , VDQ(17 , 5) , DR(25, 10) , VR(25, 10) ,  PQ 

2578  .  ,DQ,TQ,DQ,VQ,PQA,DQA, TQA,OA,VA, lOPQ, 

257  9  1PLP(25,  10)  ,  DLP  (25, 10)  ,  TLP  (25,10)  , 

2580  2DLP(25, 10) , VLP (25, 10) , DDL (25, 10) , 

2581  3VDL(25,10) ,ODS(25,10) ,VDS(25,10) 

2582  COMMON  /C4  / 

2583  .  GLAT(16) ,GLON(16) ,NG,P4D(16,26) ,D4D(16,26) ,T4D(16,26) , 

2584  .  SP4 (16,26) ,SD4 (16,26) ,ST4 (16,26) ,THET1,THET, DUMMY 

2585  COMMON/COMPER/SPH, SDH, STH, PRH, DRH, TRH, DRH, VRH, SDH, SVH, CP, 

2586  IPRHS , DRHS , TRHS , DRHS , VRHS , PRHL , DRHL, TRHL, DRHL , VRHL , 

2587  23PHS, SDHS, STHS, SDHS, SVHS, SPHL, SDHL, STHL, SDHL, SVHL 

2588  COMMON/WINCOM/DH, FCORY, DX5, DY5, DPX, DPY, DPXX, DPXY, DPYY, DGH, VGH, 

2589  $  TH,DTX,DTY,DDH,DVH,PH  , DPRE, VPRE, DUPRE, DVPRE 

2590  COMMON/CHIC/LA(4, 4) ,NB(2) , IWSYM, DCOEF (14, 9) , VCOEF(14, 9) 

2591  COMMON  /GRAMOT/  PGH  , DGH  , TGH  , DH  , VH  ,PS  , DS 

2592  .  TS  ,PGHP  , DGHP  , TGHP  , PHP  , DHP  , THP 

2593  .  PSH  ,DSH  , TSH  , WGH 

2594  PEAL  MOLWT 

2595  DATA  IBLK/IH  /,IAST/1H»/ 

2596  C  FACTOR  FOR  RADIANS  TO  DEGREES 

2597  FAC  -  57.2957795 

2598  IWSYM  -  IBLK 

2599  IF(NPOP.NE.O)  GO  TO  6 

2600  DPRE-0. 

2601  VPRE-0. 

2602  DDPRE-0. 

2603  DVPRE-0. 

2604  6  PQ-0. 

2605  DQ-0. 

2606  TQ-0. 

2607  PRH-0. 

2608  DRH-0. 

2609  TRH-0. 

2610  DRH-0. 

2611  VRH-0. 

2612  DQ-0. 

2613  VQ-0. 

2614  POA-0. 

2615  DQA-0. 

2616  TQA-0. 

2617  DA-0. 

2618  VA=0. 

2619  PSH-0. 

2620  DSH-0. 

2621  TSH-0. 

2  622  MONTH-MN 

2623  C  PRESENT  LATITUDE,  DEG 

2624  PHI  -  PHIR*FAC 

2625  C  PRESENT  LONGITUDE,  DEG 

2626  THET  -  THETR*FAC 

2627  C  PREVIOUS  LATITUDE,  DEG 

2626  FHIl  -  PHI1R*FAC 

2629  C  PREVIOUS  LONGITUDE,  DEG 

2630  THETl  -  THETIF^EAC 

2631  C . FCORY  =  NORTH  COMPONENT  CORIOLIS  FACTOR  TIMES  DISTANCE  FOP. 

2632  C  5  DEGREES  OF  LATITUDE 

2633  DY5  -  5000  .♦RX  .'FAC 

2634  DX5  -  DY5*COS (PHIR) 

2635  FCORY  -  DY5*SIN (PHIR) /( 120 . *FAC) 

2  63C  C . IN  JACCHIA  OR  MIXED  GROVES- JACCHIA  HEIGHT  RANGE 


255 


CHR/91-2750 


2637  8  IF(H.GT.90.0)  GO  TO  10 

2638  C . IH  4-D  DATA  HEIGHT  RANGE 

2639  IF  (H.LE.25.0)  GO  TO  500 

2640  C  IN  GROVES  OR  MIXED  GROVES  4D  HEIGHT  RANGE 

2641  GO  TO  200 

2  642  C . IN  MIXED  JACCHIA-GROVES  RANGE,  NEED  TO  FAIR  DATA 

2643  10  IF  (H.LT.115.)  GO  TO  20 

264  4  C . FOLLOWING  IS  THE  PURE  JACCHIA  HEIGHT  RANGE  SECTION 

2  645  C . JACCHIA  VALDES  AT  CURRENT  POSITION 

2  64  6  CALL  JACCH (H, PHIR, THET, PH, DH,  TH) 

2647  PHIN  -  PHIR  +  5.  /  FAC 

2648  THETE  -  THET  -  5. 

2649  C . JACCHIA  VALDES  AT  CURRENT  POSITION+5  DEGREES  LAT,  FOR  DP/DY  AND 

2650  C  DT/DY 

2651  CALL  JACCH (H, PHIN, THET, PHN,DHN,THN) 

2652  C . JACCHIA  VALDES  AT  CURRENT  POSITION-5  DEGREES  LON,  FOR  DP/DX  AND 

2653  C  DT/DX 

2654  CALL  JACCH <H, PHIR, THETE, PHE, DHE, THE) 

2655  C  DP/DY  FOR  GEOSTROPHIC  KIND 

2656  DPY-PHN-PH 

2657  C  DP/DX  FOR  GEOSTROPHIC  KIND 

2658  DPX-PHE-PH 

2659  C  DT/DX  FOR  THERMAL  WIND  SHEAR 

2660  DTX  -  THE  -  TH 

2  661  C  DT/DY  FOR  THERMAL  WIND  SHEAR 

2662  DTY  -  THN  -  TH 

2663  C  CHANGE  NOTATION  FOR  OUTPUT 

2664  PGH-PH 

2665  DGH-DH 

2666  TGH-TH 

2667  CALL  WIND 

2668  OH  -  UGH 

2669  VH  ”  VGH 

2670  HB  -  H  +  5. 

2671  CP  -  7.»PH/(2.*DH*TH) 

2672  CALL  JACCH (HB, PHIR, THET, PB,DB,TB) 

2673  DTZ  ■"  (TB  -  TH)/5000. 

2674  C . VERTICAL  MEAN  WIND 

2675  WGH  -  -CP* (UH*DTX/DX5  +  VH*DTy/DY5) / (G  +  CP*DTZ  +  DH*DDH+VH*DVE) 

2676  C  GO  TO  RANDOM  PERTURBATIONS  SECTION 

2677  GO  TO  900 

2  67  8  C . FOLLOWING  IS  THE  MIXED  JACCHIA-GROVES  HEIGHT  RANGE  SECTION 

2679  C  LOWER  HEIGHT  INDEX 

2680  20  IHA  -  5*(INT(H)/5) 

2681  C  UPPER  HEIGHT  INDEX 

2682  IHB  -  IHA  +  5 

2683  C  LOWER  HEIGHT  FOR  INTERPOLATION 

2684  HA  -  IHA*1 . 

2685  C  UPPER  HEIGHT  FOR  INTERPOLATION 

2686  HB  -  IHB*1. 

2687  C . JACCHIA  VALUES  AT  LOWER  HEIGHT,  CURRENT  LAT-LON 

2688  CALL  JACCH (HA, FHIR, THET, PJA, DJA, TJA) 

268?  PHIN  -=  PHIR  *  5.  /  FAC 

2690  THETE  =  THET  -  5. 

2691  C . JACCHIA  VALUES  A7  LOWER  HEIGHT,  CURRENT  LAT-LON+5  DEGREES 

2  692  LAT,  FOR  CP'Z'L  AND  DT/DY 

26?3  CALL  JACCH  (HA,  PKIN,  THET,  P  K'J,  DJN.  TJN) 

2694  C . JACCHIA  VALUES  AT  LOWER  HEIGHT,  CURRENT  LAT-LON-5  DEGREES 

2  6  9^  /•  LON,  FOR  DP  /r;-;,  AND  DT/'DX 

2696  CALL  JACCH  ( HA  ,  PS:  F- ,  THETE ,  F,JE ,  DJE  ,  TJE ) 

269^  ^  JACCHIA  DP/DY  AT  LOWER  HEIGHT 

2698  DPXJA-FJE-P JA 

2  699  '7  JACCHIA  DP/DY  AT  LOWER  HEIGHT 

270r,  DFYJA-PJN-PJA 
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2701  C  JACCHIA  DT/DX  AT  LOWER  HEIGHT 

2702  DTXJA  -  TJE  -  TJA 

2703  C  JACCHIA  DT/DX  AT  LOWER  HEIGHT 

2704  DTYJA  -  TON  -  TJA 

2705  C . JACCHIA  VALUES  AT  UPPER  HEIGHT,  CURRENT  LAT-LON 

2706  CALL  JACCH (HB, PHIR, THET, P JB, DJB, TJB) 

2707  PHIN  -  PHIR  +  5.  /  FAC 

2708  THETE-THETE-5 

2709  C . JACCHIA  VALUES  AT  UPPER  HEIGHT,  CURRENT  LAT/LON+5  DEGREES 

2710  C  LAT,  FOR  DP/DY  AND  DT/DY 

2711  CALL  JACCH (HB, PHIN, THET, PJN,DJN,TJN) 

2712  C . JACCHIA  VALUES  AT  UPPER  HEIGHT,  CURRENT  LAT-LON-5  DEGREES 

2713  C  LON,  FOR  DP/DX  AND  DT/DX 

2714  CALL  JACCH (HB, PHIR, THETE,PJE,DJE, TJE) 

2715  C  JACCHIA  DP/DX  F'^R  GEOSTROPHIC  WINDS 

2716  DPXJB  -  PJE  -  PJB 

2717  C  JACCHIA  DP/DY  FOR  GEOSTOPHIC  WINDS 

2718  DPYJB  -  PJN  -  PJB 

2719  C  JACCHIA  DT/DX  FOR  THERMAL  WIND  SHEAR 

2720  DTXJB  -  TJE  -  TJB 

2721  C  JACCHIA  DT/DY  FOR  THERMAL  WIND  SHEAR 

2722  DTYJB  -  TJN  -  TJB 

2  723  C . GROVES  AT  LOWER  HEIGHT,  TO  BE  FAIRED  WITH  JACCHIA 

272  4  CALL  GTERP ( IHA, PHI , PGA, DGA, TGA, PG,  DG, TG, DPYGA, DTYGA, DP2YGA) 

2725  C . GROVES  AT  UPPER  HEIGHT,  TO  BE  FAIRED  WITH  JACCHIA 

2726  CALL  GTERP ( IHB, PHI , PGB, DGB, TGB, PG, DG, TG, DPYGB, DTYGB, DP2YGB) 

2727  C . FAIRED  RESULTS  AT  LOWER  HEIGHT 

2728  IHSB  -  90 

2729  CALL  PDTUV (PSP , DSP , TSP , PHI , THET, IHSB, PSB, DSH, TSH, DPXSB, 

2730  $  DPYSB,DTXSB,DTYSB,DP2XSB,DP2YSB,DPXYSB) 

2731  PGA  -  PGA*(1.  +  PSH) 

2732  DGA  -  DGA*(1.  +  DSH) 

2733  TGA  -  TGA*(1.  +  TSH) 

2734  PGB  -  PGB*(1.  +  PSH) 

2735  DGB  -  DGB*(1.  +  DSH) 

2736  TGB  ”  TGB*(1.  +  TSH) 

2737  DTXGA  -  DTXSB  *  TGA 

2738  DTXGB  -  DTXSB  »  TGB 

2739  DTYGA  «  TGA*DTYSB  +  DTYGA* (1.  +  TSH  +  DTYSB) 

2740  DTYGB  -  TGB*DTYSB  +  DTYGB* (1.  +  TSH  +  DTYSB) 

2741  DPXGA  -  DPXSB  *  PGA 

2742  DPXGB  -  DPXSB  *  PGB 

2743  DPYGA  -  PGA*DPYSB  +  DPYGA* (1.  +  PSH  +  DPYSB) 

2744  DPYGB  -  PGB*DPYSB  +  DPYGB* (1.  +  PSH  +  DPYSB) 

2745  CALL  FAIR (PGA, DGA, TGA, PJA, DJA, TJA, IHA, PI , D1 , Tl, DPXGA, DPYGA, 

2746  $  DPXJA,DPYJA,DPXA,DPYA,DTXGA,DTYGA,DTXJA, DTYJA, DTXA,DTYA) 

2747  C . FAIRED  RESULTS  AT  UPPER  HEIGHT 

2748  CALL  FAIR (PGB, DGB, TGB, PJB, DJB, TJB, IHB, P2 , D2 , T2 , DPXGB, DPYGB, 

2749  $DPXJB, DPYJB, DFXB, DPYB, DTXGB, DTYGB, DTXJB, DTYJB, DTXB, DTYB) 

2750  C . HEIGHT  INTERPOLATION  ON  FAIRED  P,D,T 

2751  CALL  INTER2 (P1,D1, T1,HA,P2,D2,T2,HB,PH,DH,TH,H) 

2752  C . HEIGHT  INTERPOLATION  ON  FAIRED  DP/DX, DP/DY 

2753  CALL  INTERW(DFXA, DFYA, HA, DPXB, DPYB,HB, DPX, DPY, H) 

2754  C . HEIGHT  INTERPOLATION  ON  FAIRED  DT/DX, DT/DY 

2755  CALL  INTERN  (DT;<A.  .  DTYA,  HA,  DTXB,  DTYB,  HE,  DTX .  DTY,  H> 

27  56  C . EASTWARD  COMFONENT  OF  GEOSTPOPHIC  WIND 

2757  CALL  WIND 

2758  ^  CHANGE  OF  VARIABLES  FOE  OUTPUT 

2750  pr:H«pp 

2767  DGH-=DH 

2761  TGH=TH 

2762  OH  -  UGH 

2  7  6?  '>7H  -  VGH 

2764  CP  -  7 .*PH/ (2 . *DE*TH) 
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2765  DTZ  -  (T2  -  Tl)/5000. 

27  66  C . VERTICAL  MEAN  WIND 

2767  MGH  -  -CP* (0H*DTX/DX5  +  VH*DTY/DY5) / (G  +  CP*DTZ  +  DH*DDH  +  VH*DVH) 

2768  C  GO  TO  RANDOM  PERTORBATIONS  SECTION 

2769  GO  TO  800 

2770  C . THE  FOLLOWING  SECTION  IS  FOR  GROVES  OR  MIXED  GROVES  4D  HEIGHTS 

2771  C  UPPER  HEIGHT  INDEX 

2772  200  IHGB  -  5*(INT(H)/5)  +  5 

2773  IF  (IHGB. GT. 90)  IHGB-90 

2774  C  UPPER  HEIGHT 

2775  HGB  -  IHGB*1 . 

2776  C . GROVES  AT  UPPER  HEIGHT 

2777  CALL  GTERP ( IHGB, PHI , PGB, DGB, TGB, PG, DG, TG, DPYGB, DTYGB, DP2YGB) 

2778  C . UPPER  STATIONARY  PERTURBATION  HEIGHT  -  40 

2779  IF  (H.LT.40.0)  GO  TO  210 

2780  C . UPPER  STATIONARY  PERTURBATION  HEIGHT  -  90 

2781  IF  (H.GT.84.0)  GO  TO  220 

2782  C . UPPER  STATIONARY  PERTURBATION  HEIGHT  -  52 ,  60,  68 , 7 6 , OR  84 

2783  IHSB  -  8*((INT(H)  +  4)/8)  +  4 

2784  C . UPPER  STATIONARY  PERTURBATION  HEIGHT  -  52 

2785  IF  (IHSB. LT. 52.0)  IHSB  -  52 

2786  GO  TO  230 

2787  210  IHSB  -  10* (INT (H) /lO)  +  10 

2788  GO  TO  230 

2789  220  IHSB  =  90 

2790  C  UPPER  STATIONARY  PERTURBATION  HEIGHT 

2791  230  HSB  -  IHSB*1. 

2  7  92  C . STATIONARY  PERTURBATIONS  AT  UPPER  HEIGHT 

2793  CALL  PDTUV (PSP , DSP , TSP , PHI , THET, IHSB, PSB,DSB, TSB, DPXSB , DPY3B, 

2794  $  DTXSB, DTYSB, DP2XSB, DP2YSB,DPXYSB) 

2795  C  MIXED  GROVES  4D  SECTION 

2796  IF  (H.LT.30.0)  GO  TO  300 

2797  C  LOWER  HEIGHT  INDEX 

2798  IHGA  -  IHGB  -  5 

2799  C  LOWER  HEIGHT  INDEX 

2800  HGA  -  IHGA*1. 

2801  C . GROVES  AT  LOWER  HEIGHT 

2802  CALL  GTERP ( IHGA, PHI , PGA, DGA, TGA, PG, DG, TG, DPYGA, DTYGA, DP2YGA) 

2803  C . LOWER  STATIONARY  PERTURBATION  HEIGHT  -  30 

2804  IF  (H.LT.40.0)  GO  TO  240 

2  805  C . LOWER  STATIONARY  PERTURBATION  HEIGHT  -  52,  60,68,7  6,  OR  84 

2806  IHSA  •=  8*((INT(H)  +  4) /8)  -  4 

2807  C . LOWER  STATIONARY  PERTURBATIONS  HEIGHT  -  40 

2808  IF  (IHSA.LT.52 . 0)  IHSA  -  40 

2809  GO  TO  250 

2810  240  IHSA  =  30 

2811  C  LOWER  STATIONARY  PERTURBATION  HEIGHT 

2812  250  HSA  -  IHSA*1. 

2  813  C . STATIONARY  PERTURBATIONS  AT  LOWER  HEIGHT 

2814  CALL  PDTUV ( PSP , DSP , TSP , PHI , THET, IHSA, PSA, DSA, TSA, DPXSA, DPYSA, 

2815  $  DTXSA, DTYSA, DP2XSA, DP2YSA, DPXYSA) 

2816  C . GROVES  VALUES  HEIGHT  INTERPOLATIONS 

IBl"  CALL  INTER2 (PGA, DGA, TGA, HGA, PGB, DGB, TGB, HGB, PGH, DGH, TGH, H) 

2818  C . STATIONARY  PERTURBATION  HEIGHT  INTERPOLATION 

28  1<3  CALL  INTERZ  (PSA.  DSA,  TSA,  HSA,  FSB,  DSE,  TSE,  HSE,  FSK,  DSH,  TSH,  H) 

282'“  ''  QUASI -BIENNIAL  '-•Al.UES 

2921  CALL  QBOGEN 

2822  . HEIGHT  INTERF ' LAT ION  OF  GROVES  DF.DY,  DT  DV,  AND  D2F,DY2 

28,^3  CALL  INTERZ  (DPYGA,  DTYGA,  DF2YGA.  HGA.  DE  TGB.  DTi'GE.  DP2YGE.  HGB,  L’EIG. 

2824  6  DTYG, DP2YG, H ■ 

282'^  '■ . HEIGHT  INTEPPC  L.AT  ION  OF  STATIONAFV  FEFTUP.EAT  ION  DF  DX  AND  DF/DY 

2026  CALL  INTERN (DEXS A, DPYSA, HSA, DPXSB, DFYSB, HSB , DPXS , DP YS , H) 

282-  C . HEIGHT  INTERPOLATION  OF  STATIONARY  PERTURBATION  DT.'DX  AND  DT,'DY 

2828  CALL  INTERN ( DTXSA , DTYSA , HSA , DTXSB , DTYSB, HSB . DTXS , DTYS , H ) 
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2829  C . HEIGHT  INTERPOLATION  OF  STATIONARY  PERTURBATION  D2P/DX2 , D2P/DY2 , 

2830  C  AND  D2F/DXDY 

2831  CALL  INTERZ (DP2XSA, DP2YSA, DPXYSA.HSA, DP2XSB,  DP2YSB, DPXYSB,HSB, 

2832  $  DP2XS,DP2YS,DPXYS,H) 

2833  C . UNPERTURBED  (MONTHLY  MEAN)  VALDES  FOR  OUTPUT 

2834  TGH  -  TGH  *  (1.  +  TSH) 

2835  PGH  -  PGH  *  (1.  +  PSH) 

2836  DGH  -  DGH  *  (1.  +  DSH) 

2837  C  TOTAL  DT/DX 

2838  DTX  -  DTXS  *  TGH 

2839  C  TOTAL  DT/DY 

2840  DTY  -  TGH*DTYS  +  DTYG*(1.  +  TSH  +  DTYS) 

2841  C  TOTAL  DP/DX 

2842  DPX  -  DPXS  *  PGH 

2843  C  TOTAL  DP/DY 

2844  DPY  -  PGH*DPYS  +  DPYG* (1 .  +  PSH  +  DPYS) 

2845  C  D2P/DX2 

2846  DPXX  -  PGH*(2.*DPXS  -  DP2XS) 

2847  DPYY  -  PGH*{2.»DPYS  -  DP2YS)  +  (2 . »DPyG  -  DP2YG)*(i.  +PSH+DPYS) 

2848  $  -  (DPYG  -  DP2YG) *DP2YS 

2849  C  D2P/DXDY 

2850  DPXY  -  (PGH  +  DPYG) *DPXYS  +  DPYG*DPXS 

2851  C . UNPERTURBED  VALUES  PLUS  QBO  PERTURBATIONS 

2852  PH  -  (1.  +  PQ)  *  PGH 

2853  DH  -  DGH  *  (1.  +  DQ) 

2854  TH  -  (1.  +  TQ)  *  TGH 

2855  CALL  WIND 

2856  C  GEOSTROPHTC  WIND  PLUS  QBO  WIND  PERTURBATIONS 

2857  UH-OGH+OQ 

2858  VH-VGH+VQ 

2859  CP  =  7.*PGH/(2.*DGH*TGH) 

2860  DTZ  -  (TGB* (l.+TSE)  -  TGA* (1 . +TSA) ) /5000 . 

2  8  61  C . VERTICAL  MEAN  WIND 

2862  WGH— CP* (UGH*DTX/DX5+VGH*DTY/DY5) / (G+CP*DTZ+VGH*DDH+VaH*DVH) 

2863  C  GO  TO  RANDOM  PERTURBATIONS  SECTION 

2864  GO  TO  800 

2865  C . THE  FOLLOWING  IS  THE  MIXED  GROVES  4D  SECTION 

2866  C . GENERATE  GRID  OF  4D  PROFILES  IF  PREVIOUS  HEIGHT  GE  30 

2867  300  IF  (HI . GE . 30 . -OR . LOOK , EQ . 1 )  CALLGEN4D 

2868  C300  IF  (HI . GE . 30 . .OR . LOOK . EQ . 1 )  CALL  USGRID 

2869  C 

2870  310  CONTINUE 

2871  C . LAT-LON  INTERPOLATION  OF  4D  DATA  AT  25  KM 

2872  CALL  INTER4 (  PHI,THET,25,  P4D,  D4D, T4D, P4A, D4A, T4A, 

2873  $  DPX4,DPY4,DTX4,DTY4,DPXXA,DPYYA,DPXYA) 

2874  C  GROVES  PLUS  STATIONARY  PERTURBATIONS 

2875  PB  =  PGB*(1.  +  PSB) 

287b  C  P,D,T 

2877  DB  -  DGB*  (1  .  DSB) 

2878  TB  TGB*(1.  TSB; 

2879  DPXB  =  PGB*DPXSE 

2880  DPYB  =  PGB*DFYS3  ^  DFYGB*(1.  +  PSB  +  DFYSB) 

2881  DFXXB  =  PGB* ' 2 . *DFXSB  -  DP2XSB) 

2882  DPYYB  =  PGB* < 2 . *"? YSE  -  DP2YSB)  +  (2.*DPYGB  -  DP2YGB) * 

288?  $  (1.  +  PSB  ^  D8Y3=!  -  (DFYGB  -  DP2 YGB) *DF2 iSB 

2884  DFXYE  =  (PGE  -  2  ?  iGE '  *DFXYSE  DFiGE'-DFaSE 

2880  DTXB  =  TGB-^nXOB 

2  88b  DTYB  =  TGB*DTYS:-  *  DTYGB*(1.  +  TSB  +  DTiSEi 

2BP'  . HEIGHT  INTEPFOlTIIOr;  BETWEEN  4r  AT  25  AND  GROVES  AT  UPPER  HEIGHT 

2anP  '■  DF/DX  AN!  TP  '  ' 

288?  CALL  INTERW  (IF:-;-,  .7  F  Y4  ,  25  .  ,  DFXP  ,  E  F  YE ,  HSE,  DFX,  DF  V ,  H  ) 

2  8  9'  C . HEIGHT  INTERFOLATCI:  BETWEEN  4D  AT  25  AND  GROVES  AT  UPPER  HEIGHT 

2  8'^!  b-  F ,  D ,  T 

29 ?.  CALL  INTER2 (P 4 A, E 4A , T4A, 25 . , PB, DB, TB, HGB, PGH. DGH, TGH, H) 
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28  93  C . HEIGHT  INTERPOLATION  BETWEEN  4D  AT  25  AND  GROVES  AT  OPPER  HEIGHT 

2894  C  DT/DX  AND  DT/DY 

2895  CALL  INTERN {DTX4 , DTY4 , 25 DTXB, DTYB, HSB, DTX, DTY, H) 

2896  C . HEIGHT  INTERPOLATION  BETWEEN  4D  AT  25  KM  AND  GROVES  AT  UPPER 

2897  C  HEIGHT  D2P/DX2,  D2P/DY2,  AND  D2P/DXDY 

2898  CALL  INTERZ (DPXXA, DPYYA, DPXYA, 25 . , DPXXB, DPYYB, DPXYB, HGB, DPXX, 

2899  $  DPYY,DPXY,H) 

2900  IF  (IOPQ.EQ.2)  GO  TO  350 

2  901  C  QUASI  BIENNIAL  PERTURBATIONS 

2902  CALL  QBOGEN 

2903  C  ADD  QBO  PERTURBATIONS  TO  P,D,T 

2904  350  PH-PGH*(1.+PQ) 

2905  DH-DGH* (l.+DQ) 

2906  TH-TGH*(1.+TQ) 

2907  CALL  WIND 

2908  C  ADD  QBO  WIND  PERTURBATIONS 

2909  UH-UGH+UQ 

2910  VH-VGH+VQ 

2911  CP  -  7.*PGH/(2.*DGH*TGH) 

2912  DTZ  -  (TB  -  T4A) /( 1000  .•*  (HGB  -  25.)) 

2  913  C . VERTICAL  MEAN  WIND 

2914  WGH— CP* (UGH*DTX/DX5+VGH*DTY/DY5) / (G+CP*DTZ+UGH*DOH+VGH*DVH) 

2915  C  GO  TO  KaNDOH  PERTURBATIONS  SECTION 

2916  C::  2000  FORMAT(lH  LATITUDE /16F8 . 3) 

2917  C::  2001  FORMAT(lH  LONGITUDE /16F8 . 3, / •  PRESSURE') 

2918  C::  2002  FORMAT ( IX, 12 , 1 6F8 . 0) 

2919  GO  TO  800 

2920  500  IF  (H.GE.0.0)  GO  TO  510 

2921  IF  (H.LT. -0.015)  GO  TO  505 

2922  C  IF  -15  METER  LE  H  LT  0  ,  H  IS  SET  TO  0 

2923  H  -  0. 

2924  GO  TO  510 

2925  C  NO  MORE  COMPUTATIONS  TO  BE  MADE  IF  HEIGHT  LT  -5  M 

2926  505  NMORE  -  0 

2927  RETURN 

2928  C . GENERATE  GRID  OF  4D  PROFILES  IF  PREVIOUS  HEIGHT  GE  30 

2929  510  IF  (H1.GE.30. .OR.LOOK.EQ.l)  CALL  GEN4D 

2930  C510  IF  (HI. GE. 30. .OR.LOOK.EQ.l)  CALL  USGRID 

2931  C  LOWER  HEIGHT  INDEX 

2932  IHA-INT(H) 

2933  C  LOWER  HEIGHT  INDEX 

2934  HA  -  IHA*1. 

2935  IWSX  -  IWSYM 

2936  C  UPPER  HEIGHT  INDEX 

2937  IHB  ”  IHA  +  1 

2938  IF (IHB. LE. 25)  GO  TO  513 

2939  IHA-24 

2940  HA-24. 

2941  IHB-25 

2942  C  OPPER  HEIGHT 

2943  513  HB  -  IHB*1. 

2944  C . LAT-LON  INTEPJPOLATION  OF  4D  VALUES  AT  UPPER  HEIGHT 

2945  515  CALL  INTER4  (  PHI ,  THET,  IHB ,  P4D,  D4D,  T4D,  PB,  Dt5,  IB, 

2946  $  DPX4E,DPY4B,DTX4B,DTY4B, DPXXB, DPYYB, DPXYB) 

2  94’  IF(IHA.EQ.0.Mrr.FB-^DB'-TE.LE.0.)GO  520 

2  949  GO  T'O  54':' 

294'9  520  IHB-IHB+1 

lOS’  '0 . LOOP  TO  FIND  LO'KEST  VALID  HEIGHT 

2951  HE-HB+1. 

205i  GO  TO  515 

i  540  IFdHA.GT.Oi  CALL  l;JTEP4(  FH  I  ,  THET ,  IH  A  .  F  4 1' ,  D  4  D ,  T4  P  , 

2954  lFA,DA,TA,DPX4A,DrY4A, DTX4A, DTY4A. DPXXA, DPYYA, DPXYA) 

2''5'’  IF  (IWSYM  .EQ.IAST)  IWSX  -  IWSYM 

2956  IF (IHA. EQ. 0 .CP . (FA*DA*TA. LE . 0 . AND . IHA . LT . 10 . AND . PB*DB* TB . GT . 0 . ) ) 
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2957  IGO  TO  550 

2958  GO  TO  600 

2959  C . LAT-LON  INTERPOLATION  OF  4D  VALOES  AT  LOWER  HEIGHT 

2960  550  CALL  INTER4 (  PHI,THET,0,  P4D,D4D,T4D, 

2961  .PA, DA, TA,DPX4A,DPT4A,DTX4A,DTY4A,DPXXA,DPTTA,DPXYA) 

2962  IF  (IWSYM  .EQ.  lAST)  IWSX  -  IWSYM 

2963  IF(TA-TB)560,570,560 

2964  560  IF(TA*TB.LE.0.0)GO  TO  570 

2965  TZ-(TA-TB) /ALOG(TA/TB) 

2966  GO  TO  575 

2967  570  TZ-TA 

2968  C  ...COMPOTES  HEIGHT  OF  S0RFACE 

2969  575  HA-HB 

2970  IF(PB*PA.LE.0.0)GO  TO  576 

2971  HA-HB+0.28705*TZ*ALOG(PB/PA) /G 

2972  576  IF (H . GT . HA-0 . 04 ) GO  TO  600 

2973  PH-0. 

2974  DH-0. 

2975  TH-0. 

2976  PGH-0. 

2977  DGH-0. 

2978  TGH-0. 

2979  GO  TO  800 

2  980  C . HEIGHT  INTERPOLATION  OF  P,D,T 

2981  600  CALL  INTER2 (PA, DA, TA, HA, PB, DB, TB, HB, PGH, DGH, TGH, H) 

2  982  C . HEIGHT  INTERPOLATION  OF  DP/DX  AND  DP/DY 

2983  CALL  INTERW (DPX4A, DPY4A, HA, DPX4B, DPY4B, HB, DPX, DPY, H) 

2  984  C . HEIGHT  INTERPOLATION  OF  DT/DX  AND  DT/DY 

2985  CALL  INTERW (DTX4A, DTY4A, HA, DTX4B, DTY4B, HB, DTX, DTY, H) 

2986  C . HEIGHT  INTERPOLATION  OF  D2P/DX2,  D2P/DY2,  AND  D2P/DXDY 

2987  CALL  INTERZ (DPXXA, DPYYA, DPXYA, HA, DPXXB, DPYYB, DPXYB, HB, DPXX, DPYY, 

2988  $DPXY,H) 

2989  C  CHANGE  OF  NOTATION  FOR  OUTPUT 

2990  PH  -  PGH 

2991  DH  -  DGH 

2992  TH  -  TGH 

2993  IF(PH*DH*TH,LE.O.)  GO  TO  800 

2994  CALL  WIND 

2995  C  CHANGE  OF  NOTATION  FOR  OUTPUT 

2996  UH  -  UGH 

2  997  VH  -  VGH 

2998  CP  -  7 .*PGH/ (2 .*DGH*TGH) 

2999  DTZ  -  (TB  -  TA) / ( 1000 . * (HE  -  HA)) 

3000  C. . . .  VERTICAL  MEAN  WIND 

3001  WGH  -  -CP* (UGE*DTX/DX5  +  VGH*DTY/DY5) / (G+CP*DTZ+UH*DUH+VH*DVH) 

3002  C  QBO-0  IF  H  LT  10 

3003  IF  (H.LT.IO.)  GO  TC  800 

3004  IF  (IOPQ.EQ.2)  GO  TO  650 

3005  C  COMPUTES  QUASI  BIENNIAL  PERTURBATIONS 

30n4  CALL  QBOGEN 

3007  C  ADDS  QBO  PERTUPBATIONS  TO  P,D,T 

3008  650  PH-PGH* (1 .+PQ1 

300?  DH-DGH* ( 1 . +DC: 

3010  TH-TGH* ( 1 . +TQ' 

3011  7  ADDS  QBO  WIND  OrPTURBATIONS  TO  U,V 

3^12  OH-UGH+UQ 

3013  VH-’-'GH^VC. 

3014  C . the  following  IC  tbs  FANDOM  PERTURBATIONS  SECTION 

3  015  C . NO  RANDOM  PEPTVFiATIONS  IF  lOPP  GT  1 

3010  800  CONTIN'.’E 

3  or'  IFIH.GT.OOi  G'  T-  511 

30ia  IF  (IPRT  .  NE  .  C  .OF,.  IWSYM  .NE.  lAST)  GO  TO  512 

3'j13  C;:  write  (  6 , 2000)  'GLAT  ( I )  ,  I-l ,  1  6) 

3Gir  r-:;  WRITE  (  6,  2001  !  '  GLON  ( I )  ,  I-l ,  1  6) 


261 


CHR/91-2750 


3C21  C: :  DO  504  1-1,26 

3022  C:: 

3023  C::  WRITE ( 6, 2002 )  IH, (P4D ( J, I) , J-1, 16) 

3024  C: :  504  CONTINOE 

3025  IPRT-IPRT+1 

3026  512  CONTINUE 

3027  IF  (lOPR.GT.l)  GO  TO  830 

3028  IF (NPOP.EQ.O)GO  TO  840 

3029  C . INTERPOLATES  RANDOM  WIND  MAGNITUDES  TO  HEIGHT  H,  LATITUDE  PHI 

3030  CALL  INTRUV{UR,VR,H,PHI,SUH,SVH) 

3031  CALL  INTROV(PLP,DLP,H,PHI,PLPH,DLPH) 

3032  CALL  INTRUV (TLP , DLP , H, PHI , TLPH, DLPH) 

3033  CALL  INTRUV (DLP, VLP, H, PHI, ULPH, VLPH) 

3034  CALL  INTRUV (DDL, VDL, H, PHI , DDL2 , VDL2) 

3035  CALL  INTRUV (DDS, VDS , H, PHI , ODS2 , VDS2 ) 

3036  SDHL-SQRT (ULPH*ABS (SUH) ) 

3037  SDHS-SQRT ( (1 . -ULPH) *ABS (SUH) ) 

3038  SVHL-SQRT (VLPH*ABS (SVH) ) 

3039  SVHS-SQRT( (1 .-VLPH) ’ABS (SVH) ) 

3040  SDH  -  SORT (ABS (SUH) ) 

3041  SVH  -  SORT (ABS (SVH) ) 

3042  IF(H.GE.25.)GO  TO  805 

3043  C . IF  H  LE  20  USE  4D  DATA  RANDOM  P , D, T  SIGMAS 

3044  IF  (H.LE.20.)  GO  TO  810 

3045  C . INTERPOI.ATE  PR,DR,TR  'R-J'.VC  TO  GCT  2.0,7  3IGM??  AT  HEIGHT  H, 

3046  C  LATITUDE  PHI 

3047  CALL  RTERP ( 25 . , PEI , PR, DR, TR, SPHG, SDHG, STHG) 

3048  GO  TO  810 

3049  805  CONTINUE 

3050  CALL  RTERP(H,PHI,FR,DR,TR,SPH,SDH,STH) 

3051  GO  TO  820 

3052  C . LAT-LON  INrERPOLATION  ON  P,D,T  SIGMAS  AT  LOWER  HEIGHT 

3053  810  CALL  INTER4 (  PHI , THET, IHA,  SP4 , SD4 , ST4 , PA, DA, TA, 

3054  S  DPX,DPY,DTX,DTT,DFXX,DPyy,DPXy) 

3055  C . LAT-LON  INTEPJ’OLATION  ON  P,D,T  SIGMAS  AT  UPPER  HEIGHT 

3056  CALL  INTER4 (  PHI, THET, IHB,  SP4 , SD4 , ST4 , PB, DB , TB, 

3057  $  DPX,DPY,DTX,DTy,DPXX,DPYy,DPXy) 

3058  C . HEIGHT  INTERPOLATION  OF  SIO^AS 

3059  CALL  INTERS (PA, DA, TA,  HA,PB,DB,TB,  HB, SPH, SDH, STH, H) 

3060  IF(SPH.LE.O.O.OR.SDH.LE.O.O.OR.STH.LE.O.O)GO  TO  825 

3061  IF(PH.LE.O.O.OR.DH.LE.O.O.OR.TH.LE.O.O)GO  TO  825 

3062  IF (H.LE. 20 . ) GO  TO  820 

3063  FH  -  1.  -  0.2*(25.  -  H) 

3064  SPH  -  FH*SPHG  +  (1.  -  FH) *SPH 

3065  SDH  -  FH*SDHG  +  (1.  -  FH) *SDH 

3066  STH  -  FH*STHG  (1.  -  FH)  *STH 

3067  c . HEIGHT  DISPLACEMENT  BETWEEN  PREVIOUS  AND  CURRENT  POSITION 

3068  820  DZ  -  HI  -  H 

3069  SPHL-SQRT (PLFH*ABS (SPH) ) 

3070  SPHS=SQRT ( (1 . -PLFH) *ABS (SPH) ) 

O'"”!  SDHL-SQRT  (DLPH*'ABS  (SDH)  ) 

30'2  SDHS-SQRT  (  (1  .  -DLFH)  -^ABS  (SDH)  ) 

3C’?  STHL-SQRT (TLFH'ABS (STH) ) 

?''74  STHS=SQP,T(  (l.-ILFHi  ■^ABS(STH)  ) 

jr-7t  SFH  =  SQPT  (ABS  'SFH'  ! 

SDH  =  SORT  (.APS  ■  37.=  ■ 
ir,--  S7H  -  .SQPT  (APS  SC"'  ; 

sr-'c  r . C'^MPUTE.S  HORICSOrCAL  DISPLACEMENT  DX  BETWEEN  PREVIOUS  AKI  CURRENT 

■  POSITION.  HSRICONTAL  S'SALE  HL,  AND  "EPTICAL  SCALE  VL 

i  'HM  ; . <-OMP'’''TES  PEPT'SPHATION  VALUES  FPH  .  DFH  .  TF.H  . '’PH  AND  ' ’F » 

3081  CALL  FEPTPE 

3-  k;  c  adds  random  perturbations  to  ph.dh.th 

mm  PH  -  FH*  ( '.  ,  PPr  ' 

mie4  DH  -  DH*I'  DF.H( 
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3085 

TH  -  TH* (1 .  +  TRH) 

3086 

C 

ADDS  RANDOM  WINDS  TO  DH,VH 

3087 

UH-UH+DKH 

3088 

VH-VH+VRB 

3089 

c 

.  . 

.SETS  PREVIOUS  RANDOM  PERTORBATION  IN  P,D,T  TO  CURRENT 

3090 

c 

PERTURBATIONS,  FOR  NEXT  CYCLE 

3091 

825 

RPIS-  PRHS 

3092 

RDIS-  DRHS 

3093 

RTIS-  TRHS 

3094 

RPIL-PRHL 

3095 

RDlL-DRflL 

3096 

RTIL-TRHL 

3097 

c 

.SETS  PREVIOUS  MAGNITUDES  FO  CURRENT  VALUES,  FOR  NEXT  CYCLE 

3098 

SPIS-SPHS 

3099 

SDIS-  SDHS 

3100 

STIS-STHS 

3101 

SPIL-SPHL 

3102 

.';dil-sdhl 

3103 

ST1L*STHL 

3104 

c 

.SETS  PREVIOUS  WIND  PERTURBATION  VALDES  TO  CURRENT  VALUES, 

3105 

r 

FOR  NEXT  CYCLE 

3106 

RUIS-URHS 

310'' 

RVIS-VRHS 

3108 

RU1L-UR.8L 

3109 

RV1L=VRHL 

3110 

C 

SETS  PREVIOUS  WIND  PERTURBATION  MAGNITUDES  TO  CURRENT  VALUES 

3111 

r 

FOR  NEXT  CYCLE 

3112 

SDIS-SUHS 

3113 

SVIS-SVHS 

3114 

SUIL-SUHL 

3115 

SVIL-SVHL 

3116 

C 

.SETS  PREVIOUS  HEIGHT  TO  CURRENT  HEIGHT,  FOR  NEXT  CYCLE 

311'' 

830 

HI  -  H 

3118 

C 

.  . 

.SETS  PREVIOUS  LATITUDE  TO  CURRENT  LATITUDE,  FOR  NEXT  CYCLE 

3119 

PHIIR-PHIR 

312C 

C 

SETS  PREVIOUS  LONGITUDE  TO  CURRENT  LONGITUDE,  FOR  NEXT  CYCLE 

3121 

THETIR-THETR 

3122 

c 

SETS  NMORE  TO  COMPUTE  MORE  DATA  ON  NEXT  CYCLE 

3123 

840 

NMORE  =  1 

3124 

c 

NO  MORE  DATA  IF  F ,  D,  OR  T  LEQ  0 

3125 

IF(PH*DH*TH.LE.O.)  RETURN 

3126 

CALL  STDATM(H, TS, PS,  DS) 

312’ 

IF  ( (PS*DS*TS) .GI . 0 . )  GO  TO  870 

3128 

PGHP=0 . 

3129 

DGKP^^'  . 

31’  r-i 

TGHP=0 . 

3  1  3 1 

PHP-0 . 

3132 

DHP'-O  . 

-3  1-3  1 

THP=C . 

31  34 

r;r)  XO  880 

313" 

p  o 

PGHP=19C  .  *  (PC-H-r  S  /'PS 

T  1  ^ 

DGHF  =  100  .  *  (DGE-DS'-  'US 

31  - 

TGHF  =  19C  .  (TC-H-CS  IE 

3  1  3  t 

FHP»10C . * (FH-PE'  PE 

••  T  O 

DHF  =  1''''^  .  *  (PH-EE  : 

~  1  4 

THF-:  ~  .  *  /  TH-"  1  , 

■'  1 4 ; 

'•■.'■UVEPTr  OB':  1,:  7  T-  PEPl'EtlT 

'14: 

r;'=ir-:r  _ 

114  ■ 

'  ]  44 

■=14^ 

■'"ir.'EFTP  fa::::::  t:  feptent 

'14*' 

FPH-il'O  .  *PP.H 

^14'^ 

r-pH-l  *DPP 

■  !  4 

7F,H=1''’  '  .  *TP..H 
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3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 
3138 

3159 

3160 

3161  C 

3162 

3163 

3164  C 

3165 

3166 

3167 

3168 

3169 
317 

3171 

3172 
2173 

3174 

3175 
31^6 
317  7 
3178 

317  0 

3180 

3181  (' 

3182 
318^ 

3184 

3185  C 

3186  C. 

3187  C 

318  8  C 

318  9  ^ 

319';'  C. 

3191  C 

3192  C 

3193 

3194 

3  10''  r 


3  1  OL 


PRHS-100.*PRHS 

DRHS-100.*DRflS 

TRHS-100 . *TRHS 

PRHL-100  .  *P!1HL 

DRHL-100.*DRHL 

TRHL-100 . *TRHL 

SPHS  -  100.*SPHS 

SDHS  -  100.*SDHS 

STHS  -  100.*STHS 

SPHL  -  100.»SPEL 

SL'HL  -  lOO.-^SUHL 

SPHL  “  100.*STHL 

CONVERTS  WIND  SHEAR  TO  M/S/KM 

DUH  “  DDH  *  1000. 

DVH  -  DVH  *  1000. 

CONVERTS  VERTICAL  WIND  TO  CM/S 
WG.H  -=  WGH*100. 

POA-PQA*100. 

DQA-DQA*100 . 

TQA-=TQA*100  . 

SPH-=SPH*100  . 

SDH=SDH*100 . 

STH-STH*100 . 

PSH-PSH*100 . 

DSH=DSH*100 . 

TSH-TSH*100 . 

IF (NPOP -EQ. 0?  TEEN 
DPRE-OGB 
VPRE“VGH 
DOPR£=DrH/10C":' . 

DVPRE-DVH/'IOOO. 

ENDIF 

RETORN 

ND 

SOBRODTINE  SETUP 

SETUP  HAS  BEEN  MODIFIED  TO  READ  ALL  INPUT  FROM  FILES  WHICH 
ARE  OPENED  THEN  CLOSED  TO  MINIMIZE  I/O  BUFFER  SPACE  REQUIRED 
BY  THE  PROGRAR;.  AS  SUCH,  ALL  PREDEFINED  LUN  ’  S  ARE  IGNORED. 

THE  ORIGINAL  SETUP  ROUTINE  ZEROED  THE  RANDOM  PERTURBATIONS  IF 
IOPR=2  AND  ZEROED  THE  QDASl-BIENNIAL  OSCILLATIONS  IF  IOPQ-2 . 
THIS  VERSION  OF  THE  PROGRAM  READS  IN  TER  DATA  REGARDLESS,  THEN 
DISABLES  THE  RF ' S  AND  THE  QBC ' S  WHRE  THEIR  EFFECT  IS  SUMMED  IN. 
THIS  ALLOWS  REAL-TIME  CONTROL  OF  THESE  FEATURES. 

WRITTEN  26  ..IAN  .3?  L  SCHILLING  NASA/ADFPE. 

CHAPA''TEP*:2  FIL'.'AM 

DIMEtiSI'?::  II  <1  ,  II  ■  5  '  ,  IT  (5  i  ,  It'Ax  i  12  ! 

[■IMFOiSI'IN  ID'--:  : 

DIMF.NSI'N  NIAU,-.  :  .IXdf'i 

>•'  •■'iMvj  ,» •  ‘ '  ■  —  r  ».<  *  T  /IM  F  H  I 

.  .  .ft::  r\  : :  ;  .~r  : ; 

,  F”  i :  .  P'.'i :  . .  ’i:  .  kn  i 

'  • H'.  .pht:f  .  TjiFT :  - . : 'T-ir  <  r  1  >  ,  t  f  f:I" 


■KM 


K  .  T  'F  F  .  T-.i  (  1  F  .  1  H  F  ,  i  9  i  . 

1  .  F  FF  1  .  PFF  '  P  .  ;  .12).  TSF  (  B  .  1  C‘ ,  I  . 
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3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223  C 

3224 

3225 

3226 

3227 

3228 

3229 

3230  C 

3231  C. 

3232  C 

3233  C 

3234 

3235  C 

32  3  6  C 

3237  C 

3238  C 

32  3  9  C 

3  2  4  0 

324  1 

3242  C 

3  2  4  3 
324  4 

3245  C 

3246 
324'’ 

3248  C: 

3249  C : 

3250  C: 

3251  C 
3  2  5  2 

3  2  5  3  C 

3  2  5  4  C 

'j  2  s  c  r 

3  2  5  6  C 

3  2  5"  O’ 

T  2  5  B  C 


COMMOK  /CHIC 
DATA  IDAY  / 

XMJD  =  0. 

IF  (MN.GT.12)  GO  TO  2 
IDA  -  IDAY(MN)  +  IDD 
DD  -=  IDA 

IF  (MOD (lYR, 4) .EQ.O . AND.MN.GT.2)  IDA  -  IDA  +  1 

XMJD  =  2439856.0  +  3 65 . 0* ( IYR-68 . )  +  IDA  +  INT ( ( IYR-65 . 0 ) /4 . 0 ) 

SECOND  DATA  CARD  READS,  FREE  FIELD,  LOGICAL  UNIT  NUMBERS  FOR 
THE  GRAM  PROGRAM.  THESE  LUNS  ARE  IGNORED  IN  THE  OPEN  FILE, 

RJIAD  FILE,  CLOSE  FILE  APPROACH.  PROGRAM  OPTIONS  ARE  ALSO  READ 
IN.  THEY  ARE  DEFINE  AS  FOLLOWS: 

IOPR=l:  RANDOM  OUTPUT,  -2:  NO  RANDOM  OUTPUT 
IOPQ-1:  QBO  OUTPUT  ,  -2 :  NO  QBO  OUTPUT 
NRl  ■=  STARTING  RANDOM  NUMBER 

READ (55,*)  TUN  , lUG  , lUR  , lUVC  , lUQ  , lUS 

IU4  ,IOPR  , lOPQ  ,NR1  , lOTEMl , IOTEM2 

IF  (I0PR.LT.1.OR.I0PR.GT.2)  GO  TO  666 
IF  (IOFQ.LT.1.0R.IOPQ.GT.2)  GO  TO  666 

MONTH-MN 
RESCALE  ”1.0 

R  -  RAND (NRl)  !  INIT  CALLS  MADE  IN  ' GRAMRT '  I" 

R  =  RAND(O)  !  REAL-TIME  VERSION.  VALUE  OF  1 . 0 

P  ”  RAND(O)  !  IS  ASSUMED  FOR  NRl  SINCE  NOT  IN  COMMON 

THIRD  DATA  CARD  READS  FREE  FIELD,  THE  FOLLOWING  DATA: 

PEl  =  INITIAL  RANDOM  PRESSURE  PERTURBATIONS,  PERCENT 
RDl  =  INITIAL  RANDOM  DENSITY  PERTURBATION,  PERCENT 
RTl  -  INITIAL  RANDOM  TEMPERATURE  PERTURBATION,  PERCENT 
SDl  ”  INITIAL  STANDARD  DEVIATION  FOR  RANDOM  DENSITY 
PERTURBATION,  PERCENT 

RUl  =  INITIAL  EASTWARD  WIND  PERTURBATION,  M/S 
RVl  ”  INIXIA-,  NORTHWARD  WIND  PERTURBATION,  M/E 

SUl  ”  INITIAL  STANDARD  DEVIATION  FOR  RANDOM  EASTWARD  WIND,  M/S 
-BVl  =  INITIAL  STANDARD  DEVIATION  FOP  PANDOM  NORTHWARD  WIND,  M/S 

.  PPIS  ,RD1I,  .PDil."  ,PT1L  .PTIS 
,  P'"1S  ,FV1L  ,P-V1S  ,PPS-ALE 

.OR.  P.r  SCALE  .GT  .  2 . 0)  prSCALE=l.' 


PEATM P.Fi; 

F  /■  1  L 

IF  'FI'S.’ALE.M. 
FF  I  -FF  1  L*pr  r 

F."  i=pr  :s*?r 

P ., ,  ^p.. ^ ^ 

F'-’i  =F’.’;  ;,*F  ■■ 


PAQ(17, 5) , DAQ(17, 5) ,TAQ{17, 5) ,PDQ(17, 5) , 

DDQ  (17, 5)  ,TDQ(17, 5)  ,  PR  (20,  10)  ,  DR  (2  0, 10)  , 

TR(2  0,  10)  ,  DAQ(17, 5)  ,  VAQ(17, 5)  ,  DDQ  (17, 5)  , 
VDQ(17,5) ,DR(25,10) ,VR{25,10) ,PQ  , DQ 
TQ  ,  DQ  ,  VQ  ,  PQA  ,  DQA  ,  TQA  ,  DA 
VA  ,IOPQ  ,PLP(25,10),DLP{25,10) ,TLP(25,10)  , 
ULP  (25,10)  ,  VLP  (25,10)  ,  DDL  (25, 10)  ,  VDL(25, 10)  , 

DDS  (25,10)  ,  VDS  (25,10) 

/  DUM  (18)  ,  IWSYM,  UC0EF(14, 9)  ,  VCOEF  (14, 9) 

0,  31,  59,  90,120,151,181,212,243,273,304,334/ 


.’ALL  GEINM  ■ 

IF  iM'iNTH  .  LT  .  :  ; 
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3277 

c 

3278 

c. .  .  . 

MONTH-13  IS  ANNUAL  AVERAGE  CASE 

3279 

c 

3280 

Ml-13 

3281 

M2-13 

3282 

GO  TO  13 

3283 

c 

3284 

c. .  .  . 

Ml  IS  FOR  NORTHERN  HEMISPHERE,  M2  FOR  SOUTHERN.  M2-M1+6 

3285 

c 

UNLESS  M1-M2-13. 

3286 

c 

3287 

12 

Ml -MONTE 

3288 

M2 -MONTH  +  6 

3289 

c 

3290 

c. .  .  . 

SOUTHERN  HEMISPHERE  DATA  IS  6  MONTHS  DISPLACED  FOR  GROVES, 

3291 

c 

STATIONARY  PERTURBATIONS,  AND  RANDOM  PERTURBATIONS 

3292 

c 

3293 

IF  (M2.GT.12)  M2-M2  -  12 

3294 

c 

3295 

c .  .  .  . 

READ  GROVES  PRESSURE  DATA.  CONVERT  TO  REAL  AND  STORE  IN  ARRAY. 

3296 

c 

3297 

13 

CONTINUE 

3298 

c 

3299 

CLOSE (25) 

3300 

FILNAM- ' NASPGROVES . F ' 

3301 

OPEN(25, FILE-FILNAK, STATUS- 'OLD ', FORM- ' FORMATTED ' , 

3302 

ERR-999, ICSTAT-IOS) 

3303 

REWIND  (25) 

3304 

c 

3305 

DO  100  1-1,234 

3306 

READ(25,111)  IC,MI, IH, ly, lEX 

3307 

111 

FORMAT (A2, 1314) 

3308 

IF  (IC.NE. 'P')  GO  TO  666 

3309 

IF  (MI.EQ.  Ml)  GO  TO  30 

3310 

IF  (MI. EC.  M2)  GO  TO  40 

3311 

GO  TO  100 

3312 

30 

KS-1 

3313 

GO  TO  50 

3314 

40 

KS--1 

3315 

50 

IH-(IH-20) /5 

3316 

TENX-10. **IEX 

SSl’^ 

DO  60  J-1,10 

3318 

K-IO+KS* ( J-1) 

3319 

bO 

PG (IH, K)  -  IX (J) *TEHX 

3320 

100 

CONTINUE 

3321 

c 

3322 

c ,  .  .  . 

READ  GROVES  DENSITY  DATA.  CONVERT  TO  REAL  AND  STORE  IN  ARRAY. 

3  3  2^ 

r 

3324 

DO  200  1-1,234 

■J  J  c 

READ(25,111)  IC.Ml. IH, IX, IEX 

3  326 

IF  (IC.NE. 'D'l  GC  TO  666 

3  3  2  ^ 

IF  (MI.EQ.  Ml)  GC  TO  130 

3  ^  2 

IF  (MI.EQ.  M2'  GO  TC  140 

1  -  *  o 

G'2  T"  rf'') 

1  1  ■ 

1  *’■ 

Y7  =  1 

3—1 

T  1  ' 

■;  1  '  ' 

14'‘ 

EC-  - : 

1 

1  5 '' 

: 

'  '  ‘  4 

TEN>:=1'  .‘■'•lEG 

.  -  3  = 

r-  16'-'  J-:,'." 

•  ■  1  t' 

K  =  1  '  +  y  f.-  ♦ ,  '  - : 

,  , 

'  ^ 

•  -  --E!')-: 

:  J  = 

:  tJTlN”E 

4' 

PEAT  GP'VEO  TEM; r FATCRE  DATA.  CONVERT  TC  REAL  ANT  STORE  IK  APPA 
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3341 

3342 

3343 

3344 

3345 

3346 

3347 

3348 

3349 

3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 
3  3  71 
3372 
3  3  73 

3374 

3375 

3376 
337-’ 
3378 

3370 

3  3  80 

3381 

3382 
3  3  8'= 

3384 

3385 
3  38  6 

T  T  p  - 
3  "J  q  p 
33  83 

p 

p  3  3 : 


DO  300  I-l, 234 

READ(25,111)  IC.MI,  IH,  IX,  lEX 
IF  (IC  .NE.  'T')  GO  TO  666 
IF  (MI.EQ.Ml)  GO  TO  230 
IF  (MI.EQ.M2)  GO  TO  240 
GO  TO  300 
230  KS-1 

GO  TO  250 
240  KS— 1 
250  IH-(IH-20)/5 
TENX-10. **IEX 
DO  260  J-1, 10 
K-IO+KS* (J-1) 

260  TG(IH,K)  -  IX(J;»TENX 
300  CONTI NOE 
C 

C....  ANNUAL  MEAN  CASE  -  BOTH  HEMISPHERES  EQUAL. 

n 

IF  (MONTH. LT. 13)  GO  TO  308 
C 

DO  304  1-1,18 
DO  304  J-1, 9 
J20-20-J 

PG(I, J)-PG(I, J20' 

DG  (I,  J)  -DG  (I,  J2C  ' 

TG(I, J)-TG(I, J2C; 

304  CONTINUE 

r- 

C....  READ  STATIONALY  PERTURBATIONS  DATA.  CONVERT  TO  REAL  AND  STORE 
C  IN  PSP,  DSP,  an:  TSF  ARRAYS. 

C 

308  DO  360  I-l, 1246 

READ (25, 112)  NDA'A (1) , (NDATA(KK) , KK=2 , 19) 

112  FORMAT(A2, 1814' 

IC-NDATA(l) 

MI-NDATA (2) 

IH-NDATA(3) 

LON-NDATA ( 4 ) 

DO  311  K-1,5 
IP  (K)  -NDAIA  (4+K; 

ID(K)-NDATA(9-‘-K) 

311  IT  (K) -NDATA  (14-t-E  = 

IF  (IC  .NE.  'S'  '  GO  TO  666 

IF  (MI.EQ.Ml)  GC  TO  320 
IF  (MI.EQ.M2)  GO  TO  330 
GO  TO  360 
327  KS-1 

GO  TC  340 
ppn  KS--1 

340  ISH-2+  flH-  i  1 '  8 
L-  (  LOtJ  +  20)  ;'3^- 

IF  (  IH  .  LT  .  52  TSH  =  (  IH  -  2  0  )  1  0 

IF  (IH.GT.84=  =  6 

-  p  5  r  _  r 

?'=-5  ;  '4.  ;  y r  - 

Fsp  ( isH,  K.  :  ■  -  IP  '■  i-o;':. 

psi  I  isH,  F,  :■  = 

pp  TSF  '  ISH.  F,  I'  -  --  '■  :  P'P'O. 

-7  'o  !:t:ii';e 

....  AtlNUAL  MEA!!  'Aj::  -  BOTH  HEMISFHEPES  EQUAL. 

IF  IM  tJTK  .  LT  .  1.P  ■  G.  I 
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3405 

DO  364  1-1,8 

3406 

DO  364  K-1, 12 

3407 

DO  364  J-1,5 

3408 

JlO-ll-J 

3409 

PSP  ( I ,  J,  K)  -PSP  ( I ,  JIO ,  K) 

3410 

DSP  ( I ,  J,  K)  -DSP  { I ,  JIO  ,  K) 

3411 

TSP  ( I ,  J,  K)  -TSP  ( I ,  JIO  ,  K) 

3412 

364 

CONTINUE 

3413 

C 

3414 

369 

CONTINUE 

3415 

C 

3416 

c. 

.  .  .  . 

READ  RANDOM  PERTURBATIONS. 

3417 

c 

3418 

CLOSE (25) 

3419 

FILNAM- ' NASPRRW . F 

3420 

OPEN (25, FILE-FILNAM, STATUS-’OLD* 

,  FORM-  ’  FORMATTED 

3421 

ERR-999, lOSTAT-IOS) 

3422 

REWIND (25) 

3423 

c 

3424 

DO  430  1-1,260 

3425 

READ  (25,112)  IC , MI , IH, IP , ID, IT 

3426 

385 

IF  (IC  .NE.  'P.'  )  GO  TO  666 

3427 

IF  (MI.EQ.Ml)  GO  TO  390 

3428 

IF  (MI.EQ.M2)  GO  TO  400 

3429 

GO  TO  430 

3430 

390 

KS-1 

3431 

GO  TO  410 

3432 

400 

KS— 1 

3433 

410 

IF  (IH.LT.95)  IHP- (IH-20) /5 

3434 

IF  (IH.GE.95)  IHR  -  14  +  (IH  -  80)  /  20 

3435 

DO  420  J-1,5 

3436 

K  -  5  +  KS  *  (J  +  (KS  -  1)  /  2) 

3437 

PR(IHR,K)  -(IF (J) *RPSCALE/1000.) 

**2 

3438 

DR (IHR, K)  -(XD(J) *RPSCALE/1000.> 

3439 

420 

TR(IHR,K)  -(IT(J) *RPSCALE/1000.) 

**2 

3440 

430 

CONTINUE 

3441 

c 

3442 

c. 

,  .  .  . 

ANNUAL  MEAN  CASE  -  BOTH  HEMISPHERES  EQUAL. 

3443 

c 

3444 

IF  (MONTH.lt. 13)  GO  TO  460 

3445 

c 

3446 

DO  435  1=1,20 

3447 

DO  435  J-1, 5 

3448 

JlO-ll-J 

3449 

PR  (I,  J)  -PR  (I,  JIO) 

3450 

DR(I, J)-DR(I,  JIO) 

3451 

TR(I, J)-TR(I, JIO) 

3452 

435 

CONTINUE 

3453 

c 

34  54 

READ  RANDOM  KltC  STANDARD  DEVIATIONS. 

34  55 

r 

3  4  56 

460 

DO  49C  1=1,325 

34  5  - 

READ(25,111)  IC, MI , IH, IF , ID 

3  4  5°- 

467 

IF  (IC  .ME.  ’RW)  GO  TO  666 

34 

IF  (MI  .EQ.Ml  ■  '5  T  '  470 

^  4  6  n 

ir  imt.ec.m:'  j'  -’5 

34  61 

GO  TO  4?'': 

3  4  62 

470 

KS-1 

34  3- 

ry  T-  48^' 

34  64 

475 

KS=-  1 

MO" 

IF  (  IH  .  LT  .  ■5'"  '  :H?=1-‘IH  '5 

T  4  t 

IF  (IH.GE.95'  IHP  =  1  ?■>•  { IH-80)  ,  20 

'^4  6' 

D7;  4  85  J  =  l,5 

3  4  6  cj 

K-5-*-KS*  UJ+ {KS-1  ’  2’ 
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3469 

OR(IHR,K)-(IP (J) *PJSCALE) »*2 

3470 

485 

VRdHR,  K)  -  (ID  (  J)  *RPSCALE)  **2 

3471 

490 

CONTINUE 

34^2 

r 

3473 

C  , 

ANNUAL  MEAN  CASE  -  BOTH  HEMISPHERES  EQUAL. 

3474 

c 

3470 

IF  (MONTH. LT. 13)  GO  TO  500 

3476 

DO  495  1-1,25 

3477 

DO  495  J-1,5 

3478 

JlO-ll-J 

3479 

UR(I,  J)-UP  (I,  JlO.i 

3480 

VR(I, J)-VR(I, JIO; 

3481 

495 

CONTINUE 

3482 

r 

3483 

500 

CONTINUE 

3484 

C 

3485 

C  . 

READ  ANNUAL  PRESSURE,  DENSITY,  AND  TEMPERATURE  PERCENTS 

3486 

r 

3487 

CLOSE (25) 

3488 

FILNAM-’NASPPPWCS .F  ' 

3489 

r 

3490 

OPEN (2  5, FILE-FILNAM, STATUS- 'OLD' , FORM- ' FORMATTED '  , 

3491 

ERR-999, lOSTAT-IOS) 

3  4  92 

REWIND  (25) 

3493 

C 

3494 

DO  840  1-1,25 

3495 

READ(25,112)  IC.MI,  IH,  IP,  ID,  IT 

3496 

820 

IFlIH.GT.90)  rfi-70-t- (IH/4) 

3  4  97 

IH-l-KIH/5) 

3498 

IF  (IC  .NE.’P'  .OR.  IH  .NE.  I)  GO  TO  666 

3499 

DO  830  J-1, 5 

3500 

PLP  (I,  J-65)  -IP  ( J'  .1000. 

3501 

PLP (I, 6-J) -IP ( J)  1000 . 

3502 

DLP  (I,  J■^5)-ID(C)  1000. 

3503 

DLP  (I,  6-J)  -ID(  J)  ,'1000  . 

3504 

TLP  ( I,  J-t-5)  -IT  ( J'  ,'1000  . 

3505 

830 

TLP (I. 6-J) -IT( J) /1 000 . 

3506 

840 

CONTINUE 

3507 

r 

3508 

r  ^ 

READ  WIND  ANNUAL  PERCENTS. 

3509 

r 

3510 

DO  865  1-1,25 

3511 

READ(25,113)  IC,  MI ,  IH,  IP  ,  ID 

3512 

113 

FORMAT (A2, 1215) 

351? 

855 

IF(IH.GT.90)  IH-70*(IH/4) 

3514 

IH-1+ (IH/5) 

3515 

IF  (I  .NE.  IH  .OR.  IC  .NE.  'PW')  GO  TO  666 

3516 

DO  860  J-1, 5 

3  51’ 

ULP  (I,  J-fS)  -IP(J)  /lOOO. 

3518 

ULP  (I,  6-J)  -IF  ( Jj  ,'IOOC. 

3  519 

VLP  (I,  J-i-S) -ID  (  J)  '1000. 

3  5  2 1' 

8  6C 

'/LP  ( 1 ,  6-J)  -ID  ( J!  '1000  . 

^521 

9  6  5 

CONTINUE 

3  5  2  2 

c 

READ  SMALL  SZhlZ  'TLOCITY  PEPTUPBATI  "‘H  ''''PPELATI~NS  . 

^524 

i  r:  ~  zi 

C'  909  1-1.25 

T  5  2  5 

PEAr(28,ii3'  :c,m:  i.h.ip.ic 

>52’ 

IF ( IH .  GT . 90 ■  ;h=  •  ■  -  ■  :h. 4  I 

••528 

:h-i -  '  IH  5 , 

3  5  2  8 

:r  !IH  .NE.  :  or  .ne.  ' 23 ' ■  o;  to  ^96 

3  5  3  " 

DO  885  .T-1  ,  5 

>  5  T  2 

UDS  1  X  ,  J*5  )  -  ■'  I?  '  1  700  .  ) 

3532 

UDS  1  I  .  6-J)  -  '  Xr  7''  10  00.1 
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3533 

3534 

3535 

3536 
353"’ 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 
3  5  8"’ 

3  5  88 
3  58^ 
3  5  9^ 
3  5  91 
3  5  9  2 
3  5  9  3 
3  5  94 
'1505 
3596 


VDS (I,  J+5) - (ID ( J) /lOOO. ) 

885  VDSil.C  w*;  -  ;iD  ( J) /lOOO.  ) 

888  CONTIN0E 

r 

C....  READ  LARGE  SCALE  '/ELOCITY  PERTURBATION  CORRELATIONS. 

r 

DO  898  1-1,25 

READ(25,113)  1C,  MI .  IH,  IP ,  ID 
894  IF(IH.GT.90)  IH-  70+(IH/4) 

IH-1+ (IH/5) 

IF  (IH  .NE.  I  .OR.  IC  .NE.  ' CL ' ) GO  TO  666 

DO  896  J-1, 5 

DDL  (I,  J+5) -(IP  (J)  /lOOO.  ) 

DDL (I, 6-J) -(IP (J) 71000  .  ) 

VDL(I,  J+5)-(ID(J) 71000.) 

896  VDL(I, 6-J)-(ID(J)71000.) 

898  CONTINUE 
C 

C....  READ  QDASI-BIENNIAL  OSCILLATIONS  (PRESSURE  AMPLITUDE  AND 
C  PRESSURE  PHASE  -  DAYS  PAST  JAN  0,  1966) . 

CLOSE (25) 

F I LN AM- ' N AS P QBO . F 

OPEN (25, FILE-FILNAM, STATUS- 'OLD' . FORM- ' FORMATTED ' , 
ERR-999, lOSTAT-IOS) 

REWIND (25) 

C 

DO  530  I-l, 16 
READ(25,111)  IC.IH.IX 
527  IF  (IC  .NE.  'QP'  )  GO  TO  €66 
IH  -  (IH-5) 75 
DO  530  J-1, 5 

PAQ(IH,J)  -  IX(2’»J-1)71000. 

530  PDQdH.J)  -  IX(2*J)»1. 

DO  531  I  -  1,5 
PAQ(1,  I)  -  0. 

531  CALL  PHASE(PDQ(2,  I)  ,  15.  ,PDQ(3,  I)  ,20.  ,PD<2(1,  I)  ,  10. ) 

C 

C....  READ  QBO  DENSITY  AMPLITUDE  AND  PHASE. 

C 

DO  540  I-l, 16 
READ(25,111)  IC.IH.IX 
537  IF  (IC  .NE.  'QD')  GO  TO  666 
IH-(IH-5) 75 
DO  540  J-1, 5 

DAQ(IH,J)  -  IX(2*J-1) 71000. 

540  DDQdH,  J)-IX(2*J)  *1. 

DO  541  I  -  1,5 
DAQ  (1,1)  -  0  . 

541  CALL  PHASE (DDQ( 2  1 1  , i5 . , LOQ ( 3 , I)  , 2C . , DDQ ( 1 ,  I )  . 10 . ) 

C....  READ  QBO  TEMPERA 3CRE  AMPLITUDE  AND  PHASE. 

DO  550  I-l, 16 
READ  (25,  111 '  13,  :F.,  IX 
547  IF  (IC  .NE.  ’ll'  3'  CO  666 
IH  -  ( IH-  5!  r 
DO  550  J- 1 , 5 

TAQIIH.J)  -  IXC  -  -'-1'  lOOC. 

55'^  TDQ  (  IH,  Cl  -  l:-:  '  2'  Cl  *  1  . 

DO  551  I  -  1,5 
TAQ  (1,1)  -  0  . 

551  CALL  PHASE  (TDQ  (2  ,  1:-  ,  15  .  ,  TDQ(  3,  I)  ,  20  .  ,  TDQd,  I)  ,  10.  ) 
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3597 

c .  .  .  . 

READ  EASTWARD  QBO  WIND  AMPLITUDE  AND  PHASE. 

3598 

c 

3599 

DO  560  1-1,16 

3600 

READ(25,111)  IC.IE.IX 

3601 

557 

IF  (IC  .NE.  'QO')  GO  TO  666 

3602 

IH-(IH-  5) /5 

3603 

DO  560  J-1, 5 

3604 

DAQ(IH,J)  -  IX(2  *  J  -  1)  /  10. 

3605 

560 

DDQdH,  J)-IX(2*J)  *1. 

3606 

DO  561  I  -  1,5 

3607 

DAQ  (1,1)  -  0  . 

3608 

561 

CALL  PHASE(DDQ(2, I) , 15. ,ODQ(3, I) ,20. ,ODQ(l, I) , 10 

3609 

r 

3610 

C  .  .  .  . 

READ  NORTHWARD  QBO  WIND  AMPLITUDE  AND  PHASE . 

3611 

c 

3612 

DO  570  I-l. 16 

3613 

READ(25,111)  IC,IH,IX 

3614 

567 

IF  (IC  .NE.  ’QV’)  GO  TO  666 

3615 

IH-(IH-  5) /5 

3616 

DO  570  J-1, 5 

3617 

VAQ(IH,J)  -  IX(2  ♦  J  -  1)  /  10. 

3618 

570 

VDQdH.J)  -  IX(2*J)*1. 

3619 

DO  571  I  -  1,5 

3620 

VAQd,  I)  -  0. 

3621 

571 

CALL  PHASE  (VDQ  (2  ,  I)  ,  15  .  ,  VDQ(3,  I)  ,  20.  ,  VDQd,  I)  ,  10 

3622 

c 

3623 

READ  IN  SPHERICAL  HARMONICS  COEFFICIENTS 

3624 

c 

3625 

CLOSE (25) 

3626 

FILNAM-'NASPSP .F 

3627 

OP  EN ( 2  5 , FI LE-F ILNAM , STATUS- ' OLD ’ , FORM- ' FORMATTED 

3628 

ERR-999, lOSTAT-IOS) 

3629 

REWIND  (25) 

3630 

c 

3631 

DO  615  IFR-1,MN 

3632 

DO  613  JFR-1,14 

3633 

READ(2S  ,640)  IFl , IF2 , (IDUM d) , I-l , 9) 

3634 

640 

FORMAT (2X, 1116) 

3635 

DO  613  I-l, 9 

3636 

613 

UCOEF ( JFR, I) -FLOAT (IDUM (I) ) /lOO. 

3637 

DO  612  JFR-1,14 

3638 

READ(25  ,640)  IFl ,  IF2  ,  (IDUM  ( I)  ,  I-l ,  9) 

3639 

DO  612  I-l, 9 

3640 

612 

VCOEF ( JFR, I) -FLOAT (IDUM d) ) /lOO. 

3641 

615 

CONTINUE 

3642 

C 

3643 

CLOSE (25) 

3644 

C 

3645 

621 

R-Hl 

3646 

IF(H1.LT.25. )  R-25. 

364’ 

CALL  RTERP(R  , PHI 1 . PR, DR, TR, SPl , SDl , STl) 

3  64  8 

CALL  INTRUV(PLP, DLP, HI , PHI 1 , PLP 1 , DLP 1 ) 

64  3 

CALL  INTRUVdLF,  DLP,  HI ,  PHI  1 ,  TLP 1 ,  R) 

3  6  50 

3  651 

SPIL-SQRT (PLFl'AHS (SFl > 1*100. 

3650 

SP1S-SQPT(  d  .  -FlFl  '  ‘P.ES  (SP1>  >  *100. 

3  65  3 

SCIL-SQRT  (DLP  1  *F.5F  '  ."Dl  M  *100  . 

3654 

SD1S-S3PT( d .-DLPI' 'AES (SDl) ) *100. 

3655 

STlL-SQPT(TLFl‘r.3.?  'SIH  I  *100. 

3656 

STIS-SQRT { d.-riPl' *ABS(ST1> )*100. 

3657 

c 

3658 

CALL  INTRCno  (UP,  '.T. ,  HI .  PHIl ,  SUl,  SVl) 

3659 

CALL  INTRUV ( ULP . VLF . HI , PHI 1 , ULFl . VLP 1 ) 

’660 

r* 
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3661 

SU1L-SQRT(DLP1*ABS(S01) ) 

3662 

SOIS-SQRT ( ( 1 . -DLPl) *ABS (SUl) ) 

3663 

SV1L-SQRT(VLP1’*ABS(SV1)  ) 

3664 

SV1S-SQRT(  d.-V”!,?!)  ♦ABS(SVl)  ) 

3665 

c 

3666 

CALL  INTP.0V  (DDL,  VDL,  HI,  PHIl,  ODLl,  VDLl) 

3663 

CALL  INTROV(DDS, VDS, Hi, PHIl, ODSl, VDSl) 

3668 

c 

3669 

UDL1-DDL1*100. 

3670 

VDL1-VDL1*100. 

3671 

DDS1-DDS1*100. 

3672 

VDS1-VDS1»100  . 

3673 

c 

3674 

Rr IL-PPIL/IOO. 

J  67  5 

RDlL-PDlL/100. 

3676 

RTlL-RTlL/100. 

3677 

SPlL-SPlL/100. 

3673 

SDlL-SDlL/100. 

3679 

STlL-STlL/100. 

3680 

RPlS-RPlS/100. 

3681 

RDlS-RDlS/100. 

3682 

RTlS-RTlS/100  . 

3683 

SPlS-SPlS/100  . 

3684 

SDlS-SDlS/100  . 

3685 

STIS-STIS/IOC  . 

3686 

DDLl-ODLl/100  . 

3687 

VDLl-VDLl/100. 

3688 

ODSl-ODSl/100. 

3689 

TOSl-VDSl/lOO  . 

3690 

RETORN 

3691 

c 

3692 

666 

WRITE  (6,  700)  FILNAM 

3  6  93 

700 

FORMAT!'  ERROR  IN  SETOP  INPOT  FROM  •,A12) 

3694 

STOP 

3695 

r 

3696 

999 

CONTTNOE 

3697 

c 

3698 

C . 

OPEN  ERROR  ENCODNTERED . 

3699 

C 

3700 

HF.ITE  (6,  677)  FILNAM,  lOS 

3701 

677 

FORMAT!'  OPEN  EP-ROR  ON  FILE  ',A12,'  STATUS  ■ 

3702 

STOP 

7  7  03 

r 

3704 

END 

3705 

SDBRODTINE  SPHERE (MN, IH, PHIR, THETR,DS, VS) 

3706 

COMMON/CHIC/DDM(lS) , IWSTM, DCOEF(14, 9) , VCOEF 

3707 

DIMENSION  Z(9) 

3 09 

COSPHl-COS (PHIR) 

7  7  0  9 

CSTHET-COS (THETR) 

3 ’10 

SINPHI-SIN (PHIR) 

=  ’  1 1 

SNTHET-SIN (THETP' 

3  ’  i  2 

Z!l)-1. 

7  ’  1  7 

Z (2) -SINPHI 

7  '14 

Z (3) -CSTHET-COS? -2 

'  1' 

Z ( 4  '  -SNTHET-CZS? 

7  '  1  6 

z  <  5 1  - 1 7*  { sinph:*  - :  - ;  '2  . 

7  '  i  ' 

Z  1  6)  -T-STHET-  d'C-SPHI-SINP.HI) 

.7  ~  1  8 

Z ( 7 ! -SNTHET*  ' 3 ' - . S? HI  * SINPHI ) 

3  -  ^  a 

Z(a)-(2*)CST°5-  (COSFHH  **2  ' 

7  '  2 

2(9!-  (  2  ♦SNTHET -C.'THET'  *  (  3*  iCCSPHD  **2  ! 

7 ' 2  I 

5 

IH5-IH. 5-4 

O'  0  2 

IFF-9 

-  i.  ' 

IF ( IH .GT . €5] IFF-a 

3  -  M 

US-0  , 
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3725  VS-0. 

3726  DO  10  I-1,IFP. 

372"’  DS-OS  +  Z(I) ’DCOEr  ;IH5,  I) 

3728  VS-VS+Z ( I) ’VCOEF ' IH5. I) 

3729  10  CONTINUE 

3730  RETURN 

3731  END 


3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 
37  62 

3763 

3764 
37  65 
37  66 
3  7  67 
3'’68 
3'’69 

3770 

3771 
3"2 
3  7  3 
3' '4 
3'’75 


SUBROUTINE  STDATM ( Z , T, P , D) 

DIMENSION  ZS{i9)  ,TMS(4  9) ,WMS(4  9) ,PS(49) 

DATA  (ZS  (I)  , I-l, 49) /O. ,  11.019,  20.063,  32.162,  47.35, 

*  51.413,  71.802,  86.000,  91.,  94.,  97.,  100.,  103.,  106., 

*  108.,  110.,  112.,  115.,  120.,  125.,  130.,  135.,  140.,  145.. 

*  150.,  155.,  160.,  165.,  170.,  180.,  190 . , 210 . , 230 . ,  265.,  300., 

*  350.,  400..  450.,  500.,  550.,  600.,  650 . , 700 . ,  750 . , 800 . , 850  .  , 

*  900.,  950. ,1000./ 

DATA  (TMS'T) . I-l, 49) /288.15,  216.65,216.65,  228.65,  270.65,270.65, 

*  214.65,  186.95,  186.87,187.74,190.4,195.08,202.23,212.89,223.29, 

*  240. , 264. , 300. , 360. , 417 .23, 469.27, 516.59, 559. 63, 598.78, 

*  634 .39, 666.8, 696.29, 723.13, 747 .57, 790.07, 825.31, 

»  878.84, 915.78, 955.2, 976.01, 990.06, 995.83, 998.22, 

*  999.24, 999. 67, 999.85, 999. 93, 999.97, 999.99, 999.99, 

*1000 . , 1000. , 1000 . , 1000. / 

DATA  (WMS(I) . I-l, 49) /28.9644,  28.9644,  28.9644,  28.9644,  28.9644, 

*  28.9644,  28.9644.  28.9522,  28.889,28.783,  28.67,28.395,28.104, 

*27. 765, 27. 521, 27.268,27.020, 26 . 680, 2 6 . 205 , 25 . 803, 25 . 4 3 6, 25 . 087 , 
*24. 749, 24. 422, 24. 103. 23. 7 92, 23. 4 88, 23. 192, 22. 902, 

*22. 342, 21. 809, 20. 825, 19. 952, 18. 688, 17. 726, 16. 735, 

*15.984, 15.247, 14 .330, 13.092, 11.505, 9.718, 7.998, 

*6.579, 5,543, 4 .849, 4 . 404, 4 .122, 3. 940/ 

DATA  (PS  (!)  , I-l, 49) /1013.25,  226.32,  54.7487,  8.68014,  1.10901, 

*  .66938,  .039564,  3.7338E-3,  1 . 5381E-3 , 9 . 0560F- 4 , 5 . 357 lE-4 , 

*  3.2011E-4, 1. 9742E-4, 1.2454E-4, 9.31S8E-5, 7 . 1042E-5 , 5 . 5547E-5 , 

*  4 .0096E-5, 2 .5382E-5, 1.7354E-5, 1.25054E-5, 9.3568E-6, 

*  * .2028E-6, 5 . 6691E-6, 4 .5422E-6, 3.6930E-6,3.0395E-6, 

*  2 .5278E-6, 2 . 1210E-6, 1 . S271E-6, 1 . 1266E-6, 6.4756E-7, 

*  3 .9276S-7, 1.7874E-7, 8 .7704E-8, 3.4498E-8, 1. 451PL  9, 

*  6.4  4  68E-9,  3.023  6E-9, 1.5137E-9,  8.2130E-10,  4  .8;  65»-  10, 

*  3 .1908E-10, 2 .2599E-10, 1 . 7036E-10, 1 . 3415E-10, 1 .0873E-10, 

*  8 . 9816E-11, 7.S138E-11/ 

IFIZ.LT.O.)  GO  TO  81 
RO-6356. 766 

GO-9. 80665 
WMO-28 . 9644 
RS-8314 . 32 
ZM-Z*1000 . 

ROM-RO*1000 . 

IF (Z .GE. 86. )  GO  TO  6 
DO  3  I-l, 7 

IF (ZS (I) .LE. Z . AND . Z .LT. ZS (I+l) )  GO  TO  5 
3  CONTINUE 

5  ZL-RO*ZS (I) / (RO*Z5 'I) ) 

2rT-RO*ZS  ( I  +  l)  'F-'-'ZS  (1*1)  ) 

ZLM-ZL*1000 . 


3  "  9 


ZUM-ZU*10Q0 . 


1"?  WM-WMC 

’"'90  HT-(RC*Z1  'PC-*; 

3’81  HM-HT*10C0. 

:-’9,  -G- (IMS  ( 1*1  I  -IMS  ■  :  :  (ZU-ZL) 

3’83  GM-G*.;-:! 

3'84  IF IG . LT . 0 . . Or . G . GT . 0 . )  GO  XC  12 

3*85  P'PS(I)  *EXP  (  -  -  (HM-ZLM)  )  (P,S*TMS  ( I)  I  )  *1C'J  . 

37  86  -GO  TO  13 

3*97  12  P-PS ( I ) * ( (TMS ' I!  (TKS ( I) +G* (HT-ZL) ) ) ** ( (GO*WMO) / (RS*GM) ) ) *100 . 

3'88  13  T-TMS ( I) +G* (HT-Zl) 
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3789 

GO  TO  25 

3790 

6 

DO  7  1-8, 48 

3791 

IF(2S (I) .LE.Z.AND.2.LT.ZS (I+l) )  GO  TO  8 

3  7  92 

7 

CONTINUE 

3  7  93 

1-48 

3794 

IFI2.LE.1000.)GO  to  8 

3795 

81 

T-0  . 

3796 

P-C  . 

379-’ 

D-0  . 

3798 

RETURN 

3799 

8 

IF(I.NE.a)GO  TO  31 

3800 

T-TMS  (  9) 

3801 

GO  TO  39 

3802 

31 

IF(I.LT.16.0R.I.GE.19)G0  TO  32 

3803 

T-240 . +12 . 0* (Z-110 .0) 

3804 

GO  TO  39 

3805 

32 

IF ( 1 -OF . 19) GO  TO  33 

3806 

T-263 . 1905-7 c . 32 32 ‘SORT (1 .-((Z-91.)/19.9429)**2) 

380-’ 

GO  TO  39 

3808 

33 

xi-(2-i20.)» (rq+120.)/ ;po+z) 

3809 

T-1000 . -640 . *EXP ( -0 . 01875*XI ) 

3810 

39 

J-I 

3811 

IF ( I .EQ. 48) J-I-l 

3812 

20-23 (J) 

3813 

Zl-ZS ( J+1) 

3814 

Z2-2S ( J+2) 

3815 

PJMA-WMS  ( J)  *  (Z-21)  ■'  (2-22)  /  (  (ZO-Zl )  *  (ZC  22 )  )  +MMS  (  J  +  1)  *  (2-ZO) 

3816 

S* ;Z-Z2) / ( (21-20) * (21-22) ) +MMS (J+2) * (Z-ZO) ♦ (2-21) / 

3917 

&  (  (22-ZO) * (22-21)  ) 

3818 

ALPO-ALOG  (PS  ( J)  1 

3819 

ALPl-ALOG (PS ( J+1) ) 

3320 

ALP2-AL0G(PS  (J+2) 

3821 

ALPA-ALPO* (Z-Z1)*(2-Z2)/((Z0-Z1) * (Z0-Z2) ) +ALP1* (Z-ZO) 

3822 

S» (2-Z2) / ( (Zl-ZO) * (Z1-Z2) ) +ALP2* (Z-ZO) * (Z-Zl) / 

3823 

4 ( (Z2-Z0) » (Z2-Z1) ) 

3824 

ALPB-ALPA 

3825 

WMB-WMA 

3826 

IF (I .EQ.8 .OR. I .EC. 48)GO  TO  24 

3827 

J-J-1 

3828 

ZO-ZS  ( J) 

3829 

Zl-ZS (J+1) 

3830 

Z2-ZS (J+2) 

3831 

ALPO-ALOG (PS (J) ; 

3832 

ALPl-ALOG(PS(J+l’ ) 

3833 

ALP2-AL0G(PS(J-’-2)  ) 

3834 

ALPB-ALPO* (Z-21) * (Z-Z2) ! ( (ZO-Zl) * (Z0-Z2) ) +ALP1* (Z-ZO) 

3835 

4* (Z-Z2)  / ( (Zl-ZO)  +  (21-Z2) ) +ALP2»{Z-Z0) *(Z-Z1)  / 

3836 

4 (  (Z2-Z0)  •  (Z2-Z1) ) 

383' 

WMB-WMS(J)  »(2-21! - ( Z -Z2 ) / (  ( ZO-Zl ) * ( ZO-Z2 )  ) +WMS ( J+ 1 >  » ( Z -ZO ) 

3838 

4* (Z-Z2) /  (  (Zl-ZO)  +  IZ1-Z2)  ) +WMS (J+2)*(Z-Z0)*(Z-Z1)/ 

393? 

4  (  (Z2-Z0) * (Z2-Z1'  1 

3840 

24  P-100  .  *EXP  (  (ALFA'A:.rB)  /2  . ) 

3  841 

WM-  (WMA+WMB)  /2  . 

3842 

-5 

5  D- (WM*P)  (RS‘I' 

3843 

26  RETURN 

'«44 

END 

384  J 

SUBROUTINE  TILT 

38'  6 

'-OMMON  lOTEMP  1 :  TE.Ml  .  IOTEM2,  lUG,  ION.  DD.  XMJD,  FHIl  .  FH7  , 

394" 

NSW-U: .  ?T1 .  P-Cl-  PTl.  SFl,  sri.  STl,  PUl,  PVl,  SUl. 

39  4f- 

S  MN,  IDA  lYP.  7...  t'HIlP  .  THETIP,  G,  PI.  H,  FHIP.  THETP  ,  no  .  FlUB,  G. 
S  IHP  MIN  NMOPE  D  HL .  VL,  DZ  ,  DUMMY2  (  2  5  t 

3850 

COMMON,' J0MJAC,'>:L-6T,  XLONG,  SDA,  SHA.DY,  R,  TE,  EM 

3851 

3852 

rUPOUTINE  TINF  CALCULATES  THE  EXOSPHERIC  TEMPERATURE  ACCORDING 
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3853 

c 

SAO  NO.  313  ,  1?-  . 

3854 

c 

3855 

c 

LIST 

3856 

c 

FIO  -  SOLAR  RAE: -  NOISE  FLUX  (XE-22  WATTS/M**2) 

3853 

c 

FlOB-  81-DAY  AIT  AGE  FIO 

3858 

•: 

GI  “  GEOMAGNETI -■  .ACTIVITY  INDEX,  AP 

3859 

- 

LAT  “  GEOGRAPEl-  ZATITDDE  AT  PERIGEE  (IN 

RAD) 

3860 

■: 

SDA  -  SOLAR  DECLINATION  ANGLE  (IN 

RaD) 

3961 

c 

SHA  -  SOLAR.  HOCF  ANGLE 

3862 

c 

DY  -  D.Y  (DAY  NIUBER/TROPICAL  YEAR)?  1 

3963 

c 

R  -  0.31  (DICRILAL  FACTOR) 

3864 

c 

3865 

c 

CONSTANTS  --  C-SOLAP.  ACTIVITY  VARIATION.  BETA,  ETC. 

3866 

- 

D-GEOMAGNETIC  VARIATION.  E-SIMIANNVAL 

3863 

c 

3869 

Cl  -  383.0 

3869 

C2  -  3.32 

3970 

C3  -  1.80 

3871 

c 

3872 

PI  -  3.14159265 

3873 

CON  -  0. 01745329252 

3874 

BETA-  -37.0*CON 

3875 

GAMMA-  43.0»CON 

3976 

P  -  6.0»COK 

3H73 

XM  -  2.5 

3878 

XNN  -  3.0 

3839 

c 

3880 

D1  -  28.0 

3891 

D2  -  0.03 

3882 

D3  -  1.0 

3883 

D4  -  100.0 

3884 

D5  -  -0.08 

3885 

c 

3996 

El  -  2.41 

3887 

E2  -  0.349 

3398 

E3  -  0.206 

3889 

E4  -  360.*CON 

3  8  90 

E5  -  226.5*CON 

3891 

E6  -  720.*CON 

3  8  92 

E7  -  247.6*CON 

3  8  93 

E8  -  0.1145 

3894 

E9  -  0.5 

3  8  95 

ElO-  E4 

3896 

Ell-  342.3’'CON 

3393 

E12-  2.16 

3898 

r 

3  8  99 

c 

SOLAR  ACTIVITY  VARIATION 

3  900 

5  901 

TC  -  Cl  +  C2»F1C"  C3*(F1C  -  FlOB) 

3  90  2 

■: 

3  90? 

c 

DIURNAL  variation 

■3  5 

ETA  -  0 . 5"ABS : aLAT  -  SDA) 

5  90 

THETA  -  0  .  S'-ABS  (XLAT  SDA) 

3  9  0  " 

TAU  —  SHA  *  SETA  *  F*SINfSHA  GAMMAt 

3  ^08 

TF I-2*FI 

3  ?  ^ 

IF  (TAl'i  210,  23'-  .  12 

3  9 1 0 

210  IF(TAU*FI)  222, 232. 250 

3  311 

220  TA'’-TAU->-TPI 

3  912 

GC  TC  21: 

3  91? 

23''’  IFITAU-PIi  25:. 2  7  2. 2  4  2 

3914 

2  40  TAL’-TAD-TPI 

3  9  15 

GO  TO  230 

3916 

250  CONTINUE 

DIDRNAL  VARIATI 
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A1  -  (SIN  (THETA)  )  ♦’■XM 
A2  -(COS  (ETA)  )  **)CM 
A3  - (COS (TAO/2 , ) ) **XNN 
B1  -  1.0  +  R*A1 
B2  -(A2-A1)/B1 
TV  -  Bl» (  1 .  *  R*B2*A3) 

TL  -  TC»TV 

r- 

C  GEOMAGNETIC  VARIATION 

n 

TG  -  D3*GI  +  D4* (l-EXP (D5»GI) ) 

C  SEMIANNUAL  VARIATION 

G3  -  0.5»(1.0  +  SIN(E10»DY  +E11)  ) 

G3  -  G3**E12 

TADl  -  DY  +  E8* (G3  -  E9) 

G1  -  E2  +  E3» (SIN(E4*TA01  +  E5) ) 

G2  -  SIN(E6*TA01+  E7) 

TS  -  El  +  F10B»G1*G2 

C  EXOSPHERIC  TEMPERATOPi: 

n 

TE  -  TL  +  TG  TS 

RETURN 

END 

SUBROUTINE  THE 

COMMON/COMJAC/XLAT, XLONG, SDA, SHA.DY, R, T, EM 

COMMON/ lOTEMP /lOTEMl, IOTEM2, lUG, lUN, DD, XMJD, PHIl , PHI , 

NSAME.RPl.  RDl,  RTl,  SPl,  SDl,  STl,  RUl,  RVl,  SUl,  SVl, 
$  MN,  IDA,  lYR,  HI,  PHIIR,  THETIR,  G,  RI ,  H,  PHIR,  THETR,  FIO ,  ElOB,  AR  , 

S  IHR,MIN,NMORE,DX,HL,VL,DZ,DUMMY2(25) 


C  LIST 
C  INPUT 

C  MN-MONTH.  IDA-DAY .  lYR-HEAR.  HR  -  HOUR.  MIN  -  MINT 
C  XLAT  -  LATITUDE  (INPUT-GEOCENTRIC  LATITUDE.) 

C  XLONG-  LONGITUDE (INPUT-GEOCENTRIC  LONGITUDE.  OUTPUT 

C  OUTPUT 

C  SDA  -  SOLAR  DECLINATION  ANGLE  (IN  RAD) 

C  SHA  -  SOLAR  HOUR  ANGLE  (IN  RAD) 

C  DD  -  DAY  NUMBER  FROM  IJAN. 

C  DY  -  DD/TROPICAL  YEAR 


■180  TO  +  180) 


SET  CONSTANTS 

YEAR  -  365.2422 
YR-IYR 

6  DY  -  DD/YEAR 
30  FMJD  -  XMJD  -  2435839. 

CO.PUTE  GREENWICH  MEAN  TIME  IN  MINUTES  GMT 


XHP  -IHP 
XMIN  -  MIN 
'GMT  -  b'T'XHP. 


1  ':>7  4 

7' 

3  97=^ 

COMPUTE  GREENWICH  MEAN 

XJ  -  (XMJD  -  241532 

3  979 

Al-99. 6909833 

3974 

A2  -  36000.76854 

3  980 

A3  -  0.00038708 
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3981 

3982 
3  983 
3984 
3935 
3  998 
398’ 

3988 

3989 

3990 
3  9  91 
3992 
3  993 
3  994 

3995 

3996 

3991 
3  9  98 

3  99? 

4  00  0 
4  001 
4002 
40C3 

4004 

4005 

4006 
400"' 
4008 
4  00  9 
4  010 
4011 
4  012 
4  013 

4014 

4015 

4016 
401"' 

4018 

4019 

4020 
402  1 
4  0  2  2 
4  323 
4  02  4 
4  '■  2  5 
4026 
402" 
4  0  2  8 
4  02  9 
4.-110 

4 '?  3  1 
4 '  j  J  2 
4C33 

4:14 

4i'  lo 

4  -  ! 

4:3" 

4  ■  !  a 
4'  1-1 
4  "  4 
4  3  4  1 
4  ■■  4 ; 

4143 

^  44 


A4  -  0.2506844" 

GP  -  A1  +  A2»XJ  *  A3*XJ*XJ  A4*GMT 
N  •  GP/360. 

XN  -  N 

GP  -  G?  -  XN*3  6.". 

COMPUTE  RIGHT  ASCEK3I0N  POINT  -  PAP  (IN  DEG) 

1ST  CONVERT  GEOCENTRIC  LONGITUDE  TO  DEG  LONGITUDE  -  WEST  NEG  S  EAS 

IFACT  -  XLONG;'lS3. 

XEACT  -  IFACT 

XLONG  -  360.  •  XEACT  -  XLONG 


RAF  “  GP  *■  XLCNG 
N  «  PAP/ 3 60. 

XN  -  N 

PAP  -  RAP  -  XN»350. 

COMPOTE  CELESTIAL  LONGITUDE  -  XLS  (IN  RAD)  -  -PI/2  TO  +PI/2 

El  -  0.017203 
B2  -  0.0335 
B3  -  1.410 
Y1  -  B1*FMJD 

XLS  =  Y1  *  B2»3i:i'Y:)  -  B3 

TP  I  -  6.28318 
N  »  XLS /TP I 
XN  -  N 

XLS  -  XLS  -  XN'Ti: 


C  COMPOTE  SOLAR  DECLl  ATION  ANGLE  -  SDA  (IN  RAD) 

B4  -  (TFI/360. ' •  .3.45 

SDA  -  ASIN  (SIN  i:- ■  S)  *SIN  (B4)  ) 

C 

C  COMPUTE  RIGHT  ASCE) SION  OF  SON  -  RAS  (IN  RAD)  -  -PI/2  TO  +PI/2 


RAS  -  ASIN  (TAN  C  :  A'  /TAN  (B4  )  ; 
POT  PAS  IN  SAME  QU.J  OPANT  AS  XLS 


FI  -  3.14159265 
FI  2  -  PI  .'2  . 
PI32-  3.*PI2 
RAS  -  ABS(PAS> 
TEMP  -  ABS(XLSi 
IF (TEMP  -  PI2- 
lO"?  IF  (TEMP  -  PI;  1 
1^5  RAS  -  PI  -  PA.3 
GC  TO  130 

11:  IF (TEMP  -  FI32' 
115  PAS  -  FI  1-  FAS 
GO  TO  130 
PAS  -  TFT  -  - 

13^  PAS  -  -FAS 
34  ■  ""riTIN'X 


. 130, 100 
105. 110 


5, 115, 120 


lOMFVTE  30 LAP  h;-;;  -  sha  (in  :eg)  -  - 


SHA  -  PAP  ■*■(?:  3  :  .  -  PAS 

IF'SHA)  210,233  .33 
3.13  IF(3HA*Pi;  2  2  2  5  3' 
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4045 

4046 

4047 

4048 

4049 

4050 

4051 

4052 

4053 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 
4  0  65 

4066 

4067 

4068 

4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 
4096 
4096 
4  09'’ 
4098 
4  0  99 
^100 

4101 

4102 
4  10  3 

4104 

4105 

410'’ 

4108 


220  SHA-SHA+TPI 

GO  TO  210 

230  IF(SHA-PI)  250,250,240 
240  SHA-SHA-TPI 
GO  TO  230 
250  CONTINOE 

RETURN 

END 

SOBRODTINE  OSGRIO 

C 

C....  THIS  ROUTINE  GENERATES  THE  DATA  FOR  THE  16  POINT  GRID  USED  BY 
C  THE  GRAM  PROGRAM  AT  ALTITUDES  BELOK  25  KM  (ALSO  USED  BETKEEN 

C  25  AND  30  KM  FOR  INTERPOLATION  WITH  THE  GROVES  MODEL) . 

C....  THE  DATA  CONSISTS  OF  PRESSURE,  DENSITY,  TEMPERATURE, 

C  PRESSURE  VARIANCE,  DENSITY  VARIANCE,  AND  TEMPERATURE  VARIANCE 

C  FOR  LATITUDES  20-65  AND  LONGITUDES  35-140  WEST  (CONTINENTAL  US  +) , 

C  DATA  IS  AT  EACH  5  DEGREES  OF  LAT  AND  LONG,  AND  0  TO  25  KM  IN  ONE 

C  KM  INCREMENT , 

C 

C..  .  ALTHOUGH  NOT  THE  MOST  EFFICIENT,  THIS  ROUTINE  IS  DESIGNED  TO 

C  INGERFACE  WITH  THE  GRAM  PROGRAM  WITH  MINIMUM  OF  IMPACT.  THUS  THE 

C  NEW  GRID  POINTS  ARE  DETERMINED  AS  BEFORE  (AS  A  FUNCTION  OF  WHERE 

C  YOU  ARE  AND  WHERE  YOU'RE  HEADED).  THIS  ROUTINE  THEN  OBTAINS  THE 

C  DATA  FROM  MEMORY  AND  TRANSFERS  IT  TO  THE  ARRAY  LOCATIONS  EXPECTED 

C  BY  THE  GPAM  PROGRAM. 

C....  THIS  ROUTINE  ASSUMES  THAT  THE  TRAJECTORY  WHEN  BELOW  25KM  WILL 
C  ALWAYS  LIE  WITHI.V  LAT  20-65  AND  LONG  35-140  (WEST)  .  OUTSIDE  THIS 

C  AREA,  DATA  ON  THE  BORDER  OF  THE  REGION  WILL  BE  USED.  THUS  THE 

C  TRAJECTORY  IS  ASSUMED  TO  ALWAYS  LIE  WITHIN  THE  NATIONAL 
C  METEOROLOGICAL  CENTER  DATA.  LOGIC  FOR  POLAR  AND  SOUTHERN 
C  HEMISPHERE  DATA  HAS  BEEN  REMOVED. 


C. 

r 


WRITTEN  23  JAN  89  L  SCHILLING  NASA/ADFRF . 


COMMON  /C4 


GLAT(16)  ,GL0N(16)  ,  NG,  P  ( 1 6,  2 6)  ,  D  ( 1 6 ,  2 6)  , 

T  (16,  26)  , 

SP  (16, 

26)  ,  SD  (16,  26)  , 

ST(16,26) , PLON, CLON, HS 

COMMON  /lOTEMP/ 

lOTEMl 

, IOTEM2 

lUG 

, lUN  , DDD  , XMJD 

,PLAT  , 

CLAT 

,NSAME 

RPl 

,RD1  ,RT1  ,SP1 

,  SDl 

STl 

,  RUl 

RVl 

, SUl  , SVl  , MN 

,  IDA 

lYR 

,  HI 

PHIIR 

,THET1R,GZ  ,RI 

,  z 

PHIR 

, THETR 

FIO 

,F10B  ,AP  ,IHR 

,MIN 

NMORE 

,DX 

HL 

, VL  , DZ  , B 

,EPS 

lOPP 

,  LOOK 

DUMMY (21) 

COMMON  /PDTCOM/ 

IU4 

, MONTH 

lOPR 

,  PG(18,  19)  ,  TG(18,  19)  , 

TG(18, 

19) , PSP (8, 10, 12) , DSP (8, 10,12), TSP (8,10,12), 

FAC (17 

,5)  ,  DAQ(17, 5)  , 

TAQ(17, 5)  ,  PDQ(17, 5) 

,  DDQ (17, 5) 

Tie (17 

,  5)  ,  PR(20,  10)  , 

DR(20, 10) ,TR(20,10) 

,UAQ(17,  5) 

VAC  ( 1 

, 5) , UD0(17 , 5) , 

VDQ(17 ,5) ,UR(25, 10) 

,  VR(25,  10) 

?  2 

,DQ 

TQ 

,  U(3  ,  ’.'Q  ,  P(2A 

,  DQA 

“ :  .9 

.  UA 

VA 

,  lOFC  .  PLF  (25,10). 

DLP  (25,  10) 

■".2  '  55  ,  lOi  .  ULP  (25,101  ,  ■.'LF  <25.  10)  ,UDL(25.  lOl  , 
Cl  '  25  ,  lOi  .  UDS  (25,  iri)  ,  '^TS  (25.  10) 


COMMON  .'IPPTR  :??C 

COMMON  NASFGM  T',“.T'5720i  ,DDAT(5720i  ,TDAT(5720)  . 

SFDAT  (  6-2r,,  ^  SCDAT  '5720)  ,  STOAT  (5720) 


IF  (NSAME.EQ. '. )  RETURN 
IPRT-0 
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4109 

LOOK-0 

4110 

F  -  0.017453293 

4111 

NG  -  16 

4112 

c 

4113 

c . 

LONG/LAT  DISPLACEMENT  FROM  PREVIODS  TO  CORRZNT  POSITION. 

4114 

c 

4115 

DX  -  PLON  -  CLON 

4116 

DY  -  ClAT  -  PIAT 

4117 

c 

4118 

IF  (DY)  20,10,20 

4119 

10 

IF  (DX)  15,12,15 

4120 

12 

K  -  0 

4121 

GO  TO  40 

4122 

15 

THETA  -  180.  +  3IGN(90.,DX) 

4123 

GO  TO  30 

4124 

20 

THETA  -  ATAN (DX/DY) /F 

4125 

IF  (DY.GT.O.)  THETA  -  THETA  +  180. 

4126 

IF  (THETA. LT.O.;  THETA  -  THETA  +  360. 

4127 

r 

4128 

n 

THETA  -  AZIMDTE  .V!CLE  OF  TDAJEv  *Cr.Y,  ZZZZ  TO  ORIENT  lAI-LON  Gkii 

4129 

r 

COMPUTE  INDEX  USED  IN  COMPUTED  GO  TO  FOR  110  THRU  180 

41371 

<2 

4131 

30 

K  -  INT((THETA  ^  67.5)/45.) 

4132 

IF  (K.GT.8)  K-K-8 

4133 

r 

4134 

C  , 

INITIAL  ESTIMATE  OF  REFERNCE  LATITUDE  (LOWER  LEFT  GRID  POINT) 

4135 

r 

4136 

40 

LATO  -  5*INT  (CL;-.T,'5.  ) 

4137 

IF  (CLAT.LT.C.'  LATO  -  LATO  -  5 

4138 

c 

4139 

c , 

INITIAL  ESTIMATI  OF  REFERENCE  LONGITUDE  (LOWER  LEFT  GRID  POINT) 

4140 

c 

4141 

LONO-5»INT (CLON  5.) 

4142 

2 

4143 

2  . 

ADJUSTS  LATO,  LOCO  ACCO]RDING  TO  DIRECTION  OF  TRAJECTORY  AZIMUTH 

4144 

2 

4145 

IF  (K.GT.O)  GO  10  100 

4146 

LATO  -  LATO  -  5 

4147 

LONO-  LONO  +  iL 

4148 

GO  TO  190 

4149 

100 

GO  TO  (110, 120, 130, 140, 150, 160, 170, 180) , K 

4150 

110 

LATO  -  IATO-10 

4151 

LONO  -  LONO  1C 

4152 

GO  TO  190 

4153 

120 

LATO  -  lATO-lC 

4154 

LONO  -  LONO+15 

4155 

GO  TO  190 

4156 

130 

LATO  -  LATO-5 

415' 

LONO  -  LONO-^15 

4  153 

GO  TO  190 

4159 

140 

LONO  -  LONO* 15 

416C 

GO  TO  190 

4161 

150 

LONO  »  LONO*i: 

4162 

GO  TO  190 

4163 

160 

LONO  -  LONO*= 

4  164 

GC  TO  19C 

4165 

1 ' 0 

LATO  -  LATC-3 

4176 

LONO  =  LONO *5 

4167 

GO  TO  190 

4  1  68 

180 

LATO  =  LATO - „ 

4  169 

LONO  =  LONO*; 

417  0 

190 

IF  ( LONO. GE, 360  LONO  »  LONO  -  360 

41'1 

IF  (LAT0.GT.'5'  LATO  -  75 

4172 

DLI-1 . 25 
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417j 

4174 

4175 
<•176 
41‘’7 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 
4  ion 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 

4202 

4203 

4204 

4205 

4206 

4207 

4208 

4209 

4210 

4211 

4212 

4213 

4214 

4215 

4216 
4  217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 
4  2  2  8 

422  9 
4  2  30 
4  2  3  1 
4232 

423  ^ 
4/:  j4 

4235 

4236 


IF(ABS(CLAT) -GE. 165  GO  TO  192 

DLI-3 .0 
LATO— 18 

C....  LATITODE,  LONGIIODE  GRID  AT  5  DEGREE  INTERVALS 

192  DC  195  I-l, 4 
112  -  1+12 
DO  195  J-I, 112 , 4 
GLAT(J)  -  LATO  +  DLI*\J-I) 

195  GLON(J)  -  LONG  -  5.  *  (I-l) 

C....  PDT  DATA  FROM  STORED  DS  GRID  IN  ARRAYS.  THIS  DATA  HAS  ALREADY 
C  BEEN  TESTED  FOR  ZEROS,  AND  HAS  GONE  THRODGH  RODTINE  'ADJUST' 

C  PRIOR  TO  STORAGE,  THUS  THIS  PROCESS  HAS  BEEN  REMOVED  FROM  THIS 

C  ROUTINE. 


C . . . .  TRANSFER  DATA  TO  GRAM  PROGRAM  ARRAYS . 


DO  11-1,16 


COMPUTE  SINGLY  DIMENSIONED  ARRAY  INDEX.  LIMIT  LATITUDE 
AND  LONGITUDE  COMPONENTS  TO  STAY  WITHIN  TABLE  BOUNDARIES. 


ILAT-GLAT 'Ii:  +0.1 
IF(ILAT.LT.2C)  ILAT-20 
IF (ILAT.GT. 65)  ILAT-65 


ILON-GLON(II' +0.1 
IFdLON.LT.  35)  ILON-  35 
IF (ILON.GT. 140)  ILON-140 

II  -  ( (ILAT-2C) /5)»572  +  ( (ILON-35) /5) *26  +  1 


12 

-11+25 

13 

-  0 

DO 

I-Il, 12 

13  -  13+1 

P  (II, 13) 

- 

PDAT (I) 

D  (II, 13) 

- 

DDAT (I) 

T  (II, 13) 

- 

TDATd) 

SP  (II. 13) 

- 

SPDAT  (I) 

SDdl.  13) 

- 

son AT (1) 

STdl,  13) 

■1 

STOAT  d) 

ENDDO 

ENDDO 

RETUPJJ 

END 

SUBROUTINE  WIND 

COMMON  'WINCOM,  .®HO.  FCORY,  DX5,  DYS,  PX,  FY.  PXX,  PXY,  PYY,  U,  V,  T,  TX,  TY, 
$  DU  .  DV,  P  ,  UPPi; .  •■'PRE  .  DUPRE,  DVPRE 
COMMON  / lOTEMP  CUMl ' , PHI , DUM2 ( 11 ) , MU, DM2 A (5).G,P,H,PHIP, 

STHETR, DUMO ( 15  , FLAT. DUMMY ( 19) 

COMMON /CHIC, 'D'JM  '  15  ,  IWSYM,  UCOEF  <14.9).  VCOEF  ( 14  ,  9) 

ABSPHI-ABS (PHI? 

IF  I  ABSPHI  .  LT  .  :  .  :  1'453293*FLA'*'  GC  TO  41; 

If  PHO.OT  n  I.UI.O.  .AND.  ABS  ( FCCRY )  .  GT  .  0  .  !  GO  TO  20 

U  -  0. 

V  -  0 . 

DU  -  0.0 
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4237 

DV  -  0,0 

4238 

IF  (ABS(FCORY)  .I.E.C.)  GO  TO  31 

4239 

RETDRN 

4240 

20  FCORX  -  FCORY’CX5/OY5 

4241 

U  -  -  PY/ (FCORY*?-aO) 

4242 

V  -  PX/ (FCORX*RHO) 

4243 

DU  -  - (G*TY) / (FCCRY*T) 

4244 

DV  -  (G*TX) / (FCORX’T) 

4245 

31  IF(H.GT.20.AND.H.LT.95.)GOTO  99 

4246 

IF  (ABSPHI.GE.0.017453293»FLAT)  RETURN 

4247 

40  CONTINUE 

4248 

D-OPRE 

4249 

V-VFRE 

4250 

DU-DUPRE 

4251 

DV-DVPRE 

4252 

IF  (H.GT.20.  .AND.  H.LT.95.)  GO  TO  99 

4253 

RETDRN 

4254 

C.  .  .SPHERICAL  HARMONICS  SECTION . 

4255 

99  IH-INT(H) 

4256 

IF (IH.LT.25)G0TC  130 

425"’ 

IF(IH.GE.90)GOTO  140 

4258 

IHl-5*INT(H/5. ) 

4259 

IH2-IHl-^5 

4260 

CALL  SPHERE (MN , IHl , PHIR,  THETR, US, VS) 

42  61 

CALL  SPHERE (MN, IH2, PHIR, THETR, nS2 , VS2 ) 

4262 

FACS- (H-IHl) /5 . 

4263 

U-ns+ (OS2-OS) *FACS 

4264 

V-VS+ (VS2-VS) 'FACS 

4265 

DU- (US2-US) /500C . 

4266 

DV-(VS2-VS) /500C. 

4  2  67 

RETURN 

42  68 

C...LOW  ALTITUDE  FAIRING 

4269 

130  CALL  SPHERE (MN, 25 , PHIR, THETR, US, VS) 

4270 

FACS-(H-20.) /5. 

4271 

FACG-l.-FACS 

42-’2 

U-FACG»U+FACS*OS 

4273 

V-FACG*V+FACS*VS 

4274 

CALL  SPHERE (MN, 30, PHIR, THETR, US2, VS2) 

4275 

DOS- (US2-OS) /5000 . 

4276 

DVS-(VS2-V3) /5000. 

42'’7 

DO  -  rACG*DO  +  FACS*DOS 

4278 

DV  -  FACG*DV  +  FACS*DVS 

4273 

RETURN 

4280 

C...HIGH  ALTITUDE  FAIRING 

4281 

140  CALL  SPHERE (MN, 90, PHIR, THETR, OS, VS) 

4282 

FACS- (H- 90 . ) /5 . 

4783 

FACG-1 . -FACS 

4284 

D-FACS*U+FACG*OS 

4285 

V-FACS ♦V+FACG*VS 

4286 

CALL  SPHERE (MN, 85 , PHIR, THETR, OS2 , VS2) 

42  30 

DOS-(US-US2) /SC30. 

4288 

DVS-(VS-VS2)  -'5000. 

4289 

DO-FACG*DU+FACS‘D”S 

42 

DV-FACG*DV+f,.3^ 

4291 

PXTURN 

42  92 

END 

42  92 

- 

42  94 

FACTION  PANF-X 

1094 . 600 

4  2  95 

7 

1 ‘ 

4  2'^*: 

0....  THIl  roN._i*Of:  .S  MCCIIilED  vEP.SiOtl  O'i-  b'JBROOIINE 

10  9  4 . 9  2  '? 

429-' 

7  PANDU,  WHICH  -.■■•AS  ■'.■P.ITTEN  FOP  AN  IBM  3  60. 

10  94.  9  ' 

42  90 

c 

1095 . 000 

4  2  99 

0.,..  DESCRIPTION  OF  VAR.IABLES : 

1095.100 

4  3  :■  C 

0  IX  -  FOP  THE  FIRST  ENTRY  THIS  MOST  CONTAIN  ANY  ODD  INTEGER 

1095 .200 
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4301 

c 

NUMBER  WITH  NINE  OR 

LESS  DIGITS. 

AFTER  THE 

FIRST  ENTRY, 

1095.300 

4302 

C 

IX  Wlli  be  set  10  THE  PREVIOOS  VALUE 

OF  lY, 

COMPUTED  BY 

1095.400 

4303 

c 

THIS  ROUTINE. 

1095 . 500 

4304 

c 

lY  -  A  RESULTANT  INTEGER 

RANDOM 

NUMBER 

REQUIRED 

FOR  THE  NEXT 

1095. 600 

4305 

c 

ENTRY  TO  THIS  ROUTINE.  THE 

RANGE 

OF 

THIS  NUMBER  IS 

1095 .700 

4306 

c 

BETWEEN  0  AND  2**31 

1095  nOO 

4307 

c 

YFL  -  THE  RESULTANT  UNIFORM  DISTRIBUTED, 

FLOATING 

POINT,  RANnOM1095. 9U0 

4308 

c 

NUMBER  IN  THE  RANGE 

0.0  TO 

1.0 

1096.000 

4309 

c 

X  -  DUMMY  ARGUMENT. 

1096.100 

4310 

c 

1096.200 

4311 

c 

REMARKS: 

1096.300 

4312 

n 

THIS  ROUTINE  IS  SPECIFIC  TO  SYSTEM/360  AND 

WILL  PRODUCE  7**29 

1096.400 

4313 

c 

TERMS  BEFORE  REPEATING. 

1096.500 

4314 

c 

1096.600 

4315 

c 

METHOD; 

1096.700 

4316 

c 

POWER  RESIDUE  METHOD  DISCUSSED  IN 

IBM  MANUAL  C20- 

8011, 

1096.800 

4317 

c 

RANDOM  NUMBER  GENERATION  AND  TESTING. 

1096.900 

4318 

1097.000 

4319 

DATA  IX  /113/ 

1097.100 

4320 

C 

1097.200 

4321 

lY  -  IX*65539 

1097.300 

4322 

C 

1097.400 

4323 

IF(IY)  5,6,6 

1097.500 

4324 

c 

1097 . 600 

4325 

5 

lY  -  lY  +  2147433647  +  1 

1097 . 700 

4326 

c 

1097 . 800 

4327 

C 

YFL  -  lY 

1097.900 

4328 

c 

1098.000 

4329 

RANF  -  YFL*0.4636613E-9 

1098.100 

4330 

c 

1098.200 

4331 

IX  ”  lY 

1098.300 

4332 

c 

1098.400 

4333 

RETURN 

1098.500 

4334 

END 

1098.600 

4335 

1  1 

T72- 

4336 

r 

4337 

SUBROUTINE  GPl."  .-E  (  RIO,  RI, 

AE,  BE, 

RES,  lEMO,  ICOORD,  GRNGE  ) 

4338  C 


4340 

c 

4341 

c 

PURPOSE 

1)  CO-' 

?UTE  THE  GROUND  RANGE  FROM  POSITION  (RIO)  TO 

c 

4342 

c 

PC 

ITION  (RI)  IN  THE  APPROPRIATE  COORDINATE  SYSTEM 

c 

4343 

c 

AS 

GIVEN  BY  (ICOORD)  AND  BY  THE  EARTH  MODEL  FLAG 

c 

4344 

(2 

{ 5 

IMO) 

c 

4345 

C 

n 

4346 

(2 

INPUTS 

DESCF 

.7TI0N 

c 

4347 

r- 

c 

4348 

z 

(RIO) 

MISSl 

-E  INITIAL  POSITION  VECTOR  ( RXI , RYI , R2I )  (M) 

c 

434  ? 

n 

(RI) 

MISS' 

0  CURRENT  POSITION  VECTOR  I RXI , RYI , R2I )  (M) 

c 

4350 

z 

(AE) 

EAP.UL 

MODEL  SEMI-MAJOR  AXIS  (M) 

r 

4351 

z 

(BE) 

eap.t:: 

MODEL  SEMI-MINOR  AXIS  (M) 

C 

4  3  5  2 

(RES) 

SPHE? 

CAL  EARTH  RADIUS  (M( 

r 

4  3  53 

c 

(lEMO) 

EAP.IL- 

MODEL  FLAG: 

r* 

4  354 

=  C 

-  FLAT  EARTH 

<z 

4  3  5  5 

z 

-  riAT  EAPTH 

- 

.35c 

z 

-  SPHERICAL  EAPTH 

z 

4  3  5- 

3 

-  rSLATE  EAPTH 

4  3  58 

r 

'  7  ' 

'  '.CT  '"''STU:-:  .7  FTAar 

_ 

4  35? 

C 

=  : 

-  FLAT  EARTH  OR  SPHERICAL  EARTH  -  AT  SURFACE 

c 

4  3  60 

X  -  L>CAL  EAST 

r' 

4  3  61 

Y  -  L~UAL  NOPTH 

r 

43  62 

c 

Z  -  UP 

C 

4763 

c 

-  OBLATE  OP,  SPHERICAL  EARTH  -  EARTH  CENTERED 

r 

4364 

z 

X  -  B.R.P.  MERIDIAN 

r 
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X  -  NORMAL  -  EQUATORIAL  PLANE 
Z  -  THROUGH  NORTH  POLE 

ourpuTs  descr:?tion 

(GRNGE)  GRCUi:_  RANGE  (ALONG  THE  SURFACE  OF  THE  EARTH  MODEL) 
FROM  rOSITION  (RIO)  TO  POSITION  (RI) 


REQUIREMENTS  1  SINGLE  TO  DOUBLE  PRECISION  -  DBLE 

:  DOUBLE  TO  SINGLE  PRECISION  -  SNGL 

:  I . P .  SQUARE  ROOT  FUNCTION  -  DSQRT 

i  D.P.  ARCTANGENT  FUNCTION  (+/-  PI)  -  DATAN2 

5  D.P.  SINE  FUNCTION  -  DSIN 

-  D.P.  ARCCOSINE  FUNCTION  -  DACOS 


RESTRICTIONS  1' 


.'HE  FLAGS  FOR  EARTH  MODEL  AND  COORDINATE  SYSTEM 
MUST  CONFORM  TO  THE  FOLLOWING; 
lEMO  ICOORD 


DIMENSION  RIO  P.IO(3) 


4398 

DOUBLE 

PRECISION 

DRXI, 

DRYI, 

DRZr, 

DREE, 

DR  YE, 

DR2E 

4399 

DOUBLE 

PRECISION 

DXI2, 

DYI2, 

DZI2, 

DRE, 

DECC 

4400 

DOUBLE 

PRECISION 

DXE2, 

DYE2, 

DZE2, 

DAE, 

DBE, 

DTHE 

4401 

DOUBLE 

PRECISION 

DRMI, 

DRME, 

DRR2, 

DTHR, 

DRES 

4402 

DOUBLE 

PRECisio;.- 

DSLA, 

DALG, 

DALA, 

DSL2, 

DRM 

DOUBLE  PRZCISICi;  DFO,  DFl,  DF2 

C 

DATA  DFO,  DFl,  DF2  /  O.ODO,  l.DO,  2  .  ODD  /' 

r 

IF(  lEMO  .GT.  1  )  GO  TO  10 
C 

CsWSWSW8WSWaWaWOW8WSWSWSWBW8W«W8W8W8WSW8W8W0W8waWSWSW9WSW8WBWBWSWBWB 


FLAT  EAP.TH 


lEMO  -  0  OR  1,  ICOORD  -  1  (N/A) 


G.RNGE  -  SQRTi  'FIO(l)  -  RI(1))**2  +  (RIO(2>  -  RI(2))**2  ) 

GO  TO  100 

CSWL’rfSWSWaWSWSWSWSWS'..  !  r  VSWSWSWSW8W8WSWSWSW9W3W8WSWSW8WSWSWSWSWSWSWS 

10  CONTINUE 


OTHER  THAN  FLAT  EARTH 


DPEI  -  DBLE  '  R.I'li  ) 

DRYI  -  DBLE  (  RI'2:  ) 

DP.ZI  -  DBLE  '  RI'3)  ) 
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4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 
44->7 

4438 

4439 

4440 

4441 

4442 

4443 

4444 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 
44  60 
4461 
4  4  62 
4463 
4  4  64 
4  4  65 

4466 

4467 

4468 

4469 

4470 

4471 

4472 
44'’3 
4  474 
44  75 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 
4  488 
448  9 

4490 

4491 
44  92 


DRXE  -  DELE  (  RIC(l)  ) 
DR YE  -  DELE  (  RIO (2)  ) 
DRZE  -  DELE  (  RIO (3)  ) 


IF(  lEMO  .EQ.  3  )  GO  TO  20 


C .  SPHERICAL  EARTH 


lEMO  -  2,  ICOORD  -  1  OR  2 


ORES  -  DELE  (  RES  ) 

IF(  ICOORD  .EQ.  1  )  DRZI  -  DRZI  +  DRES 
IF(  ICOORD  .EQ.  1  )  DRZE  -  DRZE  +  DRES 
r 

GO  TO  40 
C 

CswswsHswswswswawswswawswswswswawawawawawawswswawswawawswswawawawsws 

r 

20  CONTINUE 


C .  OBLATE  EARTH 


lEMO  -  3.  ICOORD  -  2 


DAE  -  DELE  (  AE  ) 
DEE  -  DELE  (  BE  ) 
DECC  =  (DAE/DBE!**2 
C 

DXI2  -  DRXI**2 
DYI2  -  DRYI**-2 


C 


C 


C 


DALG  -  DSQRT  (  DXI2  +  DYI2  ) 

DALA  -  DFO 

IF( (  DRZI  .NE.  DFO  ) .OR. 

*  (  DALG  .NE.  DFO  ))  DALA  -  DATAN2 (  DRZI,  DALG  ) 

DSLA  -  DSIN(  DALA  ) 

DSL2  -  DSLA*DSLA 

DRE  -  DAE/DSQRT(  DFl  +  (DECC-DFl ) ‘DSLZ  ) 

DXE2  -  DRXE**2 
DYE2  -  DRYE**2 

DALG  -  DSQRT  (  DXE2  DYE2  ) 

DALA  -  DFO 

IF((  DRZE  .NE.  DFO  ).OR. 

»  (  DALG  .NE.  DFO  ))  DALA  -  DATAN2 (  DRZE,  DALG  ) 


DSLA  -  DSIM(  DALA  i 
DSL2  -  DSLA*DSLA 


DRES  -  (  DPE  ^  DAE/DSQRT(  DFl  +  (DECC-DFl ) ‘DSLZ  )  ) /DF’ 


Cawawawawawawawa vgwswsu' swawswawswa wawswawawawa WSW3W9W a wawswaws 


40  CONTINUE 


.  .  GROUND  PAD  Jr: 

DPMI  -  cpx:-:-o:: 

*  :?Yi*rPYi 

+  C'P.ZI*DP2I 

DPME  -  DRXE*DPXE 

*  rPYE*DPYE 

+  DRZE*DR2E 

DTHP  -  DPXl'DFOi 

*  :?YI*DPYE 

*  DRZI*DR2E 
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4493 

DRR2  -  DSQRT  ' 

-MI*DRME  ) 

4  4  94 

DTHE  -  DFO 

4495 

44  96 

IF(  DRR2  .NE. 

■Q  !  DTHE  -  DTSR/DRR2 

449^ 

IF(  DTHE  .GT- 

1  )  DTHE  -  DFl 

44  98 

IF(  DTHE  .LT. 

'1  )  DTHE  -  -DFl 

4499 

c 

450C 

DTHE  -  DACOS  '  ^ 

:Z  ) 

4501 

DRM  -  DRES-^LT 

4502 

C 

4503 

GRKGE  -  SNGL  ■ 

) 

4504 

c 

4505 

CSWSWSWSWSWSWSWSWS^S 

4506 

4507 

100 

conti:4oe 

4508 

c 

4509 

RE  TORN 

4510 

END 

4511 

!  ?  T  7  2  4- 

4512 

SOBRODTINE  GEI". 

4513 

r 

4514 

c 

PXADS  SETD?  1  - 

CA  TAPE,  OR  NMC  GRID  DATA  CARDS, 

4515 

r 

AND  WRITES  SCPG.l 

IE  FILE  FOR  USE  BY  SELEC4 . 

4516 

c 

451'’ 

DIMENSION  Irlil 

451S 

r 

4519 

COMMON  /lOTEMT 

ICTEMl, IOTEM2, IDG, IDN, IDUM(6C) 

4520 

r 

4521 

OPENICTNir-IOTE:" 

. STATUS- ' SCRATCH ' , FORM- ’ UNFORMATTED ’ ) 

4522 

NREC-0 

4523 

IFdUN.EQ.S)  GO 

TC  2 

4524 

c 

4525 

OPEN (DNIT-IOT.  r 

LE- ' NMC . DAT • , STATUS- ' OLD ' , READONLY ) 

4526 

1 

PXAD  (ION,  300.  EN 

’9C)  N,IP 

4527 

300 

FORMAT (A2, 1917 

4528 

IF(N.NE.'N  ■;  ^ 

TO  € 

4529 

GO  TO  3 

4530 

2 

READ(5,100)  ip 

4531 

100 

FORMAT (1515) 

4532 

3 

DO  4  I-l, 15,3 

4533 

M-IP (I) 

4534 

IF(M.LT.l)  GO  T 

5 

4535 

IJ-IP (I+l) *1000 

?  d+2) 

4536 

WRITE (IOTEM2;  1 

4537 

NREC-NREC+1 

4538 

4 

CONTINUE 

453  9 

IFdUN.EQ.S)  G' 

:c  2 

4540 

GO  TO  1 

4541 

5 

IF(NREC.NE.19"" 

GO  TO  6 

4542 

IFdUN.EQ.5  5  G 

C  42 

4543 

IFdUN.NE.ICG: 

TO  4  2 

4544 

z 

MOVES  PAST  FIP- 

ZCF  ON  ONIT  lUG 

454  5 

41 

READ  dUG,  99??,  r 

=42)  IDOMKY 

4  54  6 

9999 

FORMA! 'AlO) 

4  5  4  - 

GD  TC  41 

4548 

42 

PETDPN 

4  54  9 

6 

STOP 

4557 

92 

WRITE  (6,  4001  I': 

4  551 

400  FOPWAT  1 IH  .  ' 

ATUPX  END-OF-FILE  FOUtlU  OH  dJIT  '.12, 

4  5  52 

S'C  CALLED  FPC" 

;  EFCCTINE  GETNMC.') 

455  3 

3  TCP 

4  5  54 

END 

4  5  5  5 

'  IT72- 

GETN 

GETN 

2 

GETN 

3 

GETN 

4 

GETN 

5 

GETN 

6 

GETN 

7 

GETN 

8 

GETN 

9 

GETN 

10 

GETN 

11 

GETN 

12 

GETN 

13 

GETN 

14 

GETN 

15 

GETN 

16 

GETN 

17 

GETN 

18 

GETN 

19 

GETN 

20 

GETN 

21 

GETN 

22 

GETN 

23 

GETN 

24 

GETN 

25 

GETN 

26 

GETN 

27 

GETN 

28 

GETN 

29 

GETN 

30 

GETN 

31 

GETN 

33 

GETN 

3  3 

GETN 

3  6 

GETN 

*) 

GETN 

4 

GETN 

41 
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0001  c . Load  a  file  of  STROCTDRE  and  PARAMETER  dafinition*  at  compila  tima 

000? 

0003  !!G  toolbox? . fine 

0004 

0005  c . Load  tha  ToolBox  traps 

0006 

000^  !!M  Inlines . f 

0008 

0009  - - 

0010  subroutine  SaveMissionFila 

0011  c - 

0012  c  Save  a  mission  file's  data  and  resource  forks  using  a  newly  opened 

0013  c  file  (which  may  overwrite  an  existing  file) .  Than,  close  the  file. 

0014  c  (The  dialog  box  contents  have  already  been  checked  for  validity.) 

0015  c 

0016 

OOl’  c . file  info 

0018 

0019  include  ’ Fileinf o . inc ' 

0020  include  ' RunSetup . inc ' 

0021  include  'traj.inc' 

0022  include  '  Tr  jCom .  me  ' 

0023 

0024  c . set  up  pointer  for  QuickDraw  globals 

0025 

002  6  poi.ntar  /  QDGlobals  /  qdg 

002"^  comir.on  /  QDGPtr  '  qdg 

0028 

0029  c . various  character  strings 

0030 

0031  atring*2S5  Prompt 

0032  string*255  MissionFileName 

0033  scring»255  RezLabel 

0034  string*255  ItemText 

0035  charactor*255  CharString 

0036 

0037  c . record 

0038 

0039  record  /  SFReply  /  SFR 

0040 

0041  c . prompt  location 

0042 

0043  record  /  Point  /  PrmptPt 

0'^44 

0045  c . cursor  handle 

0046 

0047  record  /  CursHandle  /  CursorHndl 

0048 

0049  c . file  information  parameters 

0050 

0051  record  /  SFTypeList  SFT 

0052  record  /  FInfo  '  fndrinfo 

0050  character*4  FilTyp 

0054  character*4  fMaker 

'055  string*255  FilNam 

o-oso 

005~  c . I/O  error  flags 

0058 

0^59  integer*?  iosErr,  los 

0  0  60 

^'061  o . screen  posit:..;.",  r.nfo 

‘0  62 

0063  integer*?  menuHeight 

0064  integet*4  left,  bottom,  top,  right 
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0065 
0066 
006’’ 
Q0€B 
0069 
0070 
00 '1 
0072 
0073 
00' 4 
00'5 
0076 
00'' 
0078 
00'9 
00  80 
0081 
C'82 
0C83 
0084 
0085 
0096 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
00  9' 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
010' 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 


012  8 


integor*4  dial;  ,  Oaight ,  dialogWidth 

c . dijnansions  of  s'  indard  SFPut.Fil«  dialog  box  (InsidaMac,  C.iapter  47) 

parameter  (  dialogHeight  —  136  ) 

parameter  (  dialogWidth  —  348  ) 

c . handle  for  ST?  ita 

record  /  String.-  indie  STRHndl 
record  /  Handle  /  RezHndl 

c . varia'  s  name  1  els  for  external  plot  file 

character*16  Na- 


c . set  the  prompt 

prompt  *  'Save  ission  data  file  as' 

c . get  the  me.n'jHe-'  ,t  (don't  assume  it  is  fixed  at  20!) 

menuHeight  “  G-'  <BarHaight() 

c . get  the  screen  .tents  (use  i*4  for  screen  math  per  Mac  Tech  Note  11') 

left  "  qdg'.t  eenBits . bounds . left 
right  -  qdg' . s  eenBits .bounds . right 
bottom  «  qdg' . r  eenBits .bounds .bottom 

top  “  qdg'.s  . eenBits .bounds .top  +  int 4 (menuHeight) 

c . sot  the  left  ar.  top  edges  of  the  save  file  dialog 

PrmptPt.H  “  right  -  left)  -  dialogWidth  )  !  2 

PrmptPt.i/  «  (  bottom  -  top)  -  dialogHeight  )  /  2  )  +  menuHeight 

c . chec)c  to  see  if  e  already  have  the  filename  for  saving 

if!  .not.  iGot'-  .File  )  then 

HisaionFilelii  »  'BDPS  Mission  Data' 
endif 

c . get  the  target  lename  for  the  save  (put)  operation 

call  SFPutFile  %val (PrmptPt) ,  %val (Prompt) ,  %val (MissionFiloNamo) . 
i  %val  (int4  (nil)  )  ,  <)rof(SFR)  ) 

c . RETUPJJ  if  no  r-.i  sion  data  file  was  selected  (cancel) 

if  (  .not.  SFr. .  .'od  !  then 
return 
else 

Ml s s  1  c nF lie !.  =  3FP  ,  fflame 

losErr  =  Se':  '  val  (  int  4  ( n:  1 )  )  .  •val  !  SFF. .  vRef  Num'  1 

o . open  the  r.e-'  -?  for)c 

open  I  unit*'!  f  ile-Mis  s ionFileName ,  creator- '  MDoF  '  ,  f  ilotypo- '  rtdf  ' 
4  statcsa  eW,  access— ' sequential '  ) 
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0129 

c  .  . 

.op«n  the  ne* 

.ource  fork 

01,0 

v  1 3  J 

call  Create.- 

:,le  (  'iref  (SFR.  f  name)  ) 

0132 

ioa  ■  Res 

0133 

RefNum  “ 

sFiie  (  %ref  (SFR.  fr.ajne)  ) 

013*1 

ios  •  Res. 

cr 

013  5 

:  1  36 

:  .  . 

.  setup  the  c".:..- 

.  >n  label  resource 

013  8 

STP.Hndl  -  N-. 

andle (  %val ( int 4 ( 2 55 )  )  ) 

013  9 

Re z Label  -  ’  ?■ 

3 con  Text' 

014" 

call  AddReso 

si  -val  !  STRHndl )  ,  »ival('STR  '), 

0141 

& 

%val (inti ( rOldMis sionText ) ) ,  %ref (RezLabei' 

0142 

RezHndl  *  ST3 

"j  * 

014  3 

call  WriteRes 

-rce<  %va I (RezHndl )  ) 

0144 

0145 

c  .  . 

. setup  the  lat • 

■ ude  resource 

0146 

014'' 

STRBndl  -  Ns- 

candle (  ;val (int4 (255)  )  ) 

0148 

Re 2 Label  -  ’I: 

-tial  Latitude' 

014? 

call  AddPes*.- j*: 

e'  %val (STRHndl) ,  %val('STR  '), 

0150 

« 

aval ( int2 ( rOldLatifide) ) ,  %ref (RezLabei)  ) 

0151 

Rezfindl  •  SX? 

'  d.' 

■0152 

call  WriteRec 

rce (  %val (RezHndl)  ) 

0154 

r  .  . 

•  setup  the  lo.**. 

.tude  resource 

0155 

315  6 

S’'P,Hndl  =  Ns 

iandle  (  %val  ( int 4  (255)  )  ) 

015' 

Ra 2  Label  “  1 

ctial  Longitude' 

015? 

call  AddRea^u: 

.■e(  ival  (STRHndl)  ,  %vaI('STR  '), 

'‘15  5 

& 

•val (int2 (rOldLongitude) ) ,  %re£ (RezLabei)  ) 

Olfe'O 

Rezflndi  •  SXR.- 

.-di 

0161 

"all  WriteRasc 

urce (  %val (RezHndl)  ) 

0162 

0163 

c  .  . 

•setup  the  dure 

tion  resource 

0164 

0165 

STRfindl  -  Ne-. 

Handle (  %val (int4 (255)  )  ) 

0166 

RezLabei  “  'Tl 

ight  Duration’ 

0160 

call  AddResou“ 

co(  %val (STRHndl) ,  %val('STR  '), 

0168 

& 

%val (int2 (rOldDuration) ) ,  %ref (RezLabei)  ) 

016? 

RezHndl  -  STF, 

.-idi 

0100 

call  MriteRes 

urce (  %val (RezHndl)  ) 

Cioi 

01 '2 

c  .  . 

, setup  the  aiti 

tude  resource 

n  1  -  T 

01^4 

STRHndl  -  NewEandle (  »val ( int 4 ( 255 )  )  ) 

0105 

RezLabei  -  'Initial  Altitude' 

1  "*  6 

call  AddResour 

ce(  %val (STRHndl)  .  »val('STR  '), 

01"” 

& 

%val ( int2 ( rOldAltitude ) ) ,  ^rof (RezLabei)  ) 

:  1  *’  p 

RezHndl  -  STFJ.ndl 

call  WriteP.esr 

urcef  %val (RezHndl)  ) 

0  S  ] 

.setup  the  asc-? 

r.t  selection  resource 

'7183 

STPHndl  -  ;:s 

Handle*  » val * ir t 4 ( 2 5 5 '  *  ' 

'■184 

Fez  Label  *  '  8--- 

zent  Profile’ 

■'  1  8  ■ 

call  AddPes  r'l 

cs  ••--al  (STPHndl  ^  .  •••al''STF  i, 

- 1  8  *' 

4 

•val  '  int2  *  r'lldAscen*"  1  ’  .  •  ref  1  RezLabei '  ) 

^:18^ 

:-'ezHr.dl  =  57r-i 

rcl 

.'188 

call  Writer^.: 

Grc“'  * val < zHn di i 

"  1  ?  ■' 

.  s  e  *■  u  c  the  c  7.  i . 

ate  lelection  resource 

:i  31 

■'  1 


STRHrd: 


(  •  val  (  int  4  ( 2  55  I 
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Re2La±>ei  »  'Cli.’nate  File’ 

-all  AddKescurcel  *val (STRBndl) ,  ^vali'STR 

*'-al  (  int2  <  rOldClimate)  )  ,  %ref  (  RezLabel)  ) 

Rezflndl  -  STP^ndl 

call  WriteReacurce ;  'va’ (Rezfindl)  > 

.aetup  the  deg  West. deg  East  radio  button  resource 

STRHndl  -  NewEandle (  •val ( int 4 ( 25^ )  1  ) 

RezLabel  -  'Degree  Radio' 

call  AddRosource(  »vai  ( STRHndj.  t  ,  'ival('STR  *), 

%vai ixnt2 ( rOldDegRadio) ) ,  %ref (RezLabel)  ) 

RezHndl  »  STRHndl 

call  WriteP.esource  (  %val  (RezHncU  )  ) 


....  *»et  :p  the  m.  km  radio  button  resource 

STRHndl  "  NewHaudle '  %val ( int 4 ( 255)  )  ) 

RezLabel  ■  'Dist'  .ce  Radio’ 

call  AddRe 'source  '  %val  (STRHndl)  ,  «ival  (  VSTR  '), 

4  %val  (int2  (rOldDisi-Kaaio)  )  ,  %ref  (RezLabel)  ) 

RezHndl  -  STRHndl 

"all  WritePeaour ce (  ^val (RezHndl)  ) 


.  .  .setup  the  sec  min/hr  radi-^  button  resource 

STRHndl  =  Nuwaandle (  %val (int4 (255)  )  ' 

RezLabel  «  ■T:..me  Radio’ 

'-all  AddP.eaou:  ce  '  »val  (STRHndl)  ,  %val('STR  '), 

;  «val  (int2  (rOldTimeRadio)  )  ,  %ref  (i.ezLabel)  l 

RezHndl  «  STPHndl 

call  WritePesource (  %val (RezHndl)  ) 

,  *,now  set  the  flag  because  we  have  a  ♦'argot  for  saving 

iGotOldFile  *  .true, 
endif 

.use  watch  curse:,  while  writing  data  and  resources 

curaorHndl  ■  Get -ursor  (  %val ( int2 ( 4 ) )  ) 

call  SetCursor  « val  (cur aor Hndl  .CRHDL'' .  CRF XR'^ )  ) 

.at  this  point  x:  the  logic,  the  file's  for)cs  should  both  be  open; 

.  ifor  each  item.  check  to  see  if  the  open  resource  file  already 
.contains  that  r-  nource;  if  it’s  there,  we  change  it;  otherwise, 
.we  add  a  resour  o  to  the  open  resource  file. 


02  41 

0'  2  4  2 

- 

. . .save  the  missc: 

0  2  4  ? 

0  2  4  4 

call  GetDIterr. ' 

24  = 

4 

;240 

call 

PezHndi  = 

STPHr.dl  =  PezH- 

:  4  ^ 

STPJincl .  shcl  ■  ,  . 

-  c,  ' 

call  lhangedPt. 

■.i  - : 

:all  WritePecc" 

. . .save  the  latct 

: .  5  4 

call  detDICer.  ■ 

ai  (GetSelection)  ,  %va''  (rMissionLabel)  , 
sf'DType,,  ^ref(DItem),  %ref (tempRect )  ) 

.'al  (Dltom)  ,  %  val  ( ItemText )  ) 

jcce^  val  f  '  3TP  »val  (  int2  (rCidMissior.Text )  ' 

r '  =  It  emXext 

Tce-  »val ( Pe zHndl )  ) 

' va 1  I RezHndl I  ’ 


■el 'GetSelection) ,  ^val (rLatitude) 
ef'DType),  %ref(DItoml,  *  re f ( tempRoct )  ) 
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02  5' 
0258 
0259 
0260 
02  61 
0262 
0  2  63 
0264 
0265 
0266 
026' 
02  68 
0269 
02'C 
02' 1 
02'2 
02' 3 
'O'-J 
02 '5 
02'6 

02'3 
02'9 
0280 
0281 
0282 
02  8  3 
0284 
0285 
0286 
02  8  0 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
029' 
0  2  98 
0299 
0300 
0301 
n  T  n  2 
0  30  3 
0  304 
0  3^5 
3  0  6 
3  0"^ 
"^30^ 
0  3  0? 


'"•3  1  ? 
3  1  4 


-5  2 

''■3  1"’ 
''  3  1  p 
0  319 


call  GetIText 
Razflndl.bhdi  * 
STRHndl  -  RezE. 
STRHndl.  ehdl''  .  ■ 
call  ChangadRsr 
call  WritaReso 


vai (Dltam)  .  %val ( ItamTaxt )  ) 

iRasourca (%val ( 'STR  ' ) ,  %val fint2  < rOldLatituda) ) ) 

r'  •  ItamTaxt 

rce {  %val (RazHndl)  ) 

a  (  %vai (RazHndl )  ) 


save  the  longi*  e  raaourca 


call  GatDItarr.  ■ 

& 

call  GatITaxt 
Razflndl.bhdi  * 
STRflndl  -  RezH. 
STRHndl ,  shdl  *  . 
call  ChangadRe 
call  WritaRaso'- 


ai (GatSalaction) ,  %val (rLongituda) , 
af(DTypa),  %raf (Dltam) ,  %raf (tampRact )  ) 

val (Dltam)  ,  %val ( ItamTaxt )  ) 

>tRasourca (%val ( *STR  ’)*  %val ( int2 ( rOldLongituda) ) ) 

r''  -  ItamTaxt 

rce (  %vai (RazHndl)  ) 

:e  (  %vai  (Razflndl)  ) 


save  the  durat: 


resource 


call  GatDItarr.' 

& 

call  GatITaxt 
Razflndl.bhdi  * 
STRHndl  -  RezH'. 
STRHndl . shdl" . s 
call  ChangadRes 
call  WriteRaso’, 


ai (GatSalaction) ,  %val ( r Du rat ion) , 
af (DTypa) ,  %raf (Dltam) ,  %raf (tampRact )  ) 

■'al  (Dltam)  ,  %val  ( ItamTaxt )  ) 

-cRasourca (%val ( *STR  ')»  %val (int2 ( rOldDuration) ) ) 

r"  -  ItamTaxt 

rce(  % vai (Razflndl)  ) 

a  (  %val (RazHndl)  ) 


save  the  aititu  resource 


call  GatDItam^ 

& 

call  GatITaxt  ' 
RazHndl. bhdl  = 
STRHndl  -  Razflr 
STRHndl , shdl^  .  s 
call  ChangadRas 
call  WritaReso-j 


li (GatSalaction) ,  %val ( r Altitude) , 

■af  (DTypa),  %raf  (Dltam)  ,  %raf  (tampRact )  ) 

val (Dltam)  ,  %val (ItamTaxt)  ) 

t Ra sou r ca (% val ( ' STR  ’ ) ,  ^val (int2 (rOldAltituda) ) ) 

r"  -  ItamTaxt 

rce (  ^val (RazHndl )  ) 

a  f  %val (RazHndl)  ) 


save  the  ascan"  election  rasourca 


ItamTaxt  * 

RazHndl. bhdl  • 
STRflndl  -  Razflr 
STRflndl. shdl".  ■ 
call  ChangadRa& 
call  WritaRaso- 


cant Selection 

iRasourca (%val ( *STR  ’ ) ,  %val (int2 (rOldAscant) ) ) 

r"  -  ItamTaxt 

rca (  %val (Razflndl)  ) 

a  {  %val (RazHndl)  ) 


save  the  clir.a'. 


selection  resource 


write 'CharStrir 
ItemTe.xt  “  Cha. 
PAzHndl  .  bhdl  ■* 
STPHnd;  -  PezH 
STPHndl . shdZ 
-all  -'hancedP^r 
.ail  WritePes-: 


CiimateSelection 
r  mg 

iRasource (  %val ( ' STR 
■  ItemTer.t 

rc^'  ‘’/ai  (PezHndl  1  : 

'  *va 1 ( Re zHndi )  ) 


*val (int2 (rOldClimate) ) ) 


.  .  .  s  ave 


t  h  «  s  t  a  t  •= 


deg  West  dea  Eas*"  ra-ii' 


write  lharStri  *  rDegreeSalection 
ItamTaxt  •  Cha-  ting 

PazHndi.bhdl  •  Pesourcaf  *val('STR  '),  val  ( int  2  ( rOidDegRadio )  )  ) 
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0321  STRHndl  -  R«zHjidl 

0322  STRHndl . shdl^ . sptr^  -  It»mT«xt 

0323  call  ChangadRosc'irce  (  %val  (RazHndl)  ) 

0324  call  Wr itaRaaourco  (  %val (RezHndl)  ) 

0325 

032  6  c . save  the  state  of  the  m/km  radio  button 

032T 

0329  vfrite  (Charstring,  *)  rDistanceSelection 

0329  ItemXext  -  CharString 

0330  RozHndl.bhdl  ■■  GetResourceC  %val('STR  '),  ^val( int 2 (rOldDistRadio) ) ) 

0331  STRHndl  -  RozHndl 

0332  STRHndl .  shdl^  .  sptr'’  -  ItemText 

0333  call  ChangodResource (  %val (ReiHndl)  ) 

0334  call  WriteResource  (  %val (RezHndl)  ) 

0335 

0336  r . save  the  state  of  the  sec/min/hr  radio  button 

0330 

0338  write (CharString, ♦)  rTimeSelection 

0339  ItemText  «  CharString 

0340  RozHndl.bhdl  “  GetResourco (  %val ( ' STR  ’),  %val ( int2 ( rOldTimeRadio ) ) ) 

0341  STRHndl  -  RezHndl 

0342  STRHndl. a hdl ' .sptr^  -  ItemText 

0343  call  ChangedResource (  %val (RezHndl)  ) 

0344  call  WriteResource  (  %val (RezHndl)  ) 

0345 

0346  c . save  the  data  for)c 

034-’ 

0348  doi-1,  ntrpts 

0349  wxitedO,*)  TofTab(i),  LngTab(i),  LatTab(i),  AltTab(i),  JmpTab(i) 

0350  and  do 

0351 

0352  c . close  the  resource  file 

0353 

0354  call  CloseResFile (  %val(RefNum)  ) 


0355 

0356 

c .  . 

...close  the  data  fork 

0357 

0358 

close ( 10 ) 

0359 

0360 

c.  . 

.  ,  .save  the  Plot2D-f ormat  data 

file  for 

0361 

oic: 

open (  unit»12.  file*'BDPS  Plot  Data* 

0363 

i  creator- ’MDoF ' ,  f iletype- ' BINA 

0364 

0365 

c 

123456789-123456 

0366 

Name  ( 1 )  •  ’  Tune  ' 

036' 

Name  (2)  'Latitude  ' 

0368 

Name (3)  ■  'Longitude  ' 

0369 

Name (4)  -  'Altitude  ' 

^370 

Name (5)  ■  'Ground  Range  ’ 

n  2 

Name,  6)  *  'Wind  J^zimuth  ' 

03'2 

Name (7)  -  'Wind  Velocity 

C3''3 

03’ 4 

write(12)  int4'7,,  int4(-l). 

int4  ( 1) 

n  -5  -  5 

write  (12)  '  r-'a.-e  '  i  '  i-1,7  > 

C  3  '  b 

13"' 

do  1  *1 ,  No  o ^ 

C  3  7  q 

write (12;  lime  Array ( 

i  }  , 

3  3*'? 

4  LAT  AF.PAY  ( 

i  1  , 

0  3  8 ' 

4  ION  AF.PAY  ( 

1  )  . 

0  .3  91 

4  AIT  ARRAY  ( 

i  )  , 

0  3  82 

4  ORANGE  ARRAY 

(  i  )  , 

0383 

4  'WINDAZ  ARRAY 

(  i  )  . 

3  8  4 

4  w:?JD  VXL  ARRAY  (  i  ) 

external  use 

status— ' new ' ,  form— ' unformatted ' , 
,  recordtypo- ' stream '  ) 
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0385  enddo 

0386 

0387  cloa»(12) 

0388 

0389  c . cursor  to  arrow 

03  90 

0391  call  SatCursor  %val  (QDci' .  Arrow)  ) 

0392 

0393  return 

0394  end 

0001  c . Load  a  file  of  .  "ROCTORE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !!G  toolbox2 . f inc 

0004 

0005  c . Load  the  ToolBt  traps 


0006 

0007  ! !M  Inlines . f 

0008 

0009  !!S  SavoTheMap 


0010  - - - - 

0011  subroutine  SaveXhoMap 

0012  - - 

0013  c  save  the  conten.s  of  the  graphics  window  into  a  Piet  file 

0014 

0015  c . pointer  for  SuiricDraw  globals 

0016 

0017  common  /  QDGPtr  /  QDG 

0018  pointer  /  QDGlobals  /  QDG 

0019 

0020  c . cursor  handle 

0021 

0022  record  /  CursHandle  /  CursorHndl 

0023 

002  4  c . Picture  record  handle  and  pointer 

0025 

002  6  common  /  pict  PictHndl 

0027  record  /  PicHandle  /  PictHndl 

0028  record  /  PiePtr  /  PictPtr 

0029 

0030  c . reply  record 

0031 

0032  record  /SFReply  SFR 

0033 

0034  c . prompt  location 

0035 

0036  record  /Point  '  PrmptPt 

^OO’’ 

0030  c . various  character  strings 

00  3  9 

0040  string*255  Prompt 

0041  string*255  pfName 

0042 

0043  c . Define  a  FlFXXi-O  style  parameter  corresponding  to  the  Pascal 

0044  c  defined  constant  nil 

0045 

0046  integer *4  nil 

004” 

0048  c . declare  intege-  '2  for  Operating  System  error 

00  4  9 

0050  integer*!  iOSErr 

n  /o  e 


declare  integei  array  used  as  header  for  Pict  file 
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0053 

0054  integ®r*2  PictHead^r (256) 

0055 

0056  c . do  loop  indices 

0057 

0058  int:eg9i*4  i4min 

0059  integer'*4  i4max 

0060  intoger*4  i4 

0061 

0062  c . declare  temporary  integer  storage 

0063 

0064  integer*4 

0065  integsr*4 

0066  integer*4 

0067  integer'*2 

0068  integer*! 

0069 

0070  c . set  the  Piet  file  header  array 

0071 

0072  data  PictHeader  / 


0073 

$5049, 

$4354, 

$0000, 

$0000, 

$0000, 

$0000, 

soooo. 

$0000, 

0074 

1 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

0075 

2 

$0000, 

$0000 . 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

r- 

o 

o 

3 

$0000, 

$0000. 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

0077 

4 

$0000, 

$0000. 

soooo. 

$0000, 

soooo. 

$0000, 

$0000, 

$0000, 

0078 

5 

$0000, 

$0000. 

$0000, 

$0000, 

$0000, 

$0000, 

soooo. 

$0000, 

0079 

6 

$0000, 

$0000. 

soooo. 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

0080 

7 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

0081 

8 

$0000, 

$0000, 

$0000, 

$0000, 

$0048, 

$0000, 

$0048, 

$0000, 

0082 

9 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

0083 

$0000, 

$0000. 

soooo. 

$0000, 

$0000, 

soooo, 

$0000, 

soooo, 

0084 

1 

$0000, 

$0000, 

$0000, 

soooo, 

soooo. 

$0000, 

$0000, 

$0000, 

0085 

2 

$0000, 

$0000, 

soooo, 

$0000, 

$0000, 

$0000, 

soooo, 

soooo. 

0086 

3 

$0000, 

$0000, 

soooo. 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

008'’ 

4 

$0000, 

$0000, 

$0000, 

soooo. 

soooo. 

$0000, 

soooo. 

$0000, 

0088 

5 

$0000, 

$0000, 

soooo. 

soooo. 

$0000, 

$0000, 

$0000, 

$0000, 

0089 

6 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

soooo, 

$0000, 

0090 

7 

$0000, 

$0000, 

soooo, 

soooo. 

$0000, 

$0000, 

soooo, 

$0000, 

0091 

8 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

soooo. 

0092 

9 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

soooo. 

0093 

, 

$0000, 

$0000, 

$0000, 

$0000, 

soooo. 

$0000, 

$0000, 

$0000, 

0094 

1 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

0095 

2 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

00“6 

3 

$0000, 

$0000, 

$0000, 

$0000. 

soooo. 

$0000, 

soooo, 

$0000, 

0097 

4 

$0000, 

$0000, 

soooo. 

soooo. 

soooo. 

soooo, 

$0000, 

$0000, 

0098 

5 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

$0000, 

soooo. 

ioooo. 

0099 

6 

$0000, 

$0000, 

soooo. 

$0000, 

$0000, 

soooo. 

$0000, 

$0000, 

0100 

7 

$0000, 

$0000, 

$0000, 

soooo. 

$0000, 

$0000, 

$0000, 

soooo. 

Ol':'! 

8 

$0000, 

$0000, 

$0000, 

soooo. 

$0000, 

$0000, 

$0000, 

$0000, 

0102 

9 

$0000, 

$0000, 

$0000, 

soooo. 

$0000, 

$0000, 

soooo, 

$0000. 

010  3 

$0000, 

$0000, 

$0000, 

$0000, 

soooo. 

$0000, 

soooo, 

soooo. 

0104 

1 

$0000, 

$0000, 

$0000, 

soooo. 

$0000, 

soooo. 

$0000, 

$0000/ 

C1C5 

0106  c . determine  name  of  Piet  file  via  SFPutFile 

01  0" 

0100  PrmptFt.H  «  62 

0109  FrmptPr:.'/  =  6« 

0110  Prompt  »  "Save  current  Map  as  Pict  file:’ 

0111  pfName  =  'Map-pict* 

0112  call  SFPutFile  '  'vai  <Prmpt:Pt  >  .  '  val  ( F  r  ompt  )  .  *vai{pfName; 

0113  .  'val(nil)  .  'refCSFP)  ) 

0114  pfName  “  SFR.fName 

0115 

0116  c . open  Pict  file 


ndex4 
nof  f  4 
itemp4 
itemp2 
itempl 
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0117 

one  if  (  SFR.good  :  th«r. 

0119  iOSErr  -  Sec'  cl  (  %val(nil)  ,  %val (SFR.vRefNum)  ) 

0120  open  (  uni':“-0  ,  file"»pfNarae  ,  creator”  ’  MDPL '  ,  filetype- '  PICT ' 

0121  stat- ■  new'  ,  acceaa-'aequential  ’  ,  recordType- '  at  ream  ' 

0122  .  form'  'jnf ormatted '  ) 

0123 

0124  c . uae  watch  c;  sor  while  saving  data 

0125 

0126  cursorHndl  hetCuraor  (  %val(4)  ) 

0127  call  SetCur-  t  (  ^val (cur sorHndl . CRHDL^ . CRPTR* )  ) 

0128 

0129  c . pad  the  Pic'  file  with  a  header  of  256  words 

0130 

0131  write (10)  P:  iHoader 

0132 

0133  c . get  pointer  c  Picture  record 

0134 

0135  itemp4  “  ?.  ■ Endl 

0136  Pictptr  ”1-  3  '  itenip4  ) 

0137 

0138  c . write  numbe  rf  bytes  contained  in  Picture  record 

0139 

0140  itamp4  ”  F :  “.Ftr 

0141  itamp2  "  w'.  'i  (  itemp4  ) 

0142  write(lO)  i*  -=2 

0143 

0144  c . initialize  J  iture  byte  counter 

0145 

0146  ndex4  ”  iter  1 

0147  if  (  nd«x4.1  .2  )  then 

0148  ndex4  “  r  ex4  +  65536 

0149  end  if 

0150  ndex4  ”  nde;:  -  1 

0151 

0152  c . write  bytes  f  Picture  to  Piet  file  byte  by  byte 

0153 

0154  itetnp4  “  Pic  ?tr 

0155  do  i4  ”  2  .  dex4 

0156  itempl  -  yte  (  i4  +  itemp4  ) 

0157  wxite(lO)  itempl 

0158  end  do 

0159 

0160  c . continue  her'  if  Picture  contains  too  many  bytes 

0161 

0162  noff4  -  0 

0163  do  while  (  i  empl.ne.-l  ) 

0164  i4min  -  ■  dex4  +  noff4  +  1 

0165  i4max  “  ;dex4  +  noff4  +  65536 

0166  do  i4  ”  1 '■•nin  ,  i4max 

0167  itoir.p'.  ”  byte  (  i4  +  itamp4  ) 

0168  write  0)  itempl 

0169  end  do 

0179  noff4  ”  cff4  +  1 

0171  end  do 

0172 

Ol'O  c . set  cursor  ch  to  arrow  before  returnim 

01 '4 

OnO  call  SetCer  .  r  '  •  val  (2DG' .  Arrow)  ) 

01"  6 

017"  ^ . close  Pict  le 

0178 

0179  close  (  ur.i  10  ) 

0180 
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0181  and  if 

0182 

0183  c . kill  the  picfj- 

0184 

0185  call  KillPicpu.  (  «val  (PictHndl)  ) 

0186 

018'’  raturn 

0188  end 

0001  c . Load  a  file  of  .RUCTDRE  and  PARAMETER  definitiona  at  compile  time 

0002 

0003  Mg  toolboxP  .  fine 

0004 

0005  c . Load  the  ToolE  traps 


0006 

0007  !!M  Inlines. f 


0008 

0009  c -  - 

0010  subroutine  Set'  iapMenu 

0011  c -  - 

0012 

0013  c . Options  menu  f  ^ 

0014 

0015  include  'MapMe  inc’ 

0016 

0017  c . local  string  •'  .ables 

0018 

0019  8tring*255  itemName (nMepItems) 

0020  string*255  MonuNama 

0021 

0022  c . set  local  stri:  variables 

0023 

0024  ItemName  (itemG-:  :ewDataSet)  -  'Get  new  data  set/G' 

0025  ItemName (itemRf  .zsTheMap)  "  'Resize  the  map' 

002  6  ItemName  (itamNt  :ap)  “  'New  map/N’ 

0027  ItemName  ( itemSa  Map)  ••  'Save  map/5' 

0028  ItemName ( itemRe  aw)  —  'Redraw  map/R' 

0029  ItemName  (itoioDc;;  i)  “  'Quit  Mapit/Q' 

0030  MenuName  “  'Map' 

0031 

0032  c . get  handle  for  'lap'  options  menu 

0033 

0034  if  (  iGotMapMen  3ndl.eg.0  )  then 

0035  MapMenuHndl  -  NewMenu  (  %val (MapMenuID)  ,  %val (MenuName)  ) 

0036  iGotMapMenu.5.- il  ■■  1 

0037  end  if 

0038 

0039  c . append  the  me.".-,  items 

0040 

0041  do  i  «  1  ,  nMa;  lems 

0042  call  Append  u  (  %vai (MapMenuHndl )  ,  %val (ItemName ( i) )  ) 

0043  end  do 

00  4  4 

?'04  5  c . disable  the  terns  not  initially  available 

0046 

t04''  rail  Disableli  •val  (MapMenuHndl )  'vai  ( itemSaveMap)  i 

''i04?  rail  Disable!'  •  ••al  (MapMenuHndl )  -val  ( itemPedraw)  ' 

0049 

0050  c . draw  blan)<  ter  er 

00  51 

0052  call  ClearMer.t 

0053  call  DrawMenuS 

0054 
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0055  c . clear  event  buffer 

0056 

0057  call  FluahEvent 5  (  %val (everyEvent )  ,  %val(0)  ) 

0058 

0059  return 

0060  end 

0001  c..  .  .Load  a  file  of  STROCTDRE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !IG  toolbox2 . f inc 

0004 

0005  c . Load  the  ToolBox  traps 

0006 

0007  ' !M  Inlines . f 

0008 

0009  c . Put  the  following  code  in  the  Main  segment 

0010 

coil  ' ! S  Main 

0012  c - 

Segment  Main 

0013  subroutine  SetupXheltom  (  theDialog,  ItemlD,  Sirelt,  Showit,  Enablelt, 

0014  .  SetTheMax,  thePosition,  ExtraData,  StringID  ) 

0015  c - - - 

0016 

0017  !!SETC  USINGINCLDDES  -  FALSE 

0018  implicit  none 

0019 

0020  c . dialog  pointer 

0021 

0022  record  /  DiaiogPtr  /  thoDiaiog 

0023 

0024  c . item  ID  and  string  ID 

0025 

0026  integer’2  ItemlD 

0027  integer*!  StringID 

0028 

0029  c . Boolean  arguments 

0030 

0031  logical*!  Sizsit 

0032  logical*!  Showit 

0033  logical*!  Enablelt 

0034  logical*!  SetTheMax 

0035 

0036  c . item  location  and  size 

0037 

0038  record  /  Rect  /  thePosition 

0039 

0040  c . extra  data 

0041 

0042  integer*4  ExtraData 

0043 

0044  c . working  values 

0045 

0046  record  Pect  tempRect 

004"'  record  /  Handle  CItoro 

0048  record  Cont rc l.Handle  Citem 

0049 

0050  integer*!  Dlype 

0051 

0052  string*255  sTemp 

00  53 

0054  - - 

0055 
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0056  c . g«t  th«  item  har.die  and  »ize 

0057 

0058  call  GotDIteir.!  -.-al  (thoDialog)  ,  %val  ( ItemID)  , 

qQ59  4  ^ref(DType),  %ref (DItem) ,  %ref (tempRect )  ) 

0060  Cltom.CtlH  -  DItem. bhdl 

0061 

0062  c . check  to  resize  all  CDEF  connected  controls 

0063 

0064  if  (Sizelt)  then 

0065  call  SizeControK  %val (CItem) ,  %val (tempRoct . right  -  tempRect . left ) , 

(jpgg  4  %val  (tempRoct.  bottom  -  tempRect  .top)  ) 

0067  endif 

0068 

0069  c . pass  back  the  location  and  size 

0070 

0071  thoPosition  -  tempRect 

0072 

0073  if  (ExtraData.  .7  -0)  then 

0074  c . ignore  Extral  ta  for  now 

0075  continue 

0076  endif 

0077 

0078  c . see  if  CDEF  ne€  s  the  title  set  again 

0079 

0090  if (StringlD.ne.  then 

0081  call  GetlndSt  ^ng (  %val(sTamp).  %val (StringID) ,  %val(l)  ) 

0082  call  SetCTitl  {  %val (CItem) ,  %val(8Temp)  ) 

0083  endif 

0084 

0085  c . see  if  enable  .  diable  the  item 

0086 

0087  if(Enablelt)  tl 

0088  call  HiliteC.  trol(  %val (CItem) ,  %val(0)  ) 

0089  else 

0090  call  HiliteC.  .trol (  %val (CItem) ,  %val(255)  ) 

0091  endif 

0092 

0093  c . see  if  set  the  max 

0094 

0095  if (SetTheMax)  then 

0096  call  SetCtlMax(  %val (CItem),  %val (12345)  ) 

0097  endif 

0098 

0099  c . see  if  show  it  tc  activate  it 

0100 

0101  if(ShowIt)  then 

0102  call  ShowContrcil(  %val  (CItem)  ) 

0103  endif 

0104 

0105  return 

0106  end 


^ . Load  a  file  of  SIPCCTORE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  ’’G  toolbox^ . fine 

00C4 

QOOS  c . Load  the  ToolEc:-;  traps 

0006 

000^  '  ' M  Inlinos  .  f 

0009 

0009  c - 

0010  subroutine  SetGpTheMap 

0011  - - 
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0012  c  Intarface  witih  the  user  to  obtain  map  characteristics. 

0C13 

0014  c . include  common  block  definition  files 

0015 

0016  include  'CrvDat.inc’ 

OOl"’  include  '  Def  I,im .  rnc ' 

0019  include  'FntCom.inc’ 

0019  include  ' MapCom . inc ' 

0020  include  ' MapLim . inc ' 

0021  include  'TicDat.inc' 

0022  include  '  Tr  jLir. .  inc ' 

0023 

0024  c . item  stuff 

0025 

0026  record  /  handle  /  ItHndl 

002’  record  /  rect  ItRect 

0028  integer*4  ItType 

0029  integer*2  ItNmbr 

0030  string*255  ItText 

0031 

0032  c . "get  Map  data"  dialog  interface  records 

0033 

0034  common  /  MapSet’Jp  /  MapSetOpPtr,  iGotMapSetOp 

0035  record  /  DialocPtr  /  MapSetOpPtr 

0036  integer *2  iGotMapSetOp 

0033 

0038  c . character  strings 

0039 

0040  c5»aractar*255  ChrOat 

0041 

0042  c . dialog  interface  variables  (  note  that  pointers  are  i*4  ) 

0043 

0044  integer*4  infront 

0045 

0046  c . dialog  interface  values 

0047 

0048  data  infront  /  -1  / 

0049 

0050  c . set  dialog  fo.nt  to  Times  (  it  is  the  most  compact  ) 

0051 

0052  FntNam  «  'Times 

0053  call  GetFNum  '  -val (FntNam)  ,  FntNum  ) 

0054  call  setDAfont  %val (FntNum)  ) 

0055 

0056  c . Get  map  set  up  -'laiog 

0057 

0058  if  (  iGotMapSet "p . eq . 0  )  then 

0059  MapSetDpPtr  ”  GetNewDialog  (  %val(134)  ,  *val(nil)  ,  %val ( inFront )  ) 

0060  iGotMapSetUp  -  1 

0061  end  if 

0062  call  SetPort  '  • vsl (MapSetOpPtr )  ) 

0063 

0064  c . bring  the  diaic '•  window  to  the  front 

0065 

0066  call  ShowWind'-  •val  (MapSet'JpPtr )  ) 

006’  call  Selecti'ir.  •val  (MapSetOpPt r '  I 

0068 

0069  c . Highlight  the  T  -TO  button 

no’O 


val (MapSetUpPtr)  ,  •val ( ItNmbr i  ,  'ref (ItType I 
ref  (ItHndl)  .  *ref (ItRect)  ) 
al (3)  ,  aval (3)  ) 

•ref(ItRect)  ,  *val(-4)  ,  4val(-4)  ) 


00’ I  ItNmbr  «  0 

0072  call  GetDIter- 

077? 

0374  call  PenSize 

0075  call  InsetRoct 
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00'’6  call  FrameRoundRect  (  %r«f  (ItRact)  ,  %val(18)  ,  %val(18)  ) 

007’’ 

007  8  c . frame  the  RESET  MAP  LIMITS  button  along  with  the  FULL  GLOBAL  MAP  and 

0079  c  SCALE  TO  DATA  radio  controls 

0080 

0081  call  PenSize  (  %val(l)  /  %val{l)  ) 

0082  call  GetDItom  !  %val (MapSetUpPtr)  ,  %val(21)  ,  %ref(ItTypo)  , 

0083  .  %rof(ItHndl)  ,  %r6f(ltRect)  ) 

0084  myLeft  -  ItRect . left  -  11 

0085  myRite  •>  ItRect. right  +  10 

0086  myTop  -  <  ItRect. top  +  ItRect . bottom  )/2 

0087  call  GetDItom  (  %val (MapSotOpPtr)  ,  %val(23)  ,  ^ref(ItType)  , 

0088  .  %rof{ItHndl)  ,  %ref( ItRect)  ) 

0089  myBot  “  ItRect . bottom  +  10 

0090  call  MovoTo  (  %val (myLeft+8)  ,  %val (myTop)  ) 

9091  call  LinoTo  (  %val (myLeft  )  ,  %val (myTop)  ) 

0092  call  LineTo  (  ^^vai  (myLeft  )  ,  %val  (myBot)  ) 

0093  call  LinoTo  (  tval (myRite  )  ,  %val (myBot)  ) 

0094  call  LinoTo  (  »val (myRite  )  ,  %val (myTop)  ) 

0095  call  LinoTo  {  »val (myRite-8)  ,  %val (myTop)  ) 

0096 

0097  c . display  the  tett  items  containing  map  limits 

0098 

0099  call  DispiayMacLimts 

0100 

0101  c . sot  the  'draw  end  linos’  control 

0102 

0103  ItNmbr  “  3 

0104  call  GetDItem  ^val (MapSetOpPtr)  ,  %val(ItNmbr)  ,  %ref(ItTypa)  , 

0105  .  rref(ItHndl)  ,  %ref(ItRoct)  ) 

0106  call  SetCtlValte  (  4val(ItHndl)  ,  %val (Gr idLines )  ) 

0107 

0108  c . sot  the  'draw  t-.me  tics'  control 

0109 

0110  ItNmbr  -  4 

0111  call  GetDItom  '  %val (MapSotOpPtr )  ,  %val (ItNmbr)  ,  %rof(ItTypo)  , 

0112  -ref (ItHndl)  ,  %ref (ItRect)  ) 

0113  call  SetCtlValue  (  %val(ItHndl)  ,  %val (TimoTics )  ) 

0114 

0115  c . sot  the  'full  global  map'  radio  control 

0116 

0117  ItNmbr  -  22 

0118  call  GetDItom  !  »val (MapSetDpPtr )  ,  %val (ItNmbr)  ,  %ref(ItType)  , 

0119  i.ref  (ItHndl)  ,  %ref  (ItRect)  ) 

0120  call  SetCtlValv  i  (  %val(ItHndl)  ,  %val ( 1-LimitTypo )  ) 

0121 

0122  c . set  the  'scale  to  data'  radio  control 

0123 

0124  ItNmbr  -  23 

0125  call  GetDItom  %val (MapSetUpPtr )  ,  »val (ItNmbr)  ,  %rof(ItType)  , 

0126  .  »rof  (ItHndl)  ,  '«ref  ( ItRect)  ) 

012'  call  SotCtlVal  3  '  *val(ItRndl)  ,  >val (LimitTypo)  ) 

012  8 

0129  c . loop  until  eitOer  the  PLOT  button  or  the  RETURN  button  is  clic)cod. 

0130  c  Monitor  all  o':  ?r  relevant  events  and  update  the  dialog  as  necessary. 

0131 

0132  ItNmbr  ■  0 

0133  do  while  (  ItO  r.ne.l  .and.  ItNmbr . ne . 2  ) 

0134 

0135  o . get  number  item  hit 

0136 

013'  call  Modall'-.rlog  (  %val(nil)  ,  ItNmbr  ) 

0138 

0139  c . alter  the  raw  grid  lines'  user  item 
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0140 

0141 

if 

(  I -Nrxr - eq . 3  )  then 

0142 

call  Get:  Item  (  %val (MapSetOpPtr )  ,  %val ( ItNmbr )  ,  %ref(ltType) 

0143 

%ref(rtHndi)  ,  %ref(rtRect)  ) 

0144 

GridLine »  1  -  GetCtlValue  (  %val(ItHndl)  ) 

0145 

call  Se-  tlValuo  (  %val(ItHndl)  ,  %val (GridLines )  ) 

0146 

end  if 

0147 

0148 

c .  ,  .  . 

....  alt 

.er  the  :raw  time  tics'  user  item 

03  19 

0150 

if 

(  ItNmti  eq.4  )  then 

0151 

call  Get' Item  (  %val (MapSetOpPtr )  ,  %val ( ItNmbr )  ,  %ref(ItType) 

0152 

%ref(ItHndl)  ,  %ref(ItRect)  ) 

0153 

TimeTic;  »  1  -  GetCtlValue  (  %val(ItHndI)  ) 

0154 

call  Set  tlValue  (  %val(Itandl)  ,  %val (TimeTics)  ) 

0155 

if  (  Tim-Tics . eq. 1  )  then 

0156 

writ*  ChrDat,*)  tDivMj 

0157 

else 

0158 

ChrD  -  '  ' 

0159 

end  if 

0160 

ItNmbr  -  13 

0161 

ItTe.'ct  -  ChrDat 

0162 

call  GetOItam  (  %val (MapSetCpPtr )  ,  %val(ItNmbr)  ,  %ref(ItType) 

0163 

%ref(ItRndl)  ,  %ref(ItRect)  ) 

0164 

call  Sat  next  (  %val(ItHndl)  ,  %val(ltText)  ) 

0165 

end  if 

0166 

0167 

c .  .  .  . 

....toggle  the  full  global  map'  and  'ecale  to  data'  radio  controls 

0168 

0169 

if 

(  ItNmbr. aq. 22  .or.  ItNmbr .eq. 23  )  then 

0170 

LimitTi-pe  -  1  -  limitTj'po 

0171 

call  GetDItem  (  %val (MapSetOpPtr )  ,  %val(22)  ,  %ref(ItType)  . 

0172 

. 

%ref(ItHndl)  ,  %ref(ItRect)  ) 

0173 

call  SetCtlValuo  (  %val(Itandl)  ,  %val ( 1-LimitType)  ) 

0174 

call  Gat' Item  (  %val (MapSetOpPtr )  ,  %val(23)  ,  %ref(ItType)  , 

0175 

%ref(ItHndl)  ,  %ref(ltRoct)  ) 

0176 

call  SatCtlValue  (  %val(Itandl)  ,  %val (Limit Type)  ) 

0177 

end  if 

0178 

0179 

0180 

0181 

if 

(  ItNmbr . eq . 2 1  )  then 

0182 

0183 

c .  .  .  . 

use  globa'  map  limits 

0184 

0185 

if  (  LimxtType. eq,0  )  then 

0186 

xMapMn  -  LngMin 

0187 

xMapMx  «  LngMax 

0188 

xDivMj  «  IjigDivMj 

0189 

xDi'/Mi  *  LngDivMi 

0190 

yMapMn  ■  LatMin 

0191 

yMapM;-.  -  LatMa.x 

0192 

yDivM;  =  LatDivMj 

0193 

vDivMi  ^  LatOivMi 

0194 

C195 

0196 

019’ 

els* 

0198 

call  ;i  :  .-73caie  {  Mining  .  Ma:;Lng  .  ndi'-inj  ,  ::MapMn  ,  ::MapM;: 

0199 

::DivMj  ,  :;Di*/Mi  i 

0200 

call  ActcScaie  (  MinLat  ,  MaxLat  ,  ndi-.-mj  ,  yMapMn  ,  yMapM.x 

0201 

yDivMj  ,  yDivMi  ) 

0  2  02 

end  if 

0203 

call  Displ lyMapLimits 
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0204 

0205 

0206 

020" 

0208  c 

0209 
0210 
0211 
0212 
0213 
0214 

0215  c 

0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0  2  2  9 
0230 
C231 

0232  c 

0233 

0234 

0235 

0236 

023'’ 

0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
02  47 
0248 

0249  c 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

025’ 

0258 
0  2  5  9 
0  2  60 
0261 
0262 
0  2  63 
02  64 
0  2  65 

02  66  c 
02  6" 


end  if 
end  do 

return  to  main  program  if  R£TDRN  was  clicked 

if  (  ItNmbr.eq.2  )  then 

call  DisposDialog  (  %val (MapSetDpPtr )  ) 

call  exit 
end  i  f 

got  minimum  latitude  value 
ItNmbr  -  5 

call  GotDitom  <  »val (MapSetOpPtr)  ,  «val (ItNmbr)  ,  %ref(:  Type) 
%ruf(ItHndl)  ,  %ref(ItRect)  ) 
call  GetlText  '  ^-j-al  ( ItHndl)  ,  %val(ItText)  ) 

ChrDat  -  ItText 

if  (  ChrDat. ne.  '  )  then 

read (ChrDat . * , ioatat"iof lag)  tmpl 
if  (  ioflag.ne.O  )  then 
tmpl  “  0.0 
end  if 
else 

tmpl  -  0.0 
end  if 

yMapMn  “  tmpl 

get  maximum  latitude  value 
ItNmbr  «  6 

call  GetDitem  ■  8val (MapSetDpPtr )  ,  %val (ItNmbr)  ,  %rof(ItType) 
♦ref(ItHndl)  ,  »ref(rtR«ct)  ) 
call  Getllext  %val(ItHndl)  ,  %val  ( ItTe.xt)  ) 

ChrDat  -  ItTex.t 

if  (  ChrDat. ne.'  )  then 

read (ChrDat , * , iostat-iof lag)  tmpl 
if  (  ioflag.ne.Q  )  then 
tmp 1  “0.0 

end  if 
else 

tmpl  “  0.0 
end  if 

yMapMx  -  tmpl 

get  latitude  major  division  size 
ItNmbr  “  7 

call  GetDitem  '  ^ival  (MapSetDpPtr )  ,  %val(  ItNmbr)  ,  »rof(ItType) 

%ref(ItHndl)  ,  'ref ( ItRoct )  ) 

call  GetlText  '  i-.ral  (ItHndl)  ,  '‘val  ( ItText )  ) 

ChrDat  “  ItText 

if  (  ChrDat. ne.  ’  '  then 

read (ChrDat . ' , iostat”ioflag)  tmpl 
if  I  ioflac.r.e.C  '  then 
tmpl  -  0 . ' 
end  if 
else 

tmj.  1  “  0  . 

end  if 

yDivMi  “  tmpl 

get  latitude  mi.tor  division  size 
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0268 
0269 
02^0 
02’1 
0272 
02'’3 
0274 
02^5 
02  7  6 
02'’'’ 
02'8 
0279 
0280 
0281 
0282 
0283 
02  84 
0285 
02  8  6 
0287 
0288 
0289 
0290 
02  91 
0292 
02  93 
0294 
02  95 
0  2  96 
02  O' 
0298 
02  99 
0300 
0301 
0  302 
0303 

03:4 

0305 
0306 
OOO' 
0309 
0309 
0310 
0311 
^'31'^ 
1313 
0314 
0  315 
0  316 
0  3  1' 
‘'318 


'  :’24 
'325 
'  3  2  6 


3  2^ 


-j 


ItNmbr  “  8 

call  GatDitera  (  %val (MapSatOpPtr )  ,  %val (ItNmbr)  ,  *r«f(ItTyp«)  , 

8ref(ItHndl)  ,  8r»£(ItR«ct)  ) 
call  GetITaxt  '  %val(Itflndl)  ,  %val(ItT»xt)  ) 

ChrDat  “  ItText 

if  (  ChrDat. ne. '  *  )  than 

raad (ChrDat , » , ioatat-iof lag)  tmpl 
if  (  ioflag.ne.O  )  than 
tmpl  “  0.0 
end  if 
else 

tmpl  “  0.0 
and  if 

yDivMi  "  tmpl 

c . got  minimum  longitude  value 

ItNmbr  “  9 

call  GatDitem  (  %val (MapSatDpPtr )  ,  *val( ItNmbr)  ,  %raf(ItTypa)  , 

•  rafdtHndl)  ,  %raf(ItRact)  ) 
call  Gatilext  (  %val(Itandl)  ,  %val(ltTaxt)  ) 

ChrDat  -  ItTa.xt 

if  (  ChrDat.. ns.  '  '  )  than 

road (ChrDat , * , iostat-iof lag)  tmpl 
if  (  ioflag.ne.O  )  than 
tmpl  -•  C  .  0 
'  end  if 
elaa 

tmpl  «  0.0 
and  if 

.xMapMn  •  tmpl 

c . gat  maximum  longitude  value 

ItNmDt  -  10 

:all  GetDitem  I  • val (MapSatOpPtr )  ,  »val (ItNmbr)  ,  %raf(ItTypa)  , 
.  •rafdtHndl)  ,  ^raffltRact)  ) 

call  GetITaxt  avaldtHndl)  ,  %val(  ItText)  ) 

ChiDaU  -  ItTs;.- 

if  (  ChrDat. na. ’  )  than 

raad ( ChrDa*  • , ioatat-iof lag)  tmpl 
if  (  ioflag.ne.O  )  than 
tmpl  “  2.9 
and  if 
alao 

tmpl  »  0.3 
and  if 

xMapMx  «  tmpl 


gat  longifice  ns^or  di^iaion  alia 
ItNmbr  —  1 ' 

call  GatDiter  •vaj  'MapSetUpPtr )  ,  aval (ItNmbr)  *raf lltTypa) 

•rafdtHndl)  'rafdtRact)  ) 
call  GetI7a;;7  •  -a  1  '  It  Hndl )  .  •  val  !  1 1  Te.ct  ?  ' 

OhrDat  *  rrOc. 

if  (  OhrOat.'-  '.han 

read'ChrIc"  ic  star  =ic  f  lag  1  tmt  1 

if  I  icf-;  -•?.  ‘her. 

tmr 
a  . i  if 
elaa 

tmpl  - 
end  1  f 
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0332 

xDivMj  “  tmpl 

03  33 

0:'34 

c  .  . 

,  .  .  r»t  longitude  r. 

_nor  division  size 

"i 

03  3  b 

ItNmhr  -  .2 

0  3  3  ^ 

call  Getriten’, 

7val  (llapSetDpPtr )  ,  ^val  (ItNmbr) 

,  -sref  ( ItType) 

7  3  3? 

^refdtHndl)  ,  %ref(ItRect)  ) 

C  3  3  9 

call  GetlTaxc  ■ 

^val(ItHndl)  ,  %val ( It^ext )  ) 

0  3  4  0 

OhrDat  "  ItTsxt 

C'  3  41 

i5  (  ChrDat . . 

1  then 

034  2 

read  I ChrDat . 

" , ioatat— iof lag)  tmpl 

C'34  3 

if  i  i-of  lag  . 

ne.O  )  then 

3  4  4 

tmpl 

0 . 0 

C'  3  4  5 

end  i  f 

0  3  4  € 

else 

03  4^ 

tmpl  ■“  0.0 

03  4a 

end  if 

0  3  4  3 

xDivMi  •  tmpl 

0  350' 

0351 

. 

.  .  .get  time  tic  increment 

0  3  53 

0353 

ItNmbr  *  13 

0354 

call  GatDitem  ( 

•vai (MapSetOpPtr )  ,  %vai (ItNmbr) 

%ref ( ItType ) 

0355 

%ref(ItHndl)  ,  %ref(ItR«ct)  ) 

035b 

call  GetIText 

%val(ItHndl)  ,  %val(ItToxt)  ; 

"35' 

ChrDat  •  ItText 

0358 

if  1  ChrDat . ne . 

1  then 

035  3 

read (ChrDa* . 

■' ,  iostat“ioflag)  tmpl 

03  60 

if  (  ioflac. 

:.e.O  )  then 

0361 

tmpl  » 

0  3  62 

end  if 

0363 

alae 

'13  64 

tmpl  ”  C  .  O 

0365 

end  if 

0366 

tDivMi  -  tmpl 

0367 

0368 

c.  .  . 

.  .  . hide  dialog 

03  69 

03'?0 

call  HideWindC' 

(  %val (MapSetOpPtr)  ) 

0371 

'7  3  7  2 

return 

03'3 

end 

0001 

C  .  .  . 

. . Load  a  file  of 

-TRCCTURE  and  PARJU4ETER  defir.itiona  at  compile  time 

0002 

nnrj2 

•  '  G 

t  oolbox2 .fine 

0004 

0005 

r.  .  . 

. .Load  the  Tool3: 

traps 

0  0''-’^ 

n  n  r  "■ 

'  '  M 

Inlines . f 

0  0  'i  a 

c  .  .  . 

..Put  the  f  o 1 1 o  V 

r  code  in  the  Main  segment 

-- 

Ma  in 

SecTTient 

Ma  1  r 

■  1 

9  ubr  ir.e  ST  ' 

,  .-.s  lent  f  i  le  *  icpen  .  FilNam  ’ 

■ :  1 4 

1  ■ 

- 

Select  an  asc^ 

c'lfile  usina  the  unit  number  dcunit]  .  A  successful 

- 

open  wil_  re  : 

nailed  by  returning  lioper.-l). 

-7  ,  .  . 

..prompt  stri.og 
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OC20  »tring*255  Prompt 

c :  _  1 

0022  c . reply  record 

0023 

0024  record  /SFReply  SFP 

0025 

0C2  6  c . prompt  locatior. 

0027 

0028  record  /Point/  PrmptPt 

0029 

0C3Q  c . file  information  parameters 

0031 

0032  record  /SFTypeLiat/  SFT 

0033  record  /FInfo/  fndrinfo 

0034  character*4  FilTyp 

0035  character*4  fMaker 

0036  8tring*255  FilNam 

0037 

0038  c . I/C  error  flags 

0039 

0040  intoger*2  ioaerr,  iopen 

0041 

0042  c - 

0043 

0044  c . initialize  open  status  flag  to  zero 

0045 

0046  iopen  -  0 

004’ 

0048  c . set  the  prompt 

0049 

0050  prompt  -  'Select  an  ascent  profile' 

0051 

00  52  c . set  prompt  box  location 

0053 

0054  PrmptPt. H  -  82 

0055  PrmptPt. V  •>  64 

0056 

0057  c . display  files  of  type  ascp  ("Ascent  Profile")  or  text 

0058 

0059  SFT.SFT(O) .OST  -  'ascp' 

0060  SFT.SFT(l) .OST  -  'TEXT' 

0061 

0062  c . call  the  Tool-o:; 

0063 

0064  call  SFGetFile f  %val (PrmptPt) ,  %ref (Prompt) ,  %val(nil), 

0065  &  %val (int2 (2) ) ,  %ref(SFT),  %val(nil),  %ref(SFR)  ) 

0066 

0067  c . Open  the  file  if  user  selected  open 

0068 

0069  if  (  SFR.good  then 

0070 

0071  iopen  -  1 

0072  FilNam  -  3rF..5’»ame 

0073  FilTyp  -  SFF . f Type . OST 

0074  loserr  -  Gefinfo  '  •-j-al  (FilNam)  •val  (SFR .  vRefNum)  •  ref  ( f  ndr  In  f  c '  i 

0075  fMa)aer  ■=  f  nc.  In f  t  .  fdCrestor  . OST 

007  8 

0077  else 

0078 

00’9  call  SysBe  ..  'val  ( int  2  ( 2  0 )  I  ) 

0080  call  ExitTcSn ?11 

0081 

0082  end  if 

0083 
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0084  return 

0085  end 


Load  a  file  of  STROCTORE  and  PARAMETER  definitions  at  compile  time 


0002 


0003 

0004 

0005 

0006 

0007 

0008 

!  !  G 

c .  .  . 

!  !M 

toolbox2 . fine 

...Load  the  ToolBox 

Inlinea . f 

traps 

0009 

C- 

0010 

subroutine  SFOpenFilo  {  iounit  ,  iopen  , 

FilTyp  ,  fMalcer  ) 

OQll 

c--- 

0012 

Open  an  ASCII  file  using  the  unit  number 

[iounit J.  A  successful  open  wilx 

0013 

c 

be  signalled  by  returning  [iopen-1]. 

0014 

0015 

c .  . 

.  . .prompt  string 

0016 

0017 

string*255 

Prompt 

0018 

0019 

c.  . 

. . . reply  record 

0020 

0021 

record  /SFReply,' 

SFR 

0022 

0023 

c,  . 

, . .prompt  location 

0024 

0025 

record  /Point/ 

PrmptPt 

0026 

0027 

c .  . 

. . . file  information 

parameters 

0028 

0029 

record  /SFTypeLisC/  SFT 

0030 

record  /FInfo/ 

f ndrinf o 

0031 

character* ( * ) 

FilTyp 

0032 

character* ( * ) 

fMafcor 

0033 

atr ing*255 

FilNam 

0034 

0035 

c.  . 

. , . I/O  error  flags 

0036 

0037 

integer *2 

ioserr,  ios 

0038 

0039 

C-- 

0040 

0041 

c .  . 

,  .  .  .initialize  open 

statue  flag  to  zero 

0042 

0043 

iopen  *  0 

C044 

0045 

c.  , 

.  .  .  .  set  the  prompt 

0046 

n  n  4  7 

prompt  “  'SelecT 

binary  data  file' 

?04  9 

0  0  4  9 

c .  . 

.  .  .  .set  prompt  bo::  I 

.  rcation 

0  0  5 1 

PrmptPt.H  “  50 

?052 

FrmptPt .V  =  7- 

n  3 

00  54 

c  , 

.  .  .  . display  fries 

tvre  TEXT  or  r'-df 

7  ■*  c.  c 

SFT.SFKO'  .057 

■  TEXT ' 

00  5’* 

SFT.SFT(l) .05-  . 

-  •  rtdf  ' 

0758 

7  r*  5  o 

c. 

.  .  .  .  call  the  Tooli:  -  ' 

0060 
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0061  call  SFGetFil^-  Vval  (PrmptPt)  ,  %r«f  (Prompt)  ,  %val(nil), 

0062  &  «val(2),  %r«£ (SFT) ,  %val(nil) ,  %ref(SFR)  ) 

0063 

0064  c . Op«n  the  file  user  selected  open 

0065 

0066  if  (  SFR.gooc  : hen 

006"'  ioaerr  —  Se  rl  (  %val(nil)  ,  %val  (SFR .  vRefNum)  ) 

0068  open  (  uni-.  .-unit  ,  f  iie”SFR .  f  Name  ,  status” 'old'  ,  iostat—ios  ) 

0069  if  (  ios..-.e  )  then 

0070  write (*,  'Error  opening SFR . f Name, ' :  ios”',ios 

0071  else 

0072  iopen  " 

0073  FilNam  =  'R.fName 

0074  FilTyp  -=  "P. .  f Type  . OST 

0075  ioserr  »  ^tFInfo  (  %val (FilNam)  ,  %val (SFR. vRefNum)  ,  %ref ( fndrinf o )  ) 

0076  fMaker  =  rndrinfo . fdCreator .OST 

end  if 

0078  end  if 

0079 

0080  return 

0081  end 

0001  c . Load  a  file  of  STROCTDRE  and  PARAMETER  definitions  at  compile  time 

0002 

0003  !!G  toolbox2 . f inc 

0004 

0005  o . Load  the  Tool3  ,  traps 

0006 

0007  ! !M  Inlines. f 

0008 

0009  c - - - 

0010  subroutine  SF’.  .-.MissionFile  (  iopen  ,  FilTyp  ,  fMaJcer  ) 

0011  C-- - -  - 

0012  c  Open  a  missior,  rle  using  the  unit  number  (iounit).  A  successful  open 

0013  c  will  be  signal,  id  by  returning  [iopen“l] . 

0014 

0015  include  '  Filelr,  f  o  .  inc  ' 

0016 

0017  c . prompt  string 

0018 

0019  8tring*255  Prompt 

0020 

0021  c . reply  record 

0022 

0023  record  /SFRepl,.  SFR 

0024 

0025  c . prompt  locaticr 

0026 

j02~  record  /Point  PrmptPt 

0'^28 

002.^  c . file  informati-  parameters 

00  3  0 

0031  record  /'SFT%-t£  -t'  SFT 

00  32  record  /Flr.f  fndrinfo 

0033  character -4  FilTyp 

00  34  character*4  fMaJcer 

0035  3tring*255  FilNam 

0  0  3  6 

'7  ''j  3  ~  c . I  C  <9  r  f  o  I  f  3  'j 

■^03?  integ«r*2  io«Err,  ios 

0  0  4  C 

004  1  - -  - - 
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0042 

0043  c . initialize  ops  status  flag  to  zero 

0044 

0045  iopen  «  0 

0046 

004"'  c . set  the  prompt 

0048 

0049  prompt  «  'Select  misaion  data  file' 

0050 

0051  1^.  .  .  .set  prompt  box  location 

0052 

0053  PrmptPt.H  “  82 

0054  PrmptPt.V  -  64 

0055 

0056  c . display  files  cf  type  'rtdf 

0057 

0059  SFT.SFT (0) -OST  -  'rtdf 

0059 

0060  c . call  the  Toolbor 

0061 

0062  call  SFGetFile  ‘  .ral  (PrmptPt)  ,  %ref  (Prompt)  ,  %val  (int4  (nil)  )  , 

0063  &  ‘Val (int2 (2) ) ,  %ref(SFT),  %val ( int4 (nil) ) ,  %ref (SFR)  ) 

0064 

0065  c . Open  the  fils  ;  user  selected  open 

0066 

0067  if  (  SFR. good  hen 

OOeS 

0069  c . open  the  res^  -ce  fork 

0'’70 

0071  RafNum  ■=  Ops;.  iSFile(  %rof  (SFR. f name)  ) 

0072 

0073  select  case  -sError) 

0074 

0075  caBe(noErr 

007  6  iopen 

0077  FilNam  «  'R.flJame 

0078  FilTyp  -  'R.fType.OST 

0079  ioserr  »  stFInfo  (  %val(FilNam)  ,  %val (SFR. vRefNum)  ,  %ref (fndrinfo)  ) 

0080  fMaker  =  .;drInfo .  fdCreator  .OST 

0081 

0082  case  defaul 

0083  call  SysE  sp <  %val ( int2 ( 20) )  ) 

0084  call  Exit  oShell 

0085 

0086  end  select 

0087 

0088  end  if 

0089 

0090  return 

0091  and 

0001  ' ' 3  Sundry 

0002  c - 

0003  block  data  Su.-rry 

0004  c - 

0005  c  initialize  -.arious  parameters  via  block  data 

0006 

0007  c . commcn  block  fries 

0008 

0009  include  'CrvOa*  .rnc’ 

OOlO  include  'DefLir.inc' 

0011  include  '  MapCor. .  me ' 

0012  include  'MapLim.mC 
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0013  include  ' OptFlc . inc ' 
0014  include  'PicGrp.inc' 
0015  include  'TicDat.inc' 
0016 


0017 

c.  .  . 

. . various 

Map  curve  settings 

0019 

0019 

data 

' pvari 

/ 

1,  0, 

0, 

0/ 

o020 

data 

ipvard 

/ 

2,  0, 

0, 

0/ 

0021 

data 

ipvarg 

/ 

0,  0, 

0, 

0/ 

0022 

data 

idrlin 

/ 

1,  1, 

1, 

1/ 

0023 

data 

lintyp 

/ 

1,  2, 

3, 

4/ 

0024 

data 

□shMsk 

/  $FFFF,  $FFF0, 

$FCFC, 

$E0E0/ 

0025 

data 

idrsyir. 

/ 

0,  0, 

0, 

0/ 

0026 

data 

symtyp 

/ 

1,  2, 

3, 

4/ 

0027 

data 

ipstep 

/ 

0,  0, 

0, 

0/ 

0028 

data 

ighof f 

/ 

0,  0, 

0, 

0/ 

0029 

0030 

c .  .  . 

. .various 

Map  control  settings 

0031 

0032 

data 

GridLinos 

/ 

0/ 

0033 

data 

TimeTics 

/ 

0/ 

0034 

data 

Limit Type 

/ 

0/ 

0035 

0036 

c.  . 

. .usar  option  flags 

0037 

0038 

data 

oCycle 

/ 

0/ 

0039 

data 

oSave 

/ 

1/ 

0040 

data 

oP.edraw 

/ 

2/ 

0041 

data 

oNew 

/ 

3/ 

0042 

data 

oQuit 

/ 

4/ 

0043 

0044 

c .  . 

.  .tic  marie  setting’s 

0045 

0046 

data 

ndi'vtn  j 

/ 

10/ 

0047 

data 

Iticin  j 

/ 

10/ 

0048 

data 

Iticmi 

/ 

5/ 

0049 

0050 

c.  . 

.  .  . picture 

grouping  coiwnands 

0051 

0052 

data 

picGroupBeg 

/ 

140/ 

0053 

data 

picGroupEnd 

/ 

141/ 

0054 

0055 

c .  . 

, . . global 

Map  limits 

0056 

0057 

data 

LngMin 

/ 

-180.0  / 

0058 

data 

UigMax 

! 

180.0  / 

0059 

data 

LngDivM j 

/ 

30.0  / 

0060 

data 

LngDi-vtli 

/ 

10.0  / 

0061 

0062 

data 

LatMin 

/ 

-90.0  / 

0063 

data 

LatMax 

/ 

90.0  / 

0064 

data 

LatDit'Mj 

/ 

30.0  / 

0065 

data 

LatDivMi 

/ 

10.0  / 

0066 

0  0  6" 

c  .  . 

.  .  .default  Map 

0^69 

dat  a 

-180.0 

0070 

dat  a 

180.0  , 

0071 

data 

/■ 

30.0 

OO"?  2 

data 

::r  iv?'.: 

'■ 

IG  -  0 

0P"’3 

nr  "^4 

data 

yMaoMn 

/ 

-90.0  / 

00  "5 

data 

yMapyj; 

/ 

90.0  / 

0076 

data 

yDi-.-y; 

/ 

30.0  / 
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007-! 

data 

yCi--  1 

/  10.0  / 

0078 

0079 

data 

tMi.-  - 

/  0.0  / 

0030 

data 

/  1000.0  / 

0081 

data 

/  100.0  / 

0082 

0083 

end 

0001 

c 

.  .  .  Load  a  file  of 

-F.TCTURE  and  PARAMETER  definitions  at  compile  time 

0002 

0003 

1 

!G 

toolbo.x2  .  fine 

0004 

0005 

c , 

.  . .Load  the  ToclS 

traps 

0006 

0007 

t 

!M 

Inlines . f 

0008 

0009 

c . 

.  .  .Put  the  follc'- 

c  code  in  the  Main  segment 

0010 

0011 

0012 

0013 

Segment 

1  1 

1  S 

Main 

Main 

0014 

0015 

0016 

logical  functi 

TrapAvailable (  tMumbet,  tType) 

c 

This  is  my  imt 

entation  of  the  TrapAvailable  function 

0017 

c 

from  the  DTS  S 

tie  application. 

0018 

0019 

implicit  none 

0020 

integor*2  tNu.- 

!  trap  number,  defined  in  traps . f 

0021 

integer*!  tTyp< 

!  trap  type  (enumerated  in  c/pascal) 

0022 

integer*!  Toe'. 

ip  !  trap  type  for  comparison 

0023 

data  ToolTrap 

,  /  !  second  enumerated  type  should  be  ”1”? 

0024 

logical  check.' 

Jneck2 

0025 

0026 

c . 

•  . 

,  ..Common  block  o 

inition  files 

0027 

0028 

0029 

0030 

include  'Globa 

.  inc  ’ 

0031 

0032 

if  (  (tTypo.ee 

'oolTrap)  .and. 

0033 

1  ( (gMac.mae  . 

-neType) .gt .envMachUnknown)  .and. 

0034 

2  ((gMac.mac- 

neType) . It .envMacII) )  then 

0035 

tNun\b«~ 

•  land (tNumber , $03FF) 

0036 

if  (tNu- 

‘3"  .gt: ,  $01FF)  tHumb*r«tOnimpIeni«J)t»d 

0037 

and  if 

0038 

0039 

checkl  *  NGetO' 

Address <tNumb«r .  tType) 

0040 

check2  -  Get!’ 

'■ddress  (tOnimpiemented) 

0041 

if ( checkl . eq . . 

'k2)  then 

0042 

TrapAvaili 

^  ”  .false. 

0043 

else 

0044 

TrapAvail .. 

a  «  .true. 

'^045 

endif 

00  4  6 

0  0  4' 

return 

00  4  8 

end 

r,  n  O  1 

0P.7CTORZ  and  PARAMETER  definitions  at  compile  time 

0002 

0003 

?  f 

tooibox2 .fine 
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0004 

0005  c . Load  the  ToolBoj;  traps 

0006 

0007  !!M  Inlinoa.f 

0008 

0009  - - 

0010  subroutine  TrashBitMap  (  oldOffScreen  ,  myBitH  ) 

0011  c - 

0012  c  get  rid  of  ever jthir.g  associated  with  the  off  scieer.  bit  map 

0013 

0014  record  /  GrafPtr  /  oldOffScreen 

0015  record  /  Handle  /  myBitH 

0016 

0017  c . close  the  bit  map  port  and  dispose  of  the  associated  pointers 

0018 

0019  call  ClosePort 

0020  call  DisposPtr 

0021  call  DisposPtr 

0022  call  HDnlock 

0023  call  DisposHandle 

0024 

0025  return 

0026  end 

10.4  BDPS  REZ  SOURCE  CODE 

This  section  contains  the  BDPS  file  for  input  to  the  MPW  resource  compiler 
(“Rez”).  Most  of  the  information  in  this  file  is  directly  understandable  upon 
inspection.  However,  for  the  sake  of  completeness,  the  file  also  contains  machine- 
readable  representations  of  several  icons,  a  “PICT”  file,  and  a  popup-menu 
handler,  all  of  which  are  used  in  building  and  operating  the  BDPS  program. 

/•  bdps.r 

.8ez  fils  for  balloon  drift  pattsrn  simulation  */ 


(  %val (oldOf fScrasn)  ) 

(  %val (oldOf fScrssn .GrafP* .portBits .bassAddr)  ) 
(  %val (oldOffScrssn)  ) 

(  %val (myBitH)  ) 

(  %val (myBitH)  ) 


♦include 

>  "systypes . r" 

♦include 

1  "typea.r" 

rMenuBar 

128 

/» 

application's  menu  bar 

♦define 

mApple 

128 

/* 

Apple  menu  */ 

♦define 

mfile 

129 

/* 

File  menu  */ 

♦define 

mEdit 

130 

/* 

Edit  menu  */ 

♦define 

mMap 

131 

/* 

Map  menu  */ 

♦define 

rAboutAlert 

128 

/* 

"About  BDPS"  alert  box 

♦define 

rRunStatus 

129 

/* 

Run  status  dialog  */ 

♦define 

rMapSetup 

134 

/* 

Map  setup  dialog  */ 

♦define 

rResizeMap 

135 

/* 

Resize  Map  dialog  ♦/ 

♦define 

rP.unSetupDLOG 

256 

r* 

Run  Setup  dialog  */ 

♦define 

rBalloonP ICT 

-  r>  'M 

/  * 

PICT  for  "About  BDPS" 

*  these  Idefines  are  used  tr  set  enable/disable  flags  of  a  menu  * 

♦define  Allltems  Iblllllllllllllllllllllllllllllll  31  flags  ♦ 

♦define  Noltems  ?b?0c000000000000000000000c000000 

♦define  Menulteml  ObOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOl 

♦define  Menultem2  ObOOOOOOOOOOOOOOOOOOOOOOOOOOOOOlO 

♦define  Menultem3  ObOOOOOOOOOOOOOOOOOOOOOOOOOOOOlOO 

♦define  Menultem4  ObOOOOOOOOOOOOOOOOOOOOOOOOOOOlOOO 

♦define  Menultem5  ObOOOOOOOOOOOOOOOOOOOOOOOOOOlOOOO 
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#def ine 

MenuItemS 

OoOOO 0000000000000000000000 100000 

#def ine 

Menultem7 

;b00000 00000000000000000001000000 

#def ine 

Menu Item8 

MOO 00000000000000000000010000000 

#def ine 

Menultem9 

bOO 00000000000000000000100000000 

#def ine 

MenuItemlO 

MOOOOOOOOOOOOOOOOOOOOOIOOOOOOOOO 

Idef ine 

Menultemll 

. bOOOOOOOOOOOOOOOOOOOOlOOOOOOOOOO 

#def ine 

Menulteml2 

tCOOOOOOOOOOOOCOOOOOlOOOOOOOOOOO 

#def ine 

Menulteml3 

cOOOOOOOOOOOOOOOOOOlOOOOOOOOOOOO 

/* 

13 

Tk  ! 

#def ine 

Menulteml4 

-'OOOOOOOOOOOOOOOOOIOOOOOOOOOOOOO 

/» 

14 

*/ 

♦  dt.f  ine 

Mws'iaitemlS 

cOOOOOOOOOOOOOOOOlOOOOOOOOOOOOOO 

/» 

15 

*/ 

#def ine 

MenuItemlS 

cOOOOOOOOOOOOOOOlOOOOOOOOOOOOOOO 

/» 

16 

*/ 

#def ine 

Menulteml? 

oOOOOOOOOOOOOOOlOOOOOOOOOOOOOOOO 

/* 

17 

*/ 

#def ine 

MenuItemlB 

bOOOOOOOOOOOOOlOOOOOOOOOOOOOOOOO 

/* 

18 

*/ 

#def ine 

Menulteml9 

bOOOOOOOOOOOOlOOOOOOOOOOOOOOOOOO 

/* 

19 

*/ 

#def ine 

Menultem20 

bOOOOOOOOOOOlOOOOOOOOOOOOOOOOOOO 

/* 

20 

*/ 

#def  me 

Menultem2l 

tOOOOOOOOOOlOOOOOOOOOOOOOOOOOOOO 

/» 

21 

*/ 

#def ine 

MenuXtem22 

MOOOOOOOOIOOOOOOOOOOOOOOOOOOOOO 

/* 

22 

»/ 

♦define 

Menultem23 

cOOOOOOOOlOOOOOOOOOOOOOOOOOOOOOO 

/• 

23 

*/ 

♦define 

Menultent24 

>0000000100000000000000000000000 

/» 

24 

*/ 

♦define 

Menultem25 

>0000001000000000000000000000000 

/» 

25 

♦/ 

♦define 

Menultem26 

GOOOOIOOOOOOOOOOOOOOOOOOOOOOOOO 

/• 

26 

*/ 

♦define 

Menultem27 

.0000100000000000000000000000000 

/• 

27 

*/ 

♦def ine 

Menultem28 

-QOOIOOOOOOOOOOOOOOOOOOOOOOOOOOO 

/* 

28 

*/ 

♦define 

Menultem29 

, COIOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

/» 

29 

»/ 

♦define 

Menultem30 

rOl 00000000000000000000000000000 

/* 

30 

*/ 

♦define 

Menultem31 

1000000000000000000000000000000 

/* 

31 

*/ 

typ>e  'MDoF'  as  '  STR 

/*  crcH  is  the  signature 

*/ 

resource  'MDoF'  (0)  { 

/*  the  creator  resource  ID 

must 

be 

zero 

"Balloon  Drift  Patter 

simulation  1.0  copyright  1991" 

); 

/*  uae  an  MBAR  resource  to  c.  /eniently  load  all  menus  */ 

resource  'MBAR'  (rMenuBar.  Moon  Drift  menu  bar",  preload)  ( 

(  mApple,  mfilo,  tiiEdi"  mMap);  /*  four  menus  */ 

); 

resource  'MENU'  (mApple,  "At-  s  menu”,  preload)  ( 
mApple,  textMenuProc . 

Allltems  4  -Menultoml  '■*■  disable  dashed  line,  enable  About  and  DAs  */ 
enabled,  apple. 


)  : 


"About  BDPS . . 

noicor  o)cey,  nomar)c,  plain; 

noicor.  okey,  nomar)c,  plain 


resour 


others 


ce  'MENU'  (mEilo,  "Fi'. 
mFIle,  textMenuProc 
Menu Iteml2 , 

* 

enabled,  "File", 


i 


"Hew  Missicr. 

noicc - 
"Open  Missic" 
nciic-  ^ 


■enu”,  preload)  { 


nomark,  plain; 
nomark,  plain; 


ncLzz:  -<ey,  nomark,  plain; 

"Close " , 

noic:*'.  nomark,  plain; 

"Save"  , 


/♦  enable  Quit  only,  program  enables 
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noLCc 

'Save  As..."  , 


"Quit" 


2".  nomar)c,  plain; 


n  o  .1  c  c  r 

-key. 

nomark. 

plain ; 

’Revert" , 

n  o  i.  c  T  ' 

-key. 

nomark. 

plain; 

r.  o  I.  c  c  ■" 

okey. 

nomark. 

plain  .* 

"Page  Setup..." 

noico: 

k  9  y . 

nomark. 

plain; 

"Print..."  , 

noico." 

nomark. 

plain ; 

noiccr 

:key , 

noraark. 

plain; 

noiccr  Q",  nomark,  plain 


resource  'MENU'  (mEdit,  ‘c.d- 
mEdit,  textMenuProc . 
Noltems , 

enabled,  "Edit", 

( 

"Undo" , 

noicc - 

»•  ^  M 

noico 

"Cut", 

noiccr 

"Copy", 

noico- 
"Paste" , 

noicor 

"Clear", 

noicor. 


); 


) 


enu".  preload)  ( 

disable  everything,  program  does  the  enabling  */ 

nomarb,  plain; 
bey,  nomark,  plain; 
nomark,  plain; 
nomatk,  plain; 

V” ,  nomark,  plain; 
okey,  nomark,  plain 


resource  'MEMO'  (raMap,  "Map  ’.u",  preload)  { 
mMap,  textMenuProc, 

Noltems,  •  disable  everything,  program  does  the  enabling  */ 

enabled,  "Map", 


"Get  New  Data  t", 

noicon  okey, 
"Resire  the  M. 

noicon,  okey, 
"New  Map", 

noicon  okey, 
"Save  Map", 

noicon.  okey, 
"Redraw", 

noico.-  ;.<#y, 

"Done" , 

noico-  rkey. 


nomark,  plain; 
nomark,  plain; 
nomark,  plain; 
nomark,  plain; 
nomark,  plain; 
nomark,  plain 


resource  ’MEND’  (41, "Wind  M  preload) 

41,  textMenuProc, 

Allltems , 

enabled,  "Wind  Model 


/♦  Enable  and  disable  of  items  */ 
/•  Menu  list  name  */ 
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' 1  ’*■/  ■*  ran'-ary  Cli^nate 

nolcon,  noKey.  -oMark,  plain, 

»  2  */'  'Tecr'^ary  Climate 

nolcon,  noKey,  noMark,  plain, 
/•  3  ♦/  "Mar^h  Climate 
nolcon,  noKay,  noMark,  plain, 
/*  4  */  ’’Apr'  ,  tzliniata 

nolcon,  noKey,  noMark,  plain, 

5  */  "May  ‘iimate  ", 
nolcon,  noKey,  -.cMark,  plain, 
/*  6  */  "June  Climate  ", 

nolcon,  noKey,  noMark,  plain, 
/*  7  */  "July  Climate  ", 

nolcon,  noKey,  noMatk,  plain, 
/»  8  */  "August  Climate  ", 

nolcon,  noKey,  noMark,  plain, 
y*  9  */  " Sept emioer  Climate 

nolcon,  noKey,  noMark,  plain, 
/*  10  */  "October  Climate 
nolcon,  noKey,  noMark,  plain, 
/♦  11  */  "November  Climate 
nolcon,  noKey,  noMark,  plain, 
/*  12  */  "December  Climate 
nolcon,  noKey,  noMark,  plain, 
/♦  13  */  "Foracaat  ", 
nolcon,  noKey,  noMark,  plain, 
) 


reeource  'MEND'  (42, "Popup  me- u" . preload) 
42,  te,'ttMenuProc, 

Allltema, 

enabled,  "Popup  menu". 


/•  Enable  and  diaable  of  itema  */ 
/*  Menu  liat  name  »/ 
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eci274 

Marx,  plain. 


resource  'MENU*  M3,"Inpu*i  ---'it.  Prof  ile preload)  { 

43,  textMenuProc, 

Allltems,  , *  Enable  and  disable  of  items  */ 

en2d3led,  "Input  Asce.n--  Profile:",  /■*  Menu  list  name  */ 

{ 

1  */  "Asc  it  Profile 

no  Icon,  noKey  ■.  cMark,  plain, 

2  *f  "Tst  -defined  file...  ", 

nolcon,  noKey  toMaric,  plain, 

) 

)  ; 


resource  'BNDL'  (128)  f 
' MDoF ' , 

0, 

(  'ICN#', 

{  0,  12 

1,  12 

2,  13 

3,  13 

■ FREF' , 

(  0,  12 

1,  12 

2,  13' 

3,  13 


resource  'ICN#'  (128,  ’’BDPS  plication")  { 

(  /*  array;  2  e  ents  */ 

/*  (11  •/ 

$"0000  0000  :  0000  oooo  oooo  0003  fooo” 

S"00BD  ECOO  :  3200  0016  3900  0566  3900" 

$"002C  3C8C  :  3C80  02EC  3C80  002C  3C80" 

$"0024  3C9C  :  3300  0016  3900  OOOA  3A00" 

S'-OOAF  3400  :  3800  0002  0800  002E  0800" 

$"0001  FOOO  '  ICOO  0017  1000  0001  FOOO" 

$"0001  FOOO  ■  FOOO  0001  FOOO  0000  EO". 

/*  [2]  V 

$"3FFr  FFFC  '  r  FFFE  FFFF  FFFF  FFFF  FFFF" 

S’FFFF  FFFF  F.  "  FFFF  FFFF  FFFF  FFFF  FFFF" 

$"FFFF  FFFF  FT  F  FFFF  FFFF  FFFF  FFFF  FFFF" 

$"FFFr  FFFF  FF  T  FFFF  FFFF  FFFF  FFFF  FFFF" 


*  the  signature  of  this  application  */ 
'  the  creator  resource  ID  must  Ice  0  */ 
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$"FFFF  FFFF  FF- F  FFFF  FFFF  FFFF  FFFF  FFFF" 
S"FFFF  FFFF  FF ■ F  FFFF  FFFF  FFFF  FFFF  FFFF" 
$”FFFF  FFFF  FF : F  FFFF  FFFF  FFFF  FFFF  FFFF" 
3’'FFFF  FFFF  FF;  F  FFFF  7FFF  FFFE  3FFF  FFFC" 


res-T'urca  'IFN#'  '12  9,  "runti-Ta  data  file")  ( 

!  *  array:  2  el-.-ents  */ 

'  ;il  ’/ 

S"FFFF  FFOO  90' 2  0130  B81F  8140  A42F  6120" 

$"B859  9110  A4S1  C9Q8  B931  CDFC  8161  E4FE" 

3"B961  E406  AStl  S406  A561  E406  A521  E006" 

$"B8A1  E806  aOrl  C806  B851  D006  A439  A006" 

$''B817  4006  AOi:  4006  AOOF  8006  8008  8006" 

S"9C08  8006  AOCF  8006  BCOF  8006  840F  8006" 

3"B807  0006  800'  0006  A299  A696  B6B3  2AD6" 

S"AA99  AAB6  A2E:  2C96  FFFF  FFFE  7FFF  FFFE", 

(2]  ♦/ 

$"FFFF  FFOO  FFFF  FF90  FFFF  FFCO  FFFF  FFEO" 

3"FFFF  FFFO  FFFF  FFF8  FFFF  FFFC  FFFF  FFFE" 

$"FFFF  FFFE  FFFF  FFFE  FFFF  FFFE  FFFF  FFFE" 

3 "FFFF  FFFE  FFFF  FFFE  FFFF  FFFE  FFFF  FFFE" 

$"FFFF  FFFE  FFFF  FFFE  FFFF  FFFE  FFFF  FFFE" 

$"FFFF  FFFE  FFFF  FFFE  FFFF  FFFE  FFFF  FFFE" 

3 "FFFF  FFFE  FFFF  FFFE  FFFF  FFFE  FFFF  FFFE" 

$"FFFF  FFFE  FFFF  FFFE  FFFF  FFFE  7FFF  FFFE" 

) 

}; 

resource  'ICN#'  (130,  "atmosphere  data")  { 

{  /*  array:  2  elements  */ 

(1]  •/ 

$"E031  4198  8DCB  1244  E804  0802  1080  OOOA" 

$"9080  0011  8880  0811  E2C2  0841  0269  0C21" 

$"4200  B061  41AA  0AB2  4005  555C  007A  EAAO" 

$"AOOD  B6C4  E007  OFOO  AOOO  1048  A004  0180" 

$"0040  C290  4088  0000  AOOO  8100  E102  0000" 

$"A000  0840  0241  0200  E040  2080  4010  0400" 

$"4404  2000  4020  0200  0100  8000  E008  0000" 

$"8400  0000  C003  8CE6  8822  5E4r  E00.3  9249", 

/*  t21  */ 

$"0031  C198  OFFB  F3rC  ITTT  FTFE  IFFT  rFFE" 

$"irrr  ffft  offf  ffff  03rr  rrrr  03rr  rrrF" 

S"03rF  FFFF  OlFF  FFFE  OOFF  FFFC  007F  FFEO" 

$"000F  BrC4  0007  OFOO  0000  1048  0004  0180" 

$"0040  C290  0088  0000  0000  8100  0102  0000" 

$"0000  0840  0241  0200  0040  2000  0010  0000" 

$"0404  2880  0020  0000  0100  0000  0008  8200" 

$"0400  0000  0000  0000  0820" 

) 

)  ; 

reaou  .'ce  '  ICN# '  (131,  "ascent  profile")  { 

(  /*  array:  2  elements  */ 

/*  (11  */ 

$"FFrr  FFFF  30j9  0001  8C66  7489  9289  4691" 

S"9EE8  6791  9239  4591  92C6  7491  8000  0001” 

$"9FFF  FFF9  90"  )  0009  9000  0009  9040  0009” 

$"90Ar  FrE9  9133  3009  9100  0009  9300  0009" 

$"9200  0009  9200  0009  9400  0009  9400  0009" 

$"9800  0009  9800  0009  9800  0009  9rFr  TTT9'' 

$"8000  0001  B9C6  751D  A529  4511  B9C9  6519" 

$"A149  4511  A126  45DD  8000  0001  FFFF  FFFF", 
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$ 

"  y'rrr 

FFFF 

F:  FF 

FFFF 

FFFF 

FFFF 

FFFF 

FFcF 

$ 

"FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFF** 

FFFF 

5 

"FFrr 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

c-fFF 

FFeT 

5 

••  rrp’r 

FFFF 

FFFF 

FFFF 

FFFF 

FFtF 

FFFF 

FFFF 

$ 

"  rrrc 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

o 

"FFFF 

FFFF 

F^'FF 

F^FF 

FFFF 

FFFF 

FFFF 

FFFF 

3 

‘rrrr 

rrrr- 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

3 

’FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

FFFF 

reaourc 


e  'EREF' 
■ APPL' , 
0, 


I  liS) 


( 


resource  ' FREF ' 
■rtdf ' , 


1, 


(129) 


( 


}  ; 

resource  'FREF'  (130)  ( 

'  -gram '  . 


)  ; 

resource  ' FREF '  (131)  ( 

' ascp  ’  , 

3, 


)  ; 


*  this  ALRT  and  DITL  are  use  :  as  an  About  screen  */ 

resource  'ALRT'  ( rAboutAlert .  'About  Box",  purgeable)  { 
(40,  20,  338,  506), 
rAboutAler*" , 

(  /*  arrr^ :  4  elements  'I 


/* 

[11 

*/ 

OK, 

visible. 

3: 

j  * 

;2i 

»/ 

OK, 

viaibltt. 

s  : 

•nt 

/* 

[3] 

*/ 

OK, 

visible. 

/* 

[41 

*/ 

OK, 

visible. 

3  ' 

«nt 

resource  'DITL'  (rAboutAlert,  About  Box",  purgeable)  ( 
(  array  DITLa  ly:  2  elements  */ 

•  ri)  ♦/ 

(247,  352,  2';  ;32;. 

Button  ( 

enabled 

"OK" 

)  , 

/''  [2]  »/ 

(-1,  -1,  290,  ."6), 

Picture  { 
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'  This  i3  Ih?!  iatiniiJLon 

resource  DI.OG’  (rRunSteC", 
MO,  40,  123,  36S. 
IBo.xProc , 
i.T.'isibla, 
noGoAway , 


-.e  run  status  dialog  */ 

un  Status  Dialog*','  f 

,  Top  Left  Bottom  Right  */ 


rRunStatus  , 


*  This  is  the  item  list  for  he  run  status  dialog 

cosoar'  e  'DITL*  (rRunStatus.  Run  Status  Dialog")  ( 
f  ./*  array  DITl-o  ray:  3  elements  */ 

■*  [11  ^ 

(14,  33,  50,  :  3), 

StaticText  •' 

disabl'^  , 

"Oener-  eng  balloon  drift  pattern  data...' 


(44,  53,  72,  :  5,). 
StaticText  ( 

disable  . 

"Porcer  complete;’ 

}  , 

(31  V 

(44,  198,  *50,  .70), 
EditToxt  ( 

enabled , 

"0.0" 


*  This  is  the  definition  for  the  run  setup  dialog,  "Untitled”  »/ 

resource  'DLOC  ( rRunSetupDLOG ,  "R'-n  Setup  Dialog",  purgeable)  {  /*  Dialog  */ 

(  30,  10,  332,  501  )  /*  Top  Left  Bottom  Right  */ 

dBoxProc,  Invisible,  r.  ■  GoAway ,  256,  rRunSetupDLOG,  /*  ProcID,  visible,  noGoAway, 
.RefCon.  DITL  */ 

"Untie led" 

I  ; 

*  This  ' s  the  item  list  for  e  run  setup  dialog*/ 

resource  ’DITL’  '  rRunSetucDl.  '^un  Setup  Dialog",  purgeable) 

(  *  DITL  arrav  of  terns  ■*/ 


'  •  [1] 

f  269,  396,  288,  4"6 
Button  ( 

enabled, 

"Close" 

)  , 


Top  Left  Bottom  Right  */ 
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;'S4  3  96,  2?4,  -J'?  '*  Top  Left  Bottom  Right 

Button  i 

enabled, 

"Run” 


j  9  6 .  :  -5 : 

enabled, 

"Map” 


f  212, 

Button 


}  . 

[5]  */ 

f  89,  246,  104,  326 
PadioButton  ( 

enabled, 

"deg  West” 

\  , 

/•  16)  */ 

(  39,  338,  104,  418  f, 
RadioButton.  { 

enabled, 

"deg  East" 

I  , 

[•']  V 

(  117,  246,  132,  282  >, 
RadioButton  ( 

en  abled, 

"m” 

/*  [8]  V 

(  117,  294,  132,  338  ), 
RadioButton  { 

enabled, 

"km" 

}  , 

/*  [9]  */ 

{  145,  246,  160,  294  !• 
RadioButton  ( 

enabled, 

"sec" 

I  , 

/‘  110) 

(  145,  294,  160,  342 
PadioButton  ( 

enabled, 

"min  " 

t  , 


396,  232,  475 

I 

enabled, 

"Save" 


Top  Left  Bottom  Right  */ 


:*  Top  Left  Bottom  Right  ♦/ 


Top  Loft  Bottom  Right  */ 


'*  Top  Left  Bottom  Right  ♦/ 


/*  Top  Left  Bottom  Right  */ 


/*  Top  Left  Bottom  Right  */ 


Top  Left  Bottom  Right  */ 


,  *  Top  Left  Bottom  Right 


/•  [11]  ♦/ 
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I  145,  342.  160,  3"3  ,  /' *  Top  L«ft  Bottom  Right  ♦/ 

PadioButton  ( 

enabled, 

"hr" 


*  [121  * 

(  65,  104,  90,  163  ), 

StaticText  ( 

disabled, 

"Latitude : " 

} , 

[13]  */ 

(  39,  94,  104,  174  }, 

StaticTe.-ct  { 

disabled, 

" Longitude : " 

} , 

[14]  */ 

(  65,  263,  80,  343  }, 

StaticText  ( 

disabled, 

"dag" 

)  - 

/*  [15]  */ 

(  141,  €1,  157,  169  ], 

StaticText  ( 

disabled, 

"Flight  Duration:" 
I- 

/*  [16]  */ 

(  69,  18,  101,  78  }, 

StaticText  ( 

disabled, 

"Launch  Position" 


/*  Top  Left  Bottom  Right  ♦/ 


/*  Top  Left  Bottom  Right  ♦/ 


/*  Top  Left  Bottom  Right  ♦/ 


/*  Top  Left  Bottom  Right  */ 


/*  Top  Left  Bottom  Right  ♦/ 


/*  [17]  */  .  . 

{  117,  62,  133,  170  ),  /*  Top  Left  Bottom  Right  */ 

StaticText  ( 

disabled, 

"Initial  Altit  e:" 

)  , 

/•  [18]  */  ,  . 

(  19,  16,  50,  68  ] ,  /*  Top  Left  Bottom  Right  */ 

StaticText  ( 

disabled, 

"Mission  Label 

}  , 

/*  [19]  ♦/ 

(  19,  83,  53,  465  ), 

Edit Text  ( 

enabled, 

"Wallops  Isla,-. 
mission  represented  by  this 
}  , 

/♦  [20]  ♦/ 


/»  Top  Left  Bottom  Right  */ 

;_ight  -  Z  configuration  (this  te.xt  may  be  used  to  identif 
a)" 


the 
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/  ^4,  195,  78.  235  Top  Left  Bottom  Right  */ 

'•HitText  ( 

enabled, 

"54.45" 


(  jO  la5,  104,  235  •'' *  Top  Left  Bottom  Right  '/ 

EditTe.xt  ( 

enabled. 

"154.45" 

t  , 

/*  [221  ♦/ 

(  116,  185,  130,  235  /*  Top  Left  Bottom  Right  «/ 

EditText  { 

an  abled, 

”154.45" 

t  , 


(231  */ 

(  143,  185,  157,  235  /*  Top  Left  Bottom  Right  */ 

EditText  { 

enabled, 

"154.45" 

1  , 


/’  (241  */ 

{  175,  93,  195,  343 
Control  ( 

enabled, 

133 

)  , 

/*  [251  */ 

(  204,  40,  224,  345 
Control  { 

enabled, 

133 

)- 


/*  Top  Left  Bottom  Right  »/ 

/♦  popup  Reaource  ID  linked  to  */ 

/*  Top  Left  Bottom  Right  */ 

/»  popup  Reaource  ID  linked  to  */ 


} 

1; 

/♦  This  is  the  definition  f  he  map  setup  dialog  */ 

resource  'DLOG'  (rMapSetup,  -.p  Setup  Dialog",  purgeable)  (  /*  Dialog  */ 

f  41  11  330  390  ■■  /*  Top  Left  Bottom  Right  */ 

documentProc,  visibl-  -oGoAway, 0x0,  rMapSetup,  /*  ProcID,  visible,  noGoAway, 

RefCon,  DITL  ♦/ 

"Map  Set  Op” 

}  ; 


/'•  This  is  the  item  list  fc: 

resource  'DITL'  (rMapSetup, 

(  /*  array  DIT'. 

/*  (11  */ 

(11,  11,  35. 
Button  { 

enabi-r 

"PLOT" 


'.9  map  setup  dialog*/ 

■p  Set  Op",  purgeable)  ( 
■y;  23  elements  */ 


)  , 

/*  [2]  */ 
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(46,  11. 
Button  { 


I  , 

■'*  [3  1 

•’ll,  101.  3 : . 
OheckBox  > 

enahl^ 

"  dra'- 

1, 

/*  [4]  */ 

{36,  101,  55, 
ChecJcBox  ( 

enabl-?- 

"dra--^ 

[5]  •/ 

(116,  111,  1- 

EditText  ( 

disabl 

}, 

/*  [6]  *.'■ 

(151,  111,  1" 
EditTaxt  ( 

disabl 

}. 

/*  [7]  */ 

(186,  111,  21, 
Edit Text  { 

disabl 

), 

/*  (8)  •/ 

(221,  111,  24 
EditT«xt  ( 

di  Sabi- 


1, 

/*  [9]  */ 

(116,  221,  14' 
EditTaxt  { 

disabl- 


1, 

/♦  [10]  */ 

(151,  221,  171 
EditTaxt  < 

disable 


}. 

/*  [11]  •/ 

(186,  221,  217 
EditTaxt  ( 

disable 


), 

/♦  [121  */ 

(221,  221,  245. 
EditTaxt  { 

disablac 


.  lines 

■  tics” 

I'O), 

10  K 

101, 

101, 

'201, 

20), 

■20)  . 

20), 
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) . 

[13]  */ 

I  256,  111,  230,  210  i , 

EditT9,’<t  i 

disabl^c. 


*  [141  *■ 

(116,  6,  140.  :5}, 

StaticTa.'Tt  { 

disable . . 

"minisiu.'n  axis  value” 

}, 

,'■*  (15)  */ 

{151,  6,  175,  -.'S}, 

StaticToxt  ( 

disabled, 

"maximur-  axis  value" 

1  , 

/*  (161  V 

(186,  6,  210,  105), 

StaticTe.xt  { 

disabled, 

"major  division  size” 

}, 

/*  [17]  '>■/ 

{221,  6,  245,  105>, 
StaticText  { 

disabled, 

"minor  division  «ize" 

), 

/*  (18]  */ 

{261,  6,  285,  105), 
StaticText  { 

disabled, 

"time  tic  increment” 

), 

/*  (19]  */ 

{96,  111,  110,  190}, 
StaticText  ( 

disabled, 

"latitude” 

)  , 

/*  (201  •/ 

(96,  221,  110,  300), 
StaticText  ( 

disabled, 

"longitude" 

}, 

/*  (211  »/ 

(11,  241,  35,  360), 

Button  ( 

enabled, 

"RESET  MAP  LIMITS" 

), 

(221  '/ 

{41,  241,  60,  360), 
RadioButton  { 

enabled . 

"full  g.  >bal  map” 

), 

/*  (23)  */ 

{66,  241,  85,  '-M, 

RadioButton  { 
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“nabi 

■•seal. 


}  ; 

■»  This  IS  the  definition  i 

resource  'DLOC  (rResiieMap. 
(  41,  11,  170,  370 
documontProc,  vrsib- 
RofCon,  DITL  */ 

"Resize  Map" 
t  ; 


ata" 


.-.e  map  resize  dialog  »/ 

•esize  Map  Dialog",  purgoable)  (  /*  Dialog  */ 

./*  Top  Left  Bottom  Right  */ 
rdoAway, 0x0,  rResizeMap,  /*  ProcID,  visible. 


This  is  the  item  list  fo- 


e  map  resize  dialog*/ 


resource  "DITL"  (rResizeMap-  asrze  Map",  purgeable)  ( 
{  ,'*  array  DITL  y;  6  elements  */ 

/*  [1]  */ 

(11,  21,  35. 

Button  { 

enable 

"OK" 

), 

,•*  [21  */ 

[46,  21,  70, 

Button  ( 

enable 

"RESST 

1, 

/*  [3]  */ 

(11,  23€,  35,  :1, 

EditText  { 

disabi' 


>, 

/*  (41  */ 

(46,  236,  70,  dl, 

EditText  { 

disable 

»*  ft 

), 

/*  [51  */ 

(11,  126,  35,  0), 

StaticText  [ 

disabi' 

"map  oM  width" 

1, 

/•  [6]  */ 

[46,  126,  70.  7', 

StaticText  ( 

disabl- 

"map  "e ■  .''W  height" 


resource  'STR#'  (281  ,  "Lat-  3_r,abei  )  { 

j  for  Static  te,xt  »/ 

/*  [11  */ 

"Latitude: " 

) 


noGoAway , 
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»  ; 

rasour-e  'SIP#'  (292  .  "Lcr.-  .o_Lab»l")  ( 

;  »  for  Static  text  */ 

*  flj  ' 

"Longitude : " 


resource  'STR#'  (234  -  "Lat  .e_u-nit3  )  { 

(  ♦  for  Static  text  */ 

‘  [li  */ 

■'deg'' 


resource  'STR#'  (287  ,  ' Dur 

(  * 

/*  [1] 

"night  Duration:" 

) 

}  : 

resource  'STR#'  (274  ,  "Laun  -.abel2")  { 

j  for  static  text  */ 

/*  [II  »/ 

"Launch  Position" 


-._Labei")  ( 

for  static  text  */ 


resource  'STR#'  (290  ,  "Alti  .9_Label")  { 

j  y*  for  Static  text  */ 

/*  [11  V 

"Initial  Altitude:" 

I 

); 


resource  'STR#'  (305  ,  "Miss.  :-._Label")  { 

j  for  static  text  */ 

/*  [IJ  ♦/ 

"Mission  Label:" 

} 

}; 


resource  'STR#'  (280  ,  "Latit  .  e”)  { 

{  /* 

/*  [11  ♦/ 

"54.45" 

1 

)  ; 

resource  'STR#'  (283  ,  "Latit  92")  { 

(  /*■ 

/*  [II  ♦/ 

"154.45" 

) 

); 


for  default  edit  text  */ 


for  default  edit  text  */ 


resource  'STR#'  (270 
(  /■* 

/*  [II  V 

"154.45" 

) 

)  ; 


"Latif  93") 
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D400" 

S"BE00 

FDOO 

AFOO 

D4C 

30 

D400 

AEOO 

D500 

AEC' 

D700 

AEOO 

DAOO 

AEOO 

DBOO 

AFOO 

DFOO" 

$"B100 

ESOO 

8200 

EAO 

OO 

SDOO 

B400 

FOOD 

B600 

F400 

B700 

F6'0 

B800 

FBOO 

B900 

FAOO" 

$"BAOO 

FBOO 

BBOO 

1* ' J  0 

.23 

FDOO 

BDOO 

FDOO 

BEOO 

FDOO 

BEOO 

FDOO 

BEOO 

FPOO 

BEOO 

F700" 

$"BEOO 

F600 

BEOO 

F5C 

00 

FlOO 

BCOO 

EDOO 

BBOO 

EAOO 

BAOO 

E700 

B900 

EJOO 

B600 

DCOO" 

S”B400 

0900 

B300 

D8'' 

00 

0500 

BOOO 

D400 

BOOO 

D400 

AFOO 

D409 

OOoO 

0000 

"000 

0000" 
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S'"  coo 

9E00 

AEOO 

D4C0  3E00 

FDOO 

AFOO 

0400 

AFOO 

D400 

AEOO 

D500 

AEOO 

D700 

AEOO 

CAOO" 

5-AECO 

OBQO 

AFOO 

CFO-"’  3100 

S600 

B200 

EAOO 

B300 

EDOO 

8400 

FOOO 

B600 

F400 

B"00 

Fb'CO  " 

S' 330  0 

F300 

8900 

FAC 0  c AO'O 

F300 

BBOO 

FCOO 

BCOO 

FDOO 

BDOO 

FDOO 

BEOO 

FDOO 

BEOO 

FCOO  " 

S "3EC0 

;-30u 

BEOO 

F"00  BEOO 

F600 

BEOO 

F500 

BDOO 

riOO 

BCOO 

EDOO 

BBOO 

EAOO 

BAOO 

E"  00  " 

S  "  3  SO  c 

S3  00 

B600 

OCOO  3400 

D900 

B300 

D800 

BlOO 

0500 

BO  00 

D400 

BOOO 

D400 

AFOO 

C4A1  " 

S" --CS 

0  004 

1-  -  ,-l  A 

4000  AOOO 

3FA0 

0CO9 

AOOO 

D7A1 

00B6 

0004 

0040 

0080 

07  00 

0000 

002  2  " 

3  "  0 '  3 

:0E0 

TAAQ 

AOOO  AOAl 

OOA4 

0002 

0140 

0100 

I't-OO 

0000 

0000 

0000 

0007 

0001 

0001" 

S'; OFF 

FFFF 

FFFF 

FFFF  FFC2 

0058 

00D8 

0823 

2300 

192  3 

FE12 

2  3FD 

1023 

FE06 

23FD 

OSAO" 

3"C0A3 

0100 

CAFF 

FFFF  FF'jI 

lEOl 

r-22 

0058 

0008 

0104 

2302 

0  923 

0106 

2302 

0823 

0 1 0  6  " 

S"2300 

0423 

0106 

2300  0323 

0002 

2300 

0323 

0005 

2300 

0523 

FF0  6 

2300 

0223 

0004 

23FE" 

3"0923 

FF04 

2300 

223  FF04 

2300 

0223 

FF03 

2300 

0023 

0000 

23FF 

0323 

FF03 

23FF 

0323" 

3"FF0,; 

AOOO 

AlAl 

0036  0004 

0001 

0001 

0700 

0000 

0033 

00  30 

AlOO 

B60C 

0400 

4000 

3022" 

$■•0093 

OOFA 

OOOi, 

AOOO  AOAl 

00A4 

0002 

0140 

0100 

OAOO 

0000 

0000 

0000 

0007 

0001 

0001" 

S"2200 

7201 

OAFO 

2123  rsi::, 

23F9 

1323 

FE06 

AOOO 

A30* 

OOOA 

FFFF 

FFFF 

OllE 

OlFC 

2200" 

$"■’201 

GATE 

0423 

FC08  23FD 

0723 

FD07 

23FD 

0623 

FEC5 

23FE 

0523 

FF04 

23FF 

0223 

FF03" 

S"23FD 

0723 

FE06 

23FS  0523 

FF03 

23FF 

0323 

FE04 

23FF 

0423 

FF03 

23FF 

02A0 

OOAl 

AlOO" 

5"360r 

0400 

0100 

0107  OOOO 

oc:,o 

2300 

OOAl 

00B6 

0004 

0040 

0080 

2200 

9101 

1700 

O^AO" 

$"OCaO 

AlO^ 

A400 

0201 

.001 

OOOA 

0000 

t  JO 

0000 

0000 

0700 

0100 

0122 

007E 

012c 

EB13" 

$"2  'EC 

1723 

F21B 

23FD 

;aao 

00A3 

0100 

OAFF 

FFFF 

FFOl 

lEOl 

rc22 

007E 

012C 

FE02 

23FA" 

$'•0!  23 

FC04 

23FC 

0423  -304 

23FE 

0323 

FC04 

23FD 

0323 

FFOl 

23FE 

0323 

FB06 

23FC 

0623" 

$''F,36 

23FE 

0423 

FEC*3 

.  CFO 

0623 

FE06 

23FE 

0523 

FF03 

AOOO 

AlAl 

00B6 

0004 

0001 

0001" 

3  '0700 

0000 

0023 

0000 

:':C0 

B600 

0400 

4000 

8022 

00B8 

00D4 

0000 

AOOO 

AOAl 

00A4 

0002" 

S"01-10 

0100 

OAOO 

OOOC  ‘00 

0000 

0007 

0001 

0001 

2200 

BFOO 

D202 

F923 

OlFB 

2300 

FCAO” 

S"00A3 

0100 

OAFF 

FFFT 

-01 

lEOl 

FC22 

OOBF 

0002 

OlFE 

2300 

FE23 

OlFE 

2301 

FD2  3 

0000" 

$'•2300 

FF23 

OOFC 

230" 

:ao 

OOAl 

AlOO 

B600 

0400 

0100 

0107 

0000 

0000 

2300 

OOAl 

00B6" 

$"0004 

0040 

0080 

220C 

;0A 

S300 

00  AO 

00  AO 

AlOO 

A400 

0201 

4001 

OOOA 

0000 

0000 

0000" 

$"0000 

0700 

riOO 

0122  0C2 

OOEl 

02FA 

2301 

FAAO 

00A3 

0100 

CAFF 

FFFF 

FFOl 

lEOl 

FC22  " 

$"00C2 

OOEl 

OlFD 

2302 

A23 

OOFD 

AOOO 

AlAl 

0086 

0004 

0001 

OOOC 

0700 

0000 

0023 

0000" 

$"A100 

8600 

0400 

4000  ■022 

00C6 

OOF8 

0000 

AOOO 

AOAl 

00A4 

0002 

0140 

0100 

OAOO 

0000" 

$"0000 

0000 

0007 

OCCC 

■-01 

2200 

CAOO 

F602 

FC23 

02FB 

2303 

FCAO 

00  A3 

0100 

OAFF 

FFFF" 

$"FF01 

lEOl 

rc22 

OOCA 

OF  6 

OlFE 

2302 

FC23 

OOFF 

2301 

rF2  3 

02FD 

2301 

FEAO 

OOAl 

AlOO" 

$"8600 

0400 

0100 

01"" 

COO 

0000 

2300 

OOAl 

0086 

0004 

0040 

0080 

2200 

C800 

E700 

OOAO" 

$"00A0 

AlOO 

A400 

020' 

001 

OOOA 

0000 

0000 

0000 

0000 

0700 

0100 

0109 

0000 

0000 

0000" 

$"0000 

2200 

C400 

E8FT 

423 

0000 

23FF 

0123 

0000 

AOOO 

A301 

OOOA 

FFFF 

FFFF 

UllE 

OlFC" 

$"2200 

C400 

E8FF 

04-0 

-01 

AOOO 

ALAI 

0086 

0004 

0001 

0001 

0700 

0000 

0023 

0000 

AlOO" 

$"8600 

0400 

4000 

802. 

'OCA 

00F3 

OOOC 

•‘700 

AOAl 

00A4 

0002 

094C 

0100 

OAOO 

0000 

0000" 

$"0000 

0007 

0001 

000. 

200 

C800 

F300 

0223 

0000 

23FF 

0123 

0000 

2300 

0123 

0000 

2300" 

$"0023 

0000 

AOOO 

\30 

:oOA 

tFFF 

rrrr 

OllE 

oirc 

3200 

C800 

F300 

0223 

FFOl 

2300 

0123" 

$"0000 

AOOO 

AlAl 

OOB' 

C004 

0001 

0001 

0700 

0000 

0023 

0000 

AlOO 

B600 

0400 

4000 

8007" 

$"0001 

0001 

2200 

BFO 

-8Fr 

04A1 

0086 

0004 

0001 

0001 

0700 

0000 

0023 

0000 

AlOO 

B600" 

S"04 jO 

4000 

8022 

OOD.- 

0A2 

0000 

AOOO 

AOAl 

00A4 

0002 

0140 

0100 

OAOO 

0000 

0000 

0000" 

$"0007 

0001 

0001 

220'- 

BOO 

A6rc 

0423 

FDOl 

23FC 

3123 

FBFF 

23FB 

FF23 

F901 

2  3FC 

0323" 

$"FB03 

AOOO 

A301 

000. 

FFF 

rrrr 

OllE 

oirc 

..200 

DBOO 

A6FF 

0123 

(E02 

23FF 

"123 

FFOO" 

$"2300 

0023 

rroi 

2  3F'- 

123 

FTOO 

23rr 

0023 

FEOO 

23TT 

0023 

FFOO 

23FD 

rF23 

FFOO 

23FF" 

$"0023 

FCOO 

23FE 

002. 

TOO 

23rD 

0123 

FFOl 

2300 

0023 

FEOl 

23FE 

0123 

FFOl 

23FE 

OlAO" 

$"00A1 

AlOO 

8600 

04  0c 

100 

0107 

0000 

0000 

2300 

OOAl 

0096 

OOOC 

0200 

0000 

0500 

0000" 

$"0000 

0002 

AlOO 

9ACC 

;8rr 

r800 

0000 

7C0O 

0001 

OOOA 

008D 

OOD  A 

OOBE 

OlFB 

2C00 

0800" 

$"1405 

5469 

6065 

7303 

-014 

0419 

0000 

2828 

OOAD 

OOEE 

0742 

414C 

4C4F 

4F4E 

AOOO 

97A1" 

$'■0086 

0004 

OOOC 

008.. 

.-cl  00 

B600 

0400 

0100 

0101 

OOOA 

FFFF 

FFFF 

OllE 

OlFC 

2200 

ADOl" 

$"E600 

OOAl 

0086 

0004 

;  ooc 

0080 

AlOO 

8600 

0400 

0100 

0123 

0000 

AlUO 

8600 

0400 

4000" 

3  'gOAl 

0086 

0004 

000 

001 

2300 

OOAl 

0086 

0004 

0040 

0080 

AlOO 

8600 

0400 

0100 

0123" 

$"0000 

AlOO 

8600 

04C 

;ooo 

80A1 

0086 

0004 

0001 

0001 

2300 

OOAl 

0086 

0004 

0040 

0080" 

3"A100 

8600 

0400 

oi: 

'123 

0000 

AlOO 

B600 

0400 

4000 

80A1 

0086 

0004 

0001 

0001 

2300" 

S"0CA1 

0086 

0004 

JOc  090 

AlOO 

C600 

0400 

0100 

0123 

0000 

AlOO 

8600 

0400 

4000 

80A1" 

$"0086 

0004 

0001 

00 

ICO 

OOAl 

0086 

0004 

0040 

0080 

AlOO 

8600 

0400 

0100 

0123 

0000" 

$"A100 

B6C  J 

0400 

4?''  :ai 

•0086 

0004 

0001 

0001 

2300 

OOAl 

0086 

0004 

OOOC 

0080 

AlOO" 

$"8600 

0400 

0100 

•  '  •  '  A 

AlCO 

8600 

0400 

OCOO 

90A1 

<"086 

0004 

0001 

0001 

2300 

OOAl" 

$"0086 

0004 

OOOC 

:o  -CO 

3600 

0400 

0100 

0123 

0000 

AlOO 

8600 

0400 

OCOO 

90A1 

00B6” 

$"0004 

0001 

0001 

23' 

:ai 

OOB6 

0004 

OOOC 

0080 

AlOO 

8600 

0400 

0100 

0123 

0000 

AlOO" 

$"8600 

0400 

■SCOO 

•9  ?  ■'  r 

0004 

0001 

0001 

2300 

OOAl 

OOB6 

0004 

OOOC 

0090 

AlOO 

B600" 

$"0400 

0100 

0123 

0  3  ■-  -CO 

B600 

0400 

OCOO 

80A1 

0086 

0004 

0001 

0001 

2300 

OOAl 

0CB6" 

$"0004 

OOOC 

0080 

A1 

600 

0400 

0100 

0123 

0000 

AlOO 

8600 

0400 

OCOO 

80A1 

00B6 

0004" 

$"0001 

0001 

2300 

0  0, 

036 

0004 

OOOC 

0080 

AlOO 

8600 

0400 

0100 

0123 

0000 

AlOO 

B600" 

$"0400 

OCOO 

80A1 

00'. 

C04 

0001 

0001 

2300 

OOAl 

c  JB6 

0004 

OOOC 

0080 

AlOO 

B600 

0400" 
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$"0100 

0123 

000  0 

AlOO 

-  00 

0400 

OCOO 

Sf'Al 

00B6 

0004 

0001 

0001 

2300 

OOAl 

00B6 

0004' 

$"000C 

00  9C 

AlOO 

3  610 

: 

0100 

0123 

0000 

AlOO 

B600 

0400 

OCOO 

80A1 

00B6 

0004 

“'001 

^  ^  nit  ]_ 

2  200 

OOAl 

1036 

1C4 

0040 

0080 

AlOO 

B600 

0400 

0100 

012  3 

0000 

AlOO 

3600 

^400 

$•'4000 

90A1 

00B€ 

00  0  4 

:oi 

0001 

2300 

OOAl 

00B6 

0004 

0040 

0080 

AlOO 

B600 

0  4  00 

0100 

3" '110  0 

n  n  n 

AlOO 

3600 

•  oo 

4000 

80A1 

00B6 

0004 

0001 

0001 

2300 

OOAl 

00B6 

0004 

'^0  4  C 

$'•  l'?90 

AlOO 

3600 

0  4  0  C 

:o 

0123 

0000 

AlOO 

B600 

0400 

4000 

80A1 

00B6 

0004 

0001 

0  0  0  1 

3  "  2  0  0 

OOAl 

OOB6 

0004 

.040 

0080 

AlOO 

B600 

0400 

0100 

0123 

0000 

AlOO 

B600 

0400 

40  0  0 

$"90A1 

O'Ose 

0  00  4 

0001 

1001 

2300 

OOAl 

00B6 

0004 

0040 

0080 

AlOO 

B600 

0400 

0100 

012  3 

$■'0000 

AlOO 

B600 

0400 

4000 

90A1 

OOB6 

0004 

0001 

0001 

2300 

OOAl 

00B6 

0004 

0040 

0090 

$"A100 

B600 

0400 

0100 

0123 

0000 

AlOO 

B600 

0400 

4000 

80A1 

00B6 

0004 

0001 

0001 

2300 

$”00A1 

00B6 

0004 

0040 

1080 

AlOO 

B600 

0400 

0100 

0123 

0000 

AlOO 

B600 

0400 

4000 

90A1 

$"00B6 

0004 

0001 

0001 

2300 

OOAl 

00B6 

0004 

0040 

0080 

AlOO 

B600 

0400 

0100 

0123 

0000 

S"A100 

B600 

0400 

4  000 

30A1 

OOB6 

0004 

0001 

0001 

2300 

OOAl 

00B6 

0004 

0040 

0080 

AlOO 

S”B600 

04  00 

0100 

'123 

0000 

AlOO 

B600 

0400 

4000 

80A1 

OOB6 

0004 

0001 

0001 

2300 

OOAl 

$"00B6 

0004 

0040 

0080 

AlOO 

3600 

0400 

0100 

0123 

0000 

AOOO 

83FF' 

:ca  'CNTL'  (128,  "3 

icroii  thing")  { 

(0,  155,  234,  I'Ot, 

visibii 

0, 

a  / 

0, 

scrollBarProc, 

0, 

"scroll  thing" 

CDEF'  (133,  ' 

'Popup  menu 

1")  { 

$"600E 

$"41FA 

0000 

FFEE 

4344 

21C8 

4546 

09CE 

0085 

6000 

0000 

08AC 

0000 

48E7 

0000" 

COCO" 

/*  ■  .  .  .CDEF. 6 .  */ 

/*  A.  .  .  .  ,  'H.ii  •/ 

S"322F 

0014 

206F 

0016 

2248 

7000 

22C0 

22C0" 

/*  2/. .  o. ."Hp."i"i  »/ 

$"22C0 

22C0 

22C0 

22C0 

22C0 

22C0 

226F 

OOIA" 

/*  '*  i  ”c  "  C 6  "i  "  i 

$"5341 

671E 

701F 

9041 

E2  4  9 

41F0 

0000 

30d9" 

/ •  SAg . p . oA . lA . . . 0 ,  ♦ / 

S"51C9 

FFFC 

4CDF 

0303 

2F57 

OOOA 

4FEF 

OOOA" 

/*  Q . L. . ./W. .0. . .  */ 

S"4E75 

1159 

OOIF 

60EC 

2F0A 

226F 

0008 

246F" 

/»  NU.Y. ,/."o. .$0  */ 

$"000C 

302F 

0010 

3400 

121A 

B202 

6402 

1401" 

/*  .  .0/.  .4.  .  .S.d.  .  .  ■»/ 

$''12C2 

6002 

12DA 

51CA 

FFFC 

BOOl 

245F 

205r" 

.Q  .  */ 

$"4FEr 

OOOA 

4ED0 

225F 

201F 

A04C 

2E80 

7000" 

/»  0. . .N-"  . tL.Ap.  */ 

S"2F09 

31C0 

0220 

4E75 

7000 

60F6 

225F 

201F" 

/*  /Ali-  Nup."."_  .  */ 

S"A122 

2E88 

4ErA 

FFEA 

225F 

205r 

A023 

4ErA" 

/*  "".aN. . t#N.  */ 

S"FFEO 

225F 

205F 

A029 

4EFA 

FFD6 

225F 

205F" 

/♦  */ 

$"A02A 

4EFA 

FFCC 

4E56 

FFC6 

206E 

OOOC 

43EE" 

/*  t*N. .ANV.A  n. .C.  */ 

S"FFES 

22D8 

22D8 

1D7C 

0055 

FFCE 

1D7C 

OOAA" 

/*  .  ."yy.  1  .o.d.  1 */ 

S'TFCF 

1D7C 

0055 

FFDO 

1D7C 

OOAA 

FFDl 

1D7C" 

/*  1  .0.-.  1  .™.-.  1  ♦/ 

$"0055 

FFD2 

1D7C 

OOAA 

Fr03 

1D7C 

0055 

rrD4" 

/*  .0.".  1  1 .0.  '  ♦/ 

$"1D7C 

OOAA 

rro5 

486E 

FFD6 

A89S 

A89E 

486E" 

/*  .  1  .™. 'Hn,+®d<*KSHn  */ 

$"FFCE 

A89D 

3F3C 

OOOB 

A89C 

486E 

FFE8 

A8A2" 

/*  .®uHn.  .®<  */ 

$"496E 

FFD6 

A899 

4ESE 

205F 

504r 

4  EDO 

4E56" 

/♦  Hn.-H®6N^  POH-NV  */ 

S"FDE8 

48E7 

0309 

7E01 

4246 

422E 

FDEC 

594F" 

/*  . .H. . .'.8FB. . .to  * ; 

S"3F2E 

0010 

A9BF 

285r 

200C 

6748 

2FCC 

3F07" 

/*  ?  .  .  .©« (  .gH/ . ? .  */ 

$"486E 

FEEC 

A946 

554r 

4  8  6E 

FEEC 

A88C 

BC5F" 

/•  Hn.  .©FOOHn.  •/ 

S"6C1A 

3F3C 

OOFF 

486E 

FEEC 

486E 

FDEC 

4EBA" 

/*  l.?<.  .Hn.  .Hn.  .n|  */ 

$"FEE8 

554F 

486E 

FEEC 

A88C 

3C1F 

5247 

0C47" 

/ »  . . DOHn . . ®i< . RG . G  * / 

$■’0064 

5EC0 

7200 

122E 

FEEC 

4A41 

57C1 

8001" 

/*  .d',  r . JAW;  A,  ♦  ' 

$"67BA 

6016 

41FA 

0038 

43EE 

FDEC 

22D8 

22D9" 

/*  gj'  .  A.  .  8C  .  .  .  "y  "y  * 

$”554F 

4S6E 

FEEC 

A88C 

3C1F 

3D46 

0012 

206E" 

/*  OOHn.  .  ■?>«<. -F.  .  n 

$"000C 

3F3C 

OOFF 

486E 

FDEC 

2F08 

4EBA 

FE9A" 

:*  .  .  .  -Hn.  ,  /  .nI,6  */ 

$"4CDF 

lOCO 

4E5E 

205F 

4FEF 

OOOA 

4  EDO 

043F" 

/ *  L.  . ;  N'  0. . .N- . ?  */ 

S"3F3r 

3F08 

4E56 

FEEC 

2F0C 

594F 

3F2E 

OOOE" 

' *  ’?? .NV. . / . YO? ...  *  ' 

S"A9BF 

285F 

200C 

67  4  2 

2F0C 

3F2E 

OOOC 

436E” 

/  *  ©0(  .gB/ . .  .Hn  */ 

$"FEEC 

A946 

7000 

102E 

FEEC 

4A40 

6F08 

486E" 

/*  ..©Fp . JUo.P.n  */ 

$"rEEC 

A884 

602A 

2F0C 

3F3C 

0001 

486E 

FEEC” 

/•  .  *..?<. .Hn.  .  ♦/ 

$"A946 

206E 

0008 

2068 

0010 

2050 

317C 

0001" 

/  ♦  ©F  n  .  .  h .  .  P 1 1  .  .  *  / 
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$■'0012 

486E 

FEEC 

A884 

6006 

487a 

OOOE 

A884" 

/*  . .an. . RS' .Hz. . 5S  •/ 

$"285F 

4E5E 

205F 

504F 

4EOO 

033F 

3F3F 

4E56" 

/•  (  N'  PON-.-’??NV  */ 

$"FB46 

4SE7 

1F38 

286E 

0008 

3D7C 

FFEO 

FB78" 

/‘  .FH.  .  3  (n.  .-1  .  .  */ 

3  ■■  3D7C 

'FCO 

F37A 

3D7C 

3F80 

FB7C 

3D7C 

IFOO" 

/*  -1 .i . z-l ?A. I-I . .  ♦/ 

3"FB7E 

3D7C 

OEOO 

FB80 

3D7C 

0400 

FB82 

2F2E" 

/»  .'-1 . . .A-l . . .C/.  */ 

$"0010 

4EBA 

FE3E 

206E 

0010 

2050 

7000 

1028" 

/*  .  .Nf.>  n.  .  Pp.  .  (  •/ 

$■•0010 

4A40 

6700 

0  3B4 

206E 

0010 

2050 

41E8" 

i*  .  .J3g.  .'i  n.  .  PA.  */ 

3-0003 

43EE 

rrE8 

2208 

2208 

4d6E 

FFBE 

A898" 

/*  .  .C.  .  .  "y"i>Hn.»®6  */ 

S"A99E 

4  9  6E 

FFB6 

A874 

206E 

FFB6 

3628 

0044" 

/♦  n.<)6(.D  */ 

S-206E 

FFB6 

3828 

004A 

2Q6E 

FFB6 

3A28 

0048" 

1*  n.a8(.  J  n.(?:  (  .H  »/ 

$"206E 

FFB6 

4868 

0046 

4  8  6E 

FB48 

3F3C 

0001" 

/*  n.dHh.FHn.H?<.  . 

3"4EBA 

FD3A 

1D6E 

FB67 

FFAF 

4267 

A887 

3F3C" 

/*  Nf.  :  .  n  .g  .0Bg'®a?<  */ 

S"000C 

A88A 

3F3C 

0001 

A889 

422E 

FB66 

7000" 

/♦  .  .®i?<.  .SaB. . fp.  */ 

$"102E 

FB66 

3F00 

A888 

4  8  6C 

FFE4 

A88B 

594F" 

/♦  .  .  .  f?  .®aHi. .®aYO  */ 

$"A8d8 

2E1F 

2F07 

A87A 

594F 

A8D8 

245F 

2F0A" 

/*  ®y .  .  /  .®zYO®VS  /.  *, 

S'’486E 

FFE8 

A8DF 

2F07 

2F0A 

2F0A 

A8E4 

2F0A" 

/♦  Bn  .  .®  ./././  .®.  /  .  ♦/ 

$"A879 

486E 

FFE8 

A9A3 

206E 

0010 

2050 

4AA8" 

/*  ®yHn.  .tit  n.  .  PJ®  *, 

$"001C 

6600 

0162 

594F 

7012 

2F00 

4EBA 

FOSE” 

/*  .  .  f .  .bYOp.  /  .n/.  '  */ 

$"295F 

FFEC 

206E 

0010 

2050 

21 6C 

FFEC 

OOlC" 

/  *  )  .  .  n  .  .  P  !  1 -  *  / 

$"2F2C 

FFEC 

4EBA 

FDSC 

2  0  6C 

FFEC 

2650 

4253" 

1*1,.  .nJ.\  1.  .SPSS  »/ 

$"426B 

0002 

4266 

0004 

4  2  6B 

0006 

426B 

0008" 

/♦  3k.  .Bk.  .BJc.  .Bk.  .  •/ 

$"41EE 

FFE8 

43EB 

OOOA 

2208 

2208 

S94F 

2F3C" 

/*  A.  .  .C.  .  .  "i>"yYO/<  */ 

$"4D45 

4ES5 

2  0  6E 

0010 

2050 

3F28 

7016 

A9A0" 

/*  MEND  n.  .  P?  (  .  .'St  */ 

S"2C1F 

4A86 

6712 

2F06 

436E 

FCA6 

486£ 

FCA2  " 

/  *  ..jOg./.Hn.'ilHn.it  *  / 

$'’486E 

FCAC 

A9A8 

600C 

41FA 

02A6 

4  3EE 

FCAC" 

/*  Hn.  "'®®'  .A.  .Tic.  .  */ 

S-22D8 

22D8 

206E 

0010 

2050 

3F3C 

OOFF 

4a6E" 

/*  "yy  n.  .  P?<.  .Hn  */ 

S"FCAC 

4868 

0028 

4EBA 

FC30 

554F 

486E 

FCAC" 

/*  .  Hh.  (Nl.iOOHn.  '  ♦/ 

$"A88C 

206C 

FFEC 

2050 

309F 

206C 

FFEC 

2050" 

/•  ®i  1. .  POu  1. .  P  */ 

S"4A50 

6F0C 

206C 

FFEC 

2050 

317C 

0005 

0002" 

/»  JFo.  1. .  PI  1 -  */ 

5"302C 

FFE4 

5240 

5240 

206C 

FFEC 

2050 

3140" 

1*  0, . .R@R9  1. .  P19  •/ 

$"0004 

554F 

206E 

0010 

2050 

3F28 

0016 

486E" 

/*  . .00  n. .  P? ( . .Hn  »/ 

S"FBA2 

2F0E 

4EBA 

FD18 

3D5F 

FFEO 

486E 

FFDO" 

/*  .4/.nJ..-  ..Hn.-  */ 

$"4267 

4267 

302E 

FFEO 

0640 

OOOD 

5A40 

3F00" 

/*  BgBgO _ 8.-iZg7.  */ 

$"302C 

FrE4 

D06C 

FFE6 

5440 

3F00 

A8A7 

4g6E" 

/*  0, . .-1. .r3?.»BHn  •/ 

S’TFDO 

206C 

FFEC 

2050 

226C 

FFEC 

2251 

3010" 

/*  . -  1. .  P”l. . "QO.  */ 

$"D069 

0002 

5640 

3F00 

3F3C 

0001 

ASAS 

206C" 

/*  -i. .V@7.?<. .®®  1  •/ 

$"FFEC 

2050 

43EE 

FFDO 

41E8 

OOOA 

2009 

20D9" 

/*  ..  PC.. -A . •/ 

S"302E 

FFD2 

0640 

OOOD 

206C 

FFEC 

2050 

3140" 

/♦  0.  ."  .@.-1  1.  .  P19  */ 

$"0006 

302E 

FFDO 

D06C 

FFE4 

5240 

206C 

FFEC" 

/♦  .  .0.  .— 1.  .R9  1.  .  */ 

$"2050 

3140 

0008 

206E 

0010 

2050 

2968 

OOlC" 

/*  Pl@..  n..  P)h..  */ 

$"FFEC 

2F2C 

FFEC 

4EBA 

FCOA 

206C 

FFEC 

2050" 

/*  .  .  -nJ.  .  1.  .  p  */ 

$"302E 

FFEA 

0068 

0002 

3F00 

206C 

FFEC 

2050" 

/*  0. . .-h. .7.  1. .  P  */ 

$"302E 

FFE8 

0068 

0004 

3roo 

A893 

206E 

0010" 

/*  0. . .-h. .7.®i  n. .  */ 

$"2050 

7000 

1028 

0028 

4A40 

6roc 

206E 

0010" 

/*  Pp. . ( . (J@o.  n. .  */ 

$"2050 

4868 

0028 

A884 

206C 

FFEC 

2050 

41E8" 

/*  PHh.  (®S  1. .  PA.  */ 

$"000A 

43EE 

FFDO 

2208 

2208 

486E 

FFDO 

3r2E" 

/*  . .C. .-"y"yHn.-7.  */ 

$"FrEA 

3F2E 

rFE8 

A8A8 

206C 

FFEC 

2050 

302E" 

/*  . . 7. . .®®  1. .  PO.  ♦/ 

$"FFEA 

0068 

0006 

3roo 

206C 

FFEC 

2050 

302E" 

/*  ..-h..7.  1..  PO.  */ 

$"FFE8 

0068 

0008 

3roo 

A893 

2Q6E 

0010 

2050" 

/*  .  .-h. .7.®!  n. .  P  */ 

$"3F28 

0016 

206E 

0010 

2050 

3F28 

0012 

2F0E" 

/*  ?(. .  n. .  P? ( . ./.  */ 

S"4EBA 

FC92 

486E 

FFDO 

A8A1 

302E 

FFD2 

5240" 

/*  Nj.iHn,-®“0.  .''R@  */ 

$"3roc 

3F2E 

rrD4 

A893 

3r2E 

FFD6 

3F2E 

FrD4" 

/*  7 . 7 . .  '®i? .  */ 

$"A8gi 

3r2E 

rrD6 

302E 

FFDO 

5240 

3F00 

A891" 

/*  ®»?.  .*0.  .-R0?.'»*  ♦/ 

$"486E 

rB8C 

4267 

4267 

3F3C 

0010 

3F3C 

0006" 

/*  Hn.iBgBg7<, .7<. .  */ 

$"A8A7 

41EE 

FB7  8 

2048 

FB94 

3D7C 

0002 

FB98" 

/*  ®6A.  .."{-H.l-I  .  .  .6  */ 

$"41EE 

FB8C 

43EE 

FB9A 

2208 

2208 

41EE 

FBSC" 

A.  .aC.  .6"y"yA.  .a  */ 

S"43EE 

FB84 

2208 

2208 

4S6E 

F384 

302E 

FFD6” 

/*  C.  .fl"y"yHn.fJO.  .♦  »/ 

$"0640 

FFEF 

3F00 

302E 

FFDO 

5C40 

3roo 

A8A8" 

/♦  .9. . 7.0. . -\9?.®®  */ 

S"486E 

FFBA 

A874 

486E 

FB94 

206E 

FFBA 

4868" 

/♦  Hn.J®tHn.l  n.)Hh  */ 

$"0002 

4  8  6E 

FB8C 

486E 

FB84 

4267 

42A7 

A0EC" 

/ *  . . Hn . iHn . RBgBfi®  .  ♦ / 

$"206E 

0010 

2050 

7000 

1028 

0011 

0C40 

OOFF" 

/ *  n . .  Pp 9 . .  • / 

$"660A 

486E 

FFE8 

2F0E 

4EBA 

FACC 

2F07 

A87  9" 

/*  f .Hn. ./.N|,A/.®y  */ 

$"2r07 

A8D9 

2F0A 

A8D9 

3r03 

A887 

3r04 

Ae8A" 

/•  /.®./.®.  7.'®A7.®a  ♦ 

S"3F05 

Aa89 

4a6E 

FFAJF 

486E 

FB48 

3r3C 

0001" 

/*  7.®4Hn.0Hn.H7<.  .  ♦/ 
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$'’4EBA 

F9EA 

1D6E 

FB67 

FB46 

7000 

102E 

FB4  6" 

nJ  ...  n  .  g  .  Fp  ....  F  *  / 

3’*3FOO 

A888 

486E 

FFBE 

A399 

2F2E 

0010 

4EBA" 

?  .  SaHn  .»J)o/  .  .  .Nf  ♦  / 

4CDF 

1CF9 

4E5E 

205F 

4FEF 

OOOE 

4  EDO" 

/  ★ 

.  1  L.  .  0.  .  .N- 

S"043F 

3F3F 

3F0  8 

4E56 

FFE8 

2F0C 

286E 

0010" 

.????. NV n .  .  *  ' 

3"42AE 

0016 

2F0C 

4EBA 

FA4A 

2054 

7000 

1028" 

'  * 

BE .  .  .  nJ  .  J  Tp  .  .  (  * 

S"0011 

0C40 

OOFF 

6762 

2054 

7000 

1028 

0011" 

/  * 

. . . 3 . . gb  Tp . . ( . .  * / 

$"0C40 

3  0FE 

►5740 

2054 

41E3 

0008 

4  3EE 

FFE8" 

f  * 

. 3 . .gL  TA. . .C . . .  ♦/ 

S"22D8 

22DQ 

302E 

FFEE 

5B40 

3D40 

FFEA 

302E" 

/* 

"y"yO.  .  .  [3-3.  .0. 

3’'FFEC 

5B40 

3D40 

FFE8 

554F 

2F2E 

OOOC 

2054" 

,/* 

.  .  [3.11 ,  .  rio/  ...  T  */ 

$"4368 

0008 

A8AD 

554F 

2F2S 

OOOC 

486E 

FFE8” 

/* 

Hh. .®*0O/ . . .Hn. .  ♦/ 

S"A8AD 

lOlF 

5300 

COIF 

6710 

700A 

2D40 

0016" 

/  ★ 

.S.i  .g.p.-3.  .  ♦/ 

$"6008 

2D7C 

0000 

OOFE 

0016 

2F0C 

4EBA 

F9DE" 

/♦ 

■  .-1 . /.Nf.  .  ♦/ 

$"285F 

4E5E 

205F 

4FEF 

OOQE 

4ED0 

4E56 

FF78" 

/* 

(  N*  _0 .  .  .  N-NV .  .’i  ♦/ 

S"48E7 

1F38 

2  8  6E 

OOOC 

266E 

0009 

2054 

3A29” 

i* 

H. .8 (n. .Sn.  .  T:  (  */ 

$"0016 

594F 

3F05 

A9BF 

245F 

200A 

6700 

019C" 

/* 

.  .yo?.ffl0$  .g. .u  */ 

3"486E 

FFC4 

A898 

A8  9E 

486E 

FFCO 

A874 

206E" 

/* 

Hn . /®6®0Hn  .  n  */ 

$"FFC0 

3D68 

0044 

FFBE 

206E 

FFCO 

3628 

004A" 

/* 

.i-h.D.a  n.i6(.J  * / 

$"206E 

FFCO 

3828 

0048 

206E 

FFCO 

4868 

0046" 

/* 

n.28 ( .H  n.iHh.F  ♦/ 

$"486E 

FF7A 

3F3C 

0001 

4EBA 

F8C2 

1D6E 

FF99" 

/* 

Hn .  z?<.  .  nJ .-i.n  .  5  */ 

$"FFB9 

4267 

A887 

3F3C 

OOOC 

A88A 

3F3C 

0001" 

f* 

.nBg®4?<.  .  ®i?<.  .  »/ 

$"A889 

422E 

FF98 

7000 

102E 

FF98 

3F00 

A888" 

i* 

®aB. .op. . . .6?.®a  */ 

S”486B 

FFE4 

ASSB 

2F0A 

3F3C 

FFFF 

A935 

2054" 

/* 

H)c.  .  ®a/.  ?<.  .©5  T 

$"2768 

OOlC 

FFEC 

2F2B 

FFEC 

4EBA 

F926 

2054" 

j  * 

'h - /+.  .nI.S  T  «/ 

$"41E8 

0008 

4  3EE 

FFD6 

22D8 

22D8 

206B 

FFEC" 

/  * 

A.  ,  .C.  .♦"yy  k.  .  */ 

$"2050 

41E8 

OOOA 

43EE 

FFDE 

2208 

22D8 

4  86E" 

/* 

PA.  .  .C.  .  ."i>"^Hn  */ 

S'TFDE 

3F2E 

FFD8 

3F2E 

FFD6 

A8AS 

3D6E 

FFEO" 

/♦ 

.  .?.  .y?.  .-H»®-n.  .  */ 

S"FFE4 

3D6E 

FFD8 

FFEO 

2054 

7000 

1028 

0029" 

/* 

.  .  -n .  .  .  Tp .  .  (  .  (  •  / 

$"4A40 

6F06 

436E 

FFDE 

A8A4 

3D6E 

FFD6 

FFEC" 

/* 

JSo.Hn. .®§-n.*. .  */ 

S"206B 

FFEC 

2050 

302E 

FFD8 

D068 

OOOC 

3D40” 

/* 

k.  .  PO.  .i>-h.  .-3  »/ 

$"FFEE 

486E 

FFEC 

A870 

2F0A 

2054 

3F28 

0012" 

/* 

..Hn..®p/.  T7(..  */ 

$"1F3C 

0001 

A945 

594F 

2F0A 

3F2E 

FFEC 

3F2E" 

/* 

.<. .©EYO/.?. . .7.  ’/ 

S"FFEE 

2054 

3F28 

0012 

A80B 

2E1F 

4206 

2054" 

/* 

.  .  T7( . .®.  . .B.  T  */ 

S"BE68 

0012 

56C0 

4A47 

5EC1 

COOl 

6716 

2F0A" 

/* 

«h..ViJG^ii.g./.  */ 

$"2054 

3F28 

0012 

4227 

A945 

2054 

3147 

0012" 

/♦ 

T7 ( . .B'©E  TIG. .  */ 

S"7C01 

600C 

2FOA 

2054 

3F28 

0012 

4227 

A945" 

/* 

T7 ( . .B'©E  */ 

$"3F05 

A936 

2054 

7000 

1028 

0028 

4A40 

6F06" 

/• 

7 .©6  Tp. . ( . (J3o.  */ 

$"486E 

FFDE 

A8A4 

4A06 

670C 

4267 

2F0C 

42A7" 

/* 

Hn. .®§J.g.Bg/ .BB  */ 

S"2F0B 

4EBA 

F9CA 

3F2E 

FFBE 

A887 

3F03 

A88A" 

/• 

/.nJ.  ?..»®A?.®a  •/ 

$"3F04 

AS89 

486E 

FFB9 

486E 

Fr7A 

3r3C 

0001" 

/* 

7  .®aHn.ilHn.  z?<.  .  ♦/ 

$"4EBA 

F77A 

1D6E 

rF99 

Fr78 

7000 

102E 

rr7  9" 

/* 

nI  .  X .  n .  0 .  xp .  .  .  .  X  *  / 

$"3F00 

A888 

486E 

FFC4 

A899 

4CDr 

icr8 

4E5E" 

/* 

?.®iHn.f®6L.  .  .N"  ♦/ 

$"205F 

504r 

4ED0 

4E56 

FFE4 

2roc 

286E 

OOOE" 

/* 

_POH-NV. . / . (n. .  ♦/ 

$"42AE 

0014 

200C 

6700 

OOAA 

302E 

OOOC 

6000" 

/* 

BE. .  .g.  .™0. .  .  '  .  */ 

$"008A 

3F2E 

0012 

2roc 

2F2E 

0008 

2rOE 

4EBA" 

/* 

.a7. .././.. ./.h|  */ 

$"F95E 

6000 

008E 

594r 

3F2E 

0012 

2  roc 

2r2E" 

/* 

.  .*y07.  .  ././.  ♦/ 

$"0008 

2F0E 

4EBA 

FD60 

2D5F 

0014 

6000 

0074" 

/• 

../.Ni.  -_.  .'  ..t  V 

$"2F0C 

4EBA 

F7AE 

2r2E 

0008 

2054 

4868 

0008" 

/* 

/.nJ.E/...  THh..  »/ 

$"A8DF 

2F0C 

4EBA 

F7A6 

6058 

2F0C 

4EBA 

F794" 

/* 

®./.N|.1I'X/.N|.i  •/ 

$  ’2054 

7  OFF 

2140 

0020 

2F0C 

4EBA 

F790 

6042" 

/* 

Tp.  !3.  /.Nf.a'B  «/ 

$"2054 

4AA8 

OOlC 

673A 

2054 

2D68 

OOlC 

FFEC" 

/* 

TJ® .  .g:  T-h. ...  */ 

$"2F2E 

FFEC 

4EBA 

F762 

2054 

42A8 

OOlC 

6022" 

/* 

/  .  .  .Nj.b  TB® .  .  •  "  */ 

$"2F0C 

2F0E 

4EBA 

FD96 

6018 

6700 

FF76 

5340" 

/* 

/./.N[.n-  .g.  .vS3  */ 

$"6784 

5340 

67  9A 

5340 

6730 

5340 

67C2 

5940" 

/* 

gSS0g6S9g~S3g-Y0  */ 

$"67DE 

285F 

4E5E 

205F 

4FEF 

OOOC 

4ED0'' 

!  -k 

g. (_N^  _0. . .N-  •/ 

r«sourc«  'CNTL'  (133,  "Popup  menu")  ( 
(0,  0,  31,  31), 

1, 

invisible, 

100, 

1, 

2129, 

133, 
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Control  for  Dialog  Simulation" 

♦  Extra  bytes  follow...  ■*»**■»*/ 

*  $’*0000" 


resource  'SIZE'  ^-1)  ( 

iont  SaveScreen , 
acceptSuapendResumeEvents , 
enableOptionS witch, 
canBa'^kground. 
mult iFinder Aware , 
backgroundAndForeground, 
dontGetFrontClicka , 
ignoreChildDiedEvents, 
i332BitCompatibie, 
reserved, 
reserved, 
reserved, 
reserved, 
reserved, 
reserved, 
reserved, 

1048576, 

1043576 

}  / 


10.5  NODDS  DATA  RETRIEVAL  CODE 

This  secuon  contains  the  FORTRAN  source  code  and  the  MS-DOS  batch 
files  which  CRC  used  on  an  IBM-PC  compatible  computer  to  use  the  Navy 
Oceanographic  Data  Distribution  System  (NODDS)  to  obtain  atmospheric  data  for 
use  with  the  BDPS  program.  Though  this  code  is  not  a  formal  portion  of  the  BDPS 
program,  we  have  included  it  as  an  example  of  a  means  of  providing  wind  data  to 
BDPS  from  a  source  other  than  GRAM. 

10.5,1  NODDS  Batch  Files 

The  two  batch  files  (.BAT)  included  here  install  the  support  files  for 
collecting  and  formatting  the  data  and  then  configure  the  downloaded  data  files  to 
support  the  production  of  wind  table  data  for  use  with  BDPS. 


0001 

copy 

wind. bet  c:\nodde 

0002 

copy 

read.exe  c; \nodd«\ field* 

0003 

copy 

getdir.exe  c; \nodd.\field» 

0004 

c: 

0005 

cd  c 

\nodd» 

0001  cd  field. 

0002  \nodd*\mak«bat2 

0003  gatdir 
0004  call  d 

0005  ,nodds\d«codf Id 

0006  ram 

0007  copy  G00*.??g  altl.tmp 

0008  copy  c20*.??g  aaatl.tmp 

0009  copy  c21*.??g  northl.tmp 
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0010 

ram 

0011 

copy 

rOO* . ?’g 

alt2 .tmp 

0012 

copy 

r20» . ??g 

east2 . tmp 

0013 

copy 

r21* . ??g 

north2 . tmp 

0014 

rem 

0015 

ropy 

dOO* .  ?  ?g 

alt3 . tmp 

0016 

copy 

d2C* . ??g 

east3 . tmp 

0017 

copy 

d21 ♦ .  ?  ?g 

north3  .  t.mp 

0018 

rem 

0019 

copy 

eOO* . ??g 

alt 4 . tmp 

0020 

copy 

e20* . ??g 

aa3t4 . tmp 

0021 

copy 

e21* . ??g 

north4 .tmp 

0022 

rem 

0023 

copy 

fOO* . ??g 

alts .tmp 

0024 

copy 

f20* . ??g 

east5 . tmp 

0025 

copy 

f21*  .  ??g 

norths .tmp 

0026 

rem 

0027 

copy 

gOO* . ??g 

alt 6. tmp 

0028 

copy 

g20* . ??g 

east6.tmp 

0029 

copy 

g21* . ??g 

north6 . tmp 

0030 

rem 

0031 

copy 

hOO* . ??g 

alt 7 . tmp 

0032 

copy 

h20* . ??g 

eaat7 . tmp 

0033 

copy 

h21*  .  ??g 

north7 . trap 

0034 

rem 

0035 

copy 

too*  .  ??g 

alts .tmp 

0036 

copy 

t20* . ??g 

easts . tmp 

0037 

copy 

t21* . ??g 

norths .tmp 

0038 

rem 

0039 

copy 

100*. ??g 

alt 9. tmp 

0040 

copy 

120* . ??g 

east 9. tmp 

0041 

copy 

121*. ??g 

north9 . tmp 

0042 

read 

0043 

copy 

wlndl ,dat 

b;east . dat 

0044 

copy 

wlnd2 . dat 

b: north. dat 

0045 

del  • 

.??g 

0046 

del  ♦ 

.tmp 

0047 

del  d 

..bat 

0048 

del  windl.dat 

CC49 

del  eind2.dat 

0050 

del  runbatch.bat 

0051 

cd  .  . 

10.5.2  NOPDS  FORTRAN  Files 

These  files  were  written  to  process  the  downloaded  NODDS  data  into  a 
format  suitable  for  transferring  to  the  Macintosh  for  use  with  BDPS. 


0002  C  C 
0003  C  C 
0004  C  THIS  PROGRAM  EXTRACTS  THE  FIRST  TWO  LINES  OF  THE  RONBATCH.BAT  C 
0005  C  FILE  TO  GET  TO  THE  MAPTXT.DAT  FILE.  C 

0006  C  C 
0007  C  C 


0008  c************* ************** *********************************** ************C 

0009  C 

0010  C 

0011  CHARACTER  DIR*80 

0012  OPEN ( UNIT- 1 , STATUS- ' OLD ’ , FILE- ' RUVBATCH . BAT ' ) 

0013  OPEN (DNIT-2, STATUS- ’NEW’ , FILE- ' D . BAT ' ) 

0014  DO  1-1,2 
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0015 

READ (1, 10) DIR 

0016 

WRITE (2, 10) DIR 

0017 

END  DO 

0018 

10 

FORMAT  (A80) 

0019 

CLOSE  1  1) 

0020 

CLOSE (2) 

0021 

STOP 

0022 

END 

0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 


THIS  PROGRAM  IS  USED  TO  READ  THE  TEMPORARY  FILES  CREATED  BY  C 

WIND.BAT.  THE  PROGRAM  READS  THESE  FILES  AND  POTS  THE  DATA  IN  C 

A  FORM  THAT  THE  S03R00TINE  NOGAPS  CAN  READ.  C 

r 

^*****1i***itifk******'^-t;*-kir**********1,-k1t1t1tit*1t**-k1t**1fk*1t*ii*****ir***1i*i€*******Q 


DIMENSION  A(1499) .£(1499) ,N(1499) ,ALT(1499) ,EAST(1499) 

DIMENSION  LONT(1499) ,LAT(1499) .NORTH (14 99) 

INTEGER  I.M, LIO, L20, L30, L40,MG,NG, J1 

REAL  ALT, LAT, LONT, EAST, NORTH, LATO, LATB, LONTO, LONTR, SLAT, SLONT 

REAL  NOMBALT,MGRD,NGRD,MAT,A,E,N 

CHARACTER  DIRl, DIR2 , DIR3 , DIR4 
CHARACTER*6  Lll , L22 , L33 , L44 

>*********»***<>it*****.T************»****«*****«**************««*********«*,~ 


OPEN  THE  FILE  THAT  DEFINES  THE  AREA  OF  INTEREST 


OPEN ( ONIT-7  8 , STATUS- ' OLD ’ , FILE- 'MAPTEMP . DAT ' ) 


READ  THE  RANGE  OF  LATITUDES, LONGITUDES,  AND  WHAT  QUADRANT (S) 
THEY  EXIST. 


READ  (78,  6) 

READ  (78,  4000)  L11,L22 
READ (78, 4000) L33, L44 
FORMAT(19X,A6, /, 19X, A6) 
REWIND (78) 

READ (78, 6) 
POSl-INDEX(Lll, ’ . ’) 
POS2-INDEX(L22,  ’ . ') 
POS3-INDEX(L33,  ’  .  ’) 
POS4-INDEX(L44,  '  .  ' ) 

IF  (POSl . LE.O) THEN 
READ (78, 1) LIO, DIRl 
LAXO-FLOAT (Lie; 

ELSE  IF  (POSl -EQ. 2) THEN 
READ (78,2) LATO , DIRl 
ELSE  IF  ( POSl. EQ. 3) THEN 
READ  (78.  3)  LATO,  DIRl 
END  IF 

IF  (POS2 .LE.O) THEN 
READ(78,1)L20,DIR2 
LATB-FLOAT(L20) 

ELSE  IF  (POS2.EQ.2)THEN 
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0055 

READ(78,2)  LAT3,DIR2 

0056 

ELSE  IF  (POS2.S0.3'THEN 

0057 

READ  (78, 3)  LATE. 0132 

0058 

END  IF 

j059 

IF  (POS3 . LE.O) THEN 

00  60 

READ  (79,1)  L3Q,  DIR3 

0061 

LONTR-FLQAT  (L30,l 

0  0  62 

ELSE  IF  (POS3.EQ.2)THEN 

0063 

READ (78,2) LONTR, DIR3 

00  64 

ELSE  IF  (POS3 .EQ.3) THEN 

00  65 

READ  (78, 3)  LONTR,  DIR3 

0066 

ELSE  IF  (POS3 .EQ. 4) THEN 

0067 

READ (78, 4) LONTR, DIR3 

0068 

END  IF 

0069 

IF  (POS4 . LE.O) THEN 

0070 

READ  (78, 1)  L40,  DIR4 

0071 

LONTO-FLOAT (L40) 

0072 

ELSE  IF  (POS4.EQ.2)THEN 

0073 

READ (78, 2) LONTO, DIR4 

0074 

ELSE  IF  (POS4. EQ.3) THEN 

0075 

READ (78, 3) LONTO, 0134 

0076 

ELSE  IF  (POS4 ,EQ. 4) THEN 

0077 

READ (78, 4) LONTO, DIR4 

0078 

END  IF 

0079 

DO  1-1,2 

0080 

READ(79,  6) 

0081 

END  DO 

0082 

READ (78, 7) MG, NG 

0093 

MGRD-FLOAT (MG) 

0084 

NGRD-FLOAT(NG) 

0085 

1 

FORMAT(19X, 12, Al) 

0086 

2 

F0RMAT(19X,F3.1,A1) 

0087 

3 

FORMAT (19X,F4.1,A1) 

0088 

4 

FORMAT  ( 19X,  F5 . 1 ,  Al) 

0089 

6 

FORMAT (8 OX) 

0090 

7 

FORMAT(9X, 12, 8X, 12) 

0091 

MAT-MGRD*NGRD 

0092 

C 

0093 

C 

0094 

c 

CALCOLATE  GRID  SCALES 

0095 

c 

0096 

c 

0097 

IF  (DIRl .EQ. 'S' ) THEN 

0098 

LATO— LATO 

0099 

END  IF 

0100 

IF  (DIR2.EQ.'S')THEM 

0101 

LATB— LATB 

0102 

END  IF 

0103 

IF  (DIR3.EQ. 'W ) THEN 

0104 

LONTR— LONTR 

0105 

END  IF 

0106 

IF  (DIR4 .EQ. 'W ) THEN 

0107 

LONTO  — LONTO 

0109 

END  IF 

0109 

c 

0110 

SLAT-- (LATO-LATB) ! 'NGRD-1) 

0111 

IF  ( (DIR3 .EQ. ■»■ ) .AND. (DIR4 .EQ. 'E' ) ) THEN 

0112 

SLONT-( (180-LCNTO) +(180+LONTR) ) / (MGRD-1) 

0113 

ELSE 

0114 

SLONT— (LONTO-LCNTR) / (MGRD-1) 

0115 

END  IF 

0116 

c 

0117 

c 

0119 

c 
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■ni  ■? 
0120 
0121 
0122 
012  3 
0124 
0125 
0126 
0127 
012  8 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
OIdb 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 


OPEN (UNIT-50,  STATES- 'OLD' , FILE- ' ALTl . IMP ' ) 

OPEN (aNIT-51, STATUS- 'OLD' , FILE- ' EASTl . TMP ' ) 

OPEN (ONIT-5 2, STATUS- 'OLD' , FILE- ' NORTHl . TMP ' ) 

DO  1-1,2 
READ  (50,  10) 

READ (51, 10) 

R£AD(52, 10) 

END  DO 

DO  I-l,  MAT,  13 

READ  (50, 15)  A  (I)  ,  A  r  I->-l)  ,  A  )  1+2 )  ,  A  (1+3)  ,  A  ( 1  +  4 )  ,  A  ( 1  +  5)  ,A(I  +  6)  ,A(I  +  7)  , 
+  A(I+a) ,A(I+9) ,A(I+10) ,A(I+11) ,A(I+12) 

READ (51, 15) E( I) , E/I+1) , E ( 1+2 ) , E ( 1+3 ) , E ( 1+4 ) , E { 1+5) , E ( 1+6) , E { 1+7 ) , 
+  E(I  +  8)  ,E(I  +  9)  ,E(I-^10)  ,E(I  +  11)  ,E(I  +  12) 

READ (52, 15) N (I)  , N 'I  +  D ,N(I  +  2) ,N(I  +  3) , N(I  +  4)  , N ( 1  +  5)  , N ( 1  +  6) ,N(I  +  7)  , 
+  N(I  +  a),N(I  +  9),N(I-^10)  ,N(I  +  11)  ,N(I  +  12) 

END  DO 

CLOSE  (50) 

CLOSE  (51) 

CLOSE(52) 


C 

C 


c 

OPEN (UNIT-S3 , STATUS- ' OLD ' , FILE- ’ ALT2 . TMP ' ) 

OPEN ( UN IT-54 , STATUS- ' OLD ’ , FILE- ’ EAST2 . TMP ' ) 

OPEN (UNIT-55,  STATUS- 'OLD' , FILE- 'NORTH2 . TMP ' ) 

C 

DO  1-1,2 
READ(53, 10) 

READ(54, 10) 

READ (55, 10) 

END  DO 
C 

DO  I-(MAT+1) , {2+MAT) , 13 

READ  (53, 15)  A  (I)  ,  A(I+1)  ,  A  ( 1+2 )  .  A  1 1+3)  ,  A  ( 1  +  4) ,  A ( 1+5)  ,  A(I  +  6)  ,  A(I+7)  , 
+  A (1+8) ,A(I+9) ,A(I+10) ,A(I+11) , A(I+12) 

READ (54, IS) E(  I)  , E i I  +  l ) , E ( 1+2) . E ( 1  +  3)  , E ( 1  +  4 )  , E ( 1+5)  , E ( 1  +  6) , E ( 1  +  7)  , 
+  E(I+8),E(I+9),E(I*10) ,E(I+11) .E(I+12) 

READ ( 55, 15) N(I) , N (I+l) ,N (1+2) ,N(I+3) ,N(I+4),N(I+5),N(I+6),N(I+7), 
+  N  (1  +  8)  ,N(I  +  9)  ,N(I-^10)  ,N(I  +  11)  ,N(  1  +  12) 

END  DO 
r 

CLOSE (53) 

CLOSE(54) 

CLOSE (55) 
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0183 

0184 

0185 

0186 

0137 

0189 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 


REAP  THE  950MB  WIND  DATA 


»***'*★★** 


OPEN  ( C7NIT-56 ,  STATOS-  '  OLD  '  ,  FILE-  'ALTO  .  IMP  '  ) 

OPEN (UNIT-57,  STATUS- 'OLD' , FILE-'EAST3 .IMP ' ) 

OPEN (UNIT-58, STATUS-'OLD’ , FILE- 'NORTH3 . IMP ’ ) 

DO  1-1,2 
READ (56, 10) 

READ (57, 10) 

READ (58, 10) 

END  DO 

DO  I-(2*MAT+1) , (3»MAT) , 13 

read  (56,  15)  A(I)  ,  A(I  +  1)  ,A(I+2)  ,  A  ( 1  +  3)  ,  A  ( 1  +  4 )  ,A(I  +  5)  ,  A  ( 1  +  6)  ,  A  ( 1  +  7)  , 
+  A(I  +  8),A(I  +  9)  ,A(I  +  10)  ,  A(I+11)  ,  A(I  +  12) 

READ  (57,  15)E(l),E(I  +  l),E(I  +  2),  E  (1  +  3)  ,E(I  +  4),E(I  +  5),E(I  +  6),  E  (1  +  7)  , 
+  E(I  +  8)  ,E(I  +  9)  ,E(I-^10)  ,E(I  +  11)  ,E(I  +  12) 

READ  (  58, 15)  N(  I)  ,N(I  +  1)  ,N(I  +  2)  ,  N  ( 1  +  3)  ,  N  ( 1  +  4  )  ,N(I  +  5)  ,N(I  +  6)  ,N(I  +  7)  , 
+  N(I  +  8)  ,N(I  +  9)  .Nd  +  lO)  ,N(I  +  11)  ,N(I  +  12) 

END  DO 

CLOSE  (56) 

CLOSE (57) 

CLOSE  (58) 


C 


'  c 
C  C 
C  READ  THE  700MB  WIND  DATA 


C 

C 

OPEN ( UNIT-5  9 , STATUS- ' OLD ' , FILE- ' ALT  4 . TMP ' ) 

OPEN (UNIT-60,  STATUS-' OLD ', FILE-' EAST4 .TMP' ) 

OPEN (UNIT-61 , STATUS-'OLD ’ , FILE- 'NORTH4 . TMF ' ) 

C 

DO  1-1,2 
READ(59,10) 

READ (60, 10) 

READ{61, 10) 

END  DO 
C 

DO  I-3+MAT+1, 4*MAT, 13 

READ (59,15)A(I) ,A(I+1) ,A(I+2) ,A(I+3) ,A(I+4) ,A(I+5) ,A(I+6) ,A(I+  ) , 
+  A(I+8),A(I+9) , A(I+i0) , A(I+11) , A)I+12) 

read (60,15)E(I) ,S'I+1) ,E(I+2) ,E(I+3) ,E(I+4) ,E(I+5) ,E(I+6) ,E(I+7) , 
+  E(I  +  8)  ,E(I  +  9)  ,E(I-'-10)  ,E(I  +  11)  ,E(I  +  12) 

READ (61, 15) N( I) ,N'I+1) ,N(I+2) , N ( 1+3) , N ( 1+4 ) ,N(I+5) ,N(I+6) .N(I+7) , 
+  N(I+8) ,N(I+9) ,NfI*10) ,N(I+11) ,N(I+12) 

END  DO 

CLOSE(59) 

CLOSE (60) 
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0247 
0249 
0249 
02  50 
02  51 
0  2  5  2 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
02  62 
02  63 
0264 
0265 
02  66 
02  67 
0  2  68 
0269 
0270 
0271 
0272 
0273 
0274 
9275 
0276 
9277 
0278 
0279 
0290 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0299 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0299 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309 
0310 


CLOSE (61) 


ElEAD  CHE  500MB  WI'.ID  DATA 


OPEN ( unit-62 , STATUS- ' OLD ' , FILE- ' ALTS . TMP ' ) 

OPEN (UNIT-63,  STATUS- 'OLD' , FILE- ' EASTS . TMP ' ) 

OPEN (UNIT-64,  STATUS- 'OLD' , FILE- 'NORTHS . TMP ’ ) 

DO  1-1,2 
READ  (  62  ,  10) 

READ  (  63,  10) 

PJ:AD(64,  10) 

END  DO 

Q 

DO  I-4*MAT+1, 5*MAT, 13 

READ  (62, 15)A(I),A'I  +  1)  ,  A(I  +  2)  ,  A  ( 1  +  3 )  ,  A  (1  +  4  )  ,  A(I  +  5)  ,  A  (1  +  6),  A  (1  +  7), 
+  A(I  +  8)  ,  A(I  +  9)  ,  A(I^IO)  ,  A(I  +  11)  ,  A(I  +  12) 

PJDVD(63,  15)E(I)  ,E'I+1)  ,E(I+2)  ,E(I+3)  ,E(I  +  4)  ,E(I  +  5)  ,E(I+6)  ,E(I  +  7)  , 
+  E(I+8),E(I+9),E(I+10),E(I+11) , E(I+12) 

READ  (  64, 15)  N(  I)  ,  N  ( I+l)  ,  N  ( 1+2)  ,  N  ( 1+3)  ,  N  ( 1  +  4)  ,N(I+5)  ,N(I  +  6)  ,N(I+7)  , 
+  N(I+8) ,N(I+9) ,N(I^10) ,N(I+11) ,N(I+12) 

END  DO 
n 

CLOSE (62) 

CLOSE (63) 

CLOSE  (64) 


C 

C 


c 


C 

OPEN ( UNIT-65 , STATUS- ' OLD ' , F ILE- ' ALT6 . TMP ' ) 

OPEN (UNIT-66,  STATUS- 'OLD' , FILE- ' EASTS . TMP ' ) 

OPEN ( UNIT-67 , STATUS- ' OLD ' , FILE- ' NORTHS . TMP ’ ) 

C 

DO  1-1,2 
READ (65, 10) 

READ(66, 10) 

READ (67, 10) 

END  DO 

DO  I-5  +  MAT  +  I,  6  +  MAT,  13 

READ (65. 15) A (I) , A ( I+l) , A { 1+2 ) . A ( 1+3 ) , A ( 1+4 ) , A ( 1+5 ) ,A(I+6) ,A(I+7) , 
+  A(I  +  8),A(I  +  9),A(I-'-10)  ,  A(I+11)  ,  A  (1  +  12) 

READ  (66, 15)  Ed)  ,  E  ( I +1)  ,  E  ( 1+2 )  ,  E  ( 1+3 )  ,  E  ( 1  +  4 )  ,E(I+5)  ,E(I  +  6),E(l  +  7), 
+  E(I  +  8),E(I  +  9),E(I-'-10),E(I  +  ll),E(I  +  l2) 

READ (67, 15)N(I),N'I+l),N(I+2),N(I+3),N(I+4),N(I+5),N(I+6),N(I+7), 
+  N(I  +  8)  ,N(I  +  9)  ,N(I-'-10)  ,N(I+11)  ,N(I+12) 

END  DO 
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?311 

-■'312 

3313 

3314 
0315 
0316 
0  31'^ 
0318 
3  319 
-3320 
0321 
0322 
0323 
0324 
3325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 


CLOSE (65) 
CLOSE (66) 
CLOSE  (6'’) 


C  F-EAD  THE  30 ORB  WItID  DATA 


OPEN ( aNIT-68, STATUS- ' OLD ' , FILE- ' ALT7 . TMP ' ) 

OPEN (UNlT-6 9, STATUS-' OLD ' , FILE-'EAST7 .TMP ' ) 

OPEN  (fJNIT-7  0,  STATUS- 'OLD'  ,  FILE- ’NORTHU  .  TMP  '  ) 
r 

DO  1-1,2 
READ ( 68, 10) 

READ  (69,  10) 

READ (70, 10) 

END  DO 

DO  I-6»MAT4-1,  7*MAT,  13 

READ  (68, 15)  A  (I)  ,A(I+1)  ,  A  ( 1+2 )  ,  A  ( I-f3 )  ,  A  ( 1  +  4 )  ,  A  ( 1  +  5)  ,  A  ( I-K6)  ,  A  ( 1  +  7)  , 
+  A(I  +  9)  ,  A(I  +  9)  ,A(I  +  10)  ,A(I+11)  ,  A (1  +  12) 

READ (69, 15)E(I) ,E(I+1) ,E(I+2) ,E(I+3) ,E(I+4) ,E(I+5) ,E(I+6) ,E(I+7) , 
+  E(I+8) ,E(I+9) ,E(I+10) ,E(I+11) ,E(I+12) 

READ ( 70, 15) N( I) ,N(I+1) ,N(I+2) ,N(I+3) ,N(I+4) ,N(I+5) ,N(I+6) ,N(I+7) , 
+  N(I+8) ,N(I+9) ,N{I+10) ,N(I+11) ,N(I+12) 

END  DO 
C 

CLOSE (68) 

CLOSE (69) 

CLOSE  (70) 


C 

OPEN (ONIT-71, STATUS- 'OLD' , FILE- ' ALT8 . TMP ' ) 

OPEN (aNIT-72, STATUS- 'OLD' , FILE- ' EASTS . TMP ' ) 

OPEN ( UNIT-73,  STATUS- ’OLD’ , FILE-' NORTH8. TMP' ) 

DO  I-l, 2 
READ(71,  10) 

READ  (72,  10) 

READ(73,  10) 

END  DO 
r 

DO  I-7+MAT  +  I, 8*MAr,  13 

READ (7 1,15) A (I) ,A(I+1) ,A(I+2) ,A(I+3),A(I+4),A(I+5), 

+  A (1+6) , A(I+7) ,A(I+8) . A(I+9) , A(I+10) ,A(I+11) ,A(I*12) 

READ  (72,  15)  Ed)  ,  E  ( I  +  l )  ,  E  ( 1+2 )  ,  E  ( 1+3 )  ,  E  ( I +  4 )  ,  E  ( I +  5 )  ,  E  ( 1  +  6)  ,  E  ( 1  + 7 )  , 
+  E(I  +  8)  ,E(I  +  9)  ,E(I-'-10)  ,E(I  +  11)  ,E(I  +  12) 

READ  ( 7  3, 15)  N(  I)  ,  N  ( l+l)  ,  N  ( 1+2 )  ,  N  (1  +  3)  ,  N  ( 1  +  4 )  ,  N  ( 1  +  5 )  ,N{I  +  6)  ,N(I  +  7)  , 
+  N(I+8) ,N(I+9) ,N(I+10) ,N(I+11) ,N(I+12) 
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OS'S 

END  DO 

0376 

:3-- 

:L0SE(7  1) 

oo-a 

CLOSE (+2) 

03  +  9 

CLOSE ('3) 

■0  3  90 

::: 

0391 

z 

0392 

0383 

0384 

'Z 

0335 

c 

READ  THE 

0  3  8  6 

0387 

0388 

0389 

c 

0  3  90 

r* 

0391 

CPEN(rjNir^ 

03  92 

OPEN(DNir< 

0393 

OPEN  (UNIT’ 

0  3  94 

r* 

►  ***»♦** 


'EASTS. IMP ' ) 


03S5 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 


DO  1-1,2 
READ(74, 10) 

READ  (75,  10) 

R£AD(76,  10) 

END  DO 

DO  I-8»MAT+1, 9*MAT, 13 

READ  (74, 15)  A  (I)  ,  A  { I +  1 )  ,  A  (1+2)  ,  A  { 1+3)  ,  A  (1  +  4 )  ,  A  ( 1  +  5)  ,  A  ( 1  +  6)  ,  A  ( 1  +  7 )  , 
+  A (1+9)  ,  A(r+9)  ,  Ad+iO)  ,  A(I+11)  ,A(I+a2) 

READ  (75,  IS)  Ed)  ,  E  ( I+l)  ,  E  { 1+2 )  ,E(I+3)  ,  E  ( 1  +  4 )  ,  E  ( 1  +  5 )  ,  E  ( 1  +  6)  ,  E  ( 1  +  7)  , 
+  E(I  +  8),E(I  +  9)  ,E(I  +  10)  ,E(I+11)  ,E(I  +  12) 

READ  (7 6,  IS)N(r)  ,N(I+1)  ,  N(X+2)  ,Nd+3)  ,Nd+4)  ,N(I+5)  ,Nd+6)  ,Nd  +  7)  , 
+  N(I+8),N(I+9) ,N(I+10) ,N(I+11) ,N(I+12) 

END  DO 

CLOSE  (74) 

CLOSE (75) 

CL0SE(76) 


10  FOR«AT(80X) 

15  FORMAT(13r6.0) 

C 


SCALE-1 
DO  J-1, 9 

LONT ( (J-1) +MAT+1) -LONTO 
LAT  (  (  J-1)  *MAT-'-l)  -LATO 
DO  20  I-(J-l) ‘MAT+i. J*MAT 
ALX(I)-A(I) /30.0 
EAST  ( I )  -E  ( I )  /  1 9 . 4  4 
NORTH (I)-N(I)/19.44 

IF  (I,EQ.SCALE*MOPD)  THEN 
LONT(I+1)-LCNTO 
LAT  ( I  +  l) -LAT  ( I)  +SLAT 
SCALE-SCALE+1 
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3<139 

J  J  4  0 
^441 
?442 
:443 
M44 

3445 

3446 
"447 
04  4  8 
0449 
0450 
0451 
0  4  52 
04  53 
0454 
0455 
0456 
0457 
0458 
0459 
04  60 
0461 
0  4  62 
0463 
0461 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
04‘’2 
0473 
04  74 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0  4  92 
0493 
0  4  94 
0495 
0496 
0497 
0498 
0499 
0500 
05"i 
0502 


ELSE 

LOVT  (  I-^l)  =-L'Nr  (1)  +SLCNT 
LAT(i  +  i)=LAr':; 

END  IF 

IF  (  LAT  (  I  +  ll  .  .  ?0 . 0)  THEN 

LAT  (  I-t-1) -LAI  il  +  l)  -180.0 
ELSE  IF  'LAT'I-l; .LX. -90.0) THEN 
LAT(I-^l)  -LAX  (I  +  l)  +130.0 
EN'^  IF 

IF  (LONT(I+l) . 7r.l80.0)THEN 
LONT(I+l)=L3NT(I+H -360.0 
ELSE  IF  (LONT  ;-^l)  .LT.-180.0)THEN 
LONT  (1*1)  -LONTd  +  l)  +360.0 
END  IF 

20  CONTINOE 


SORT  WIND  DATA  ON  LATITODE 


DO  200  I-l, 9+KAT-l 
M-I  +  1 

DO  100  J-M, 9*MAT 

IF  (lAKI)  .G7.  LATv.*))  THEN 
TEMP  1-ALT  ( I) 

TEMPO-LATd) 

TEMP4-LONrd) 

TEMP 5-EAST  d) 
TEMPe-NORTHd) 

ALT  (I) -ALT  (J) 

LATd)-LAT(J) 

LONT  (I) -LONT  (J) 

EAST  (I)  -EAST  ( J) 

NORTH (I) -NORTH (J) 

ALT ( J) -TEMPI 
LAT  ( J)  -TEMP3 
LONT ( J) -TEMP 4 
EAST  (J)  -TE.MP5 
NORTH (J) -TEMP 6 
END  IF 
100  CONTINUE 

200  CONTINUE 


C 


r-*  €*****■' 


C 

c  c 

C  SORT  DATA  ON  LONGITUDE  C 


-♦*♦+*#****< 


»****♦**< 


DO  310  J1-1,NGPT) 

DO  210  I- ( Jl-1) +MGRD*9+1, Jl+MGRD+9-1 
M-I  +  1 

DO  110  J-M, J1*MGRD*9 

IF  (LONT(I)  .GT.  LONT(J))  THEN 
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TEMPl-ALT  (I) 
TEMP3-LAT  'I! 
rEMP^l-LOlT  1) 
TEMPS-EAST (II 
TEMP  6-NORTH (I) 
ALT  (  I)  -ALT  ( J) 
LAT  (I)  -LAT  ( J) 
LONT(I) -LONT'J) 


■  - 

EAST (I) -EAST ( J) 
NORTH (I) -NORTH (J) 

■  J 

ALT  ( J)  -TEMPI 

14 

LAT(  J)  -TEMP3 

'15 

LONT  ( J)  -TEMP4 

K6 

EAST  (J)  -TEMP 5 

NORTH (J) -TEMP  6 

513 

END  IF 

(113 

110 

ICNTIHDE 

'5ao 

210 

OONTINUE 

1521 

310 

CONTINDE 

■"22 

DO  610  Jl-1, 9*MAT, 9 

1523 

DO  510  I-  ( J  -1)  +1,  (Jl-1) 

0524 

M-’+l 

0325 

DO  410  J-M,  ( J1  -1)  ^■9 

0  52  6 

IF  (ALTd)  .ST.  ALT( 

0527 

TEMPl-ALT (I) 

0529 

TEMP3-LAT  ( I) 

0529 

TEMP4-LONT (I) 

0530 

TEMPS-EAST (I) 

0531 

TEMP6-NORTH(I) 

0532 

ALT  (I) -ALT  (J) 

0533 

LAT  (I)  -LAT  (J) 

0534 

LONT  (I) -LONT  (J) 

0535 

EAST  (I) -EAST  (J) 

0536 

NORTH (I) -NORTH (J) 

0537 

ALT  ( J)  -TEMPI 

0538 

LAT  ( J)  -TEMP3 

0539 

LONT (J) -TEMP  4 

0540 

EAST ( J) -TEMPS 

0541 

NORTH (J) -TEMP 6 

0542 

END  IF 

0543 

410 

CONTINDE 

0544 

510 

CONTINUE 

0545 

610 

CONTINDE 

0546 

0547 

r 

0548 

*************************** 

0549 

Q 

0550 

n 

0551 

c 

WRITE  THE  DATA  TO  nVNDl.l 

'"552 

r 

WRITE  THE  DATA  TO  WTND2.I 

0553 

n 

0554 

<2 

0555 

0556 

(2 

0557 

r 

0558 

0PEN(DNIT-7  7, 3TATD.5-’NEW 

0559 

OPEN (DNIT-79, STATDS-'NEW 

0  560 

C 

0561 

c 

0  5  62 

NDMBALT-9.0 

0563 

WRITE(77, 51' NDMBALT.MGRD, 

0564 

WRITE(77, *, 

0565 

WRITE  (7  7,  52)  (ALTd)  ,1-1,! 

0566 

WRITE(77,  ») 
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0  5  ^ 
oS'ja 
0  5  >5  9 
05'0 


WRITE (77, 52) ilokT (I' , 1=1, 9»MGRD, 9) 
WRITE (77  *) 

WRITE  (  ^'',  52)  (IAT  '  I  •  ,  I-l,  9*MAT,  9»MGRD) 
WRITE  (77  ,  *) 


75'3 
}  5  7  9 
JS'S 
7576 
75:'7 
05-3 
'.■5-9 
0530 
0531 
0532 
'0593 
0  5  84 
0585 
0596 
0  5  87 
■0588 
0589 
0  5  90 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0  600 
0601 
0602 


WRITE  1-3.51)  NTMEAIT.  MGRD,  NGRD 
WRITE  (  '  '9  ,  *  ) 

WRITE  I  -  9,  52  )  (ALT  .1',  .  1  =  1,  9) 

WRITE  (-9,  ■*) 

WRITE  (-9,  52)  (LCNT  (I)  ,1-1, 9*MGRD,  9) 
WRITE  (7  9,  *) 

WRITE  (79,  52)  (LAT(I)  ,1-1,  9*MAT,  9*MGRI)) 
WRITE  (79,  ») 


DO  J-1,9 

WRITE(77, 50) (EAST(I) , I-(J-l) *MAT+1 , MAT* J) 
WRITE(79,  50)  (NCRTE(I)  ,  I- (,3-1)  •MAT+1,  MAT*  J) 
END  DO 


50  FOPMAT(F0.3,F8.3,r3.3,F8.3) 

51  FORMAT (F9 . 3, F8 . 3, F9 .3) 

52  FORMAT (F9. 3, F9 .3 . r9. 3, F9.3) 


.—  ***#****^**< 


CLOSE  OUTPUT  FILES 


C 

C 


(-•**★■*★***★**•< 


c 

c 


CLOSE (77) 
CL0SE(79) 
STOP 
END 
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20.0  BDPS  USER  MANUAL 

The  purpose  of  this  appendix  to  the  final  report  is  to  describe  the  procedures 
with  which  a  user  may  operate  the  Balloon  Drift  Pattern  Simulation  (BDPS). 

20.1  BDPS  CONCEPT  OF  OPERATIONS 

CRC  designee  the  BDPS  tool  to  be  easily  operated  for  the  analysis  of  a 
balloon’s  drift  pattern  as  influenced  primarily  by  atmospheric  winds.  BDPS  was 
written  for  and  tested  on  Macintosh  computers  with  either  68020  or  68030 
processors  (and  68881  or  68882  floating  point  coprocessors).  In  general,  a  user 
supplies  certain  files  according  to  the  desired  BDPS  modeling  options.  The  user 
starts  the  BDPS  application  and  then  takes  a  series  of  steps  to  generate,  display, 
and  save  graphical  representations  of  balloon  drift  patterns.  The  following 
sections  describe  the  files  involved  and  the  steps  to  be  taken  to  produce  drift 
patterns  with  BDPS. 

20.2  REQUIRED  FILES  FOR  BDPS  OPERATION 

Besides  the  BDPS  application  program,  several  files  are  required  for  the 
successful  operation  of  BDPS.  Every  BDPS  run  will  require  an  ascent  profile 
which  contains  data  that  represents  a  particular  balloon  configuration’s  vertical 
ascent  rate  as  a  function  of  time.  Then,  depending  on  the  user’s  preference,  the 
BDPS  application  will  either  require  a  set  of  climate  files  associated  with  the 
GRAM  atmosphere  model  or  a  set  of  files  for  using  the  BDPS  wind  table  option. 
These  files  are  discussed  in  the  following  sections. 

20.2.1  Ascent  Profile 

Every  BDPS  run  will  require  an  ascent  profile  which  contains  data  that 
represents  a  particular  balloon  configuration’s  vertical  ascent  rate  as  a  function 
of  time.  The  file  should  be  named  “Ascent  Profile”  and  should  be  located  in  the 
same  Macintosh  folder  as  the  BDPS  application.  The  file  may  be  created  with  any 
text  editor  or  word  processor  which  is  capable  of  saving  the  ascent  profile  in  a 
“text-only”  format. 

The  ascent  profile  of  a  balloon  configuration  is  constructed  as  a  number  of 
data  points  which  represent  discrete  samples  from  the  complete  curve  which 
describes  the  entire  vertical  motion  profile.  Because  the  BDPS  program  will 
perform  linear  interpolation  between  successive  points,  the  points  should  be 
chosen  to  make  a  linear  interpolation  valid.  The  ascent  profile  will  consist  of  two 
columns  of  numbers  where  the  first  column  is  the  time  reference  point  and  the 
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second  column  is  the  vertical  velocity  corresponding  to  that  particular  time. 
Figure  20.2.1-1  shows  the  format  to  be  followed  in  the  creation  of  an  ascent  profile. 

First  Text  Line;  Time  1  (s)  Vertical  Velocity  at  Time  1  (m/s) 

Second  Text  Time  2  (s)  Vertical  Velocity  at  Time  2  (m/s) 

Line: 

(Additional 

Lines) 

Figure  20.2.1-1-  Ascent  Profile  Format 
20.2.2  Climate-Related  Flies 

If  the  BDPS  user  desires  to  use  the  “climate”  model  option  for  providing 
wind  data,  then  a  number  of  files  must  be  present  within  the  same  Macintosh 
folder  as  the  BDPS  application.  These  files  are  distributed  on  magnetic  media 
with  the  BDPS  application  and  should  not  be  altered  in  content,  nor  should  the  file 
names  be  changed.  Table  20.2.2-1  lists  the  files  and  gives  a  brief  description  of 
each  file. 

Table  20.2.2-1.  Climate-Related  Files 


NAME  OF  DATA  FILE 

DESCRIPTION  OF  FILE  CONTENTS 

NASPGROVES.F 

Groves  data 

NASPPPWCS.F 

Density-velocity  correlations  &  large  scale  fraction  data 

NASPQBO.F 

Quasi-biennial  oscillation  data 

NASPRRW.F 

Random  perturbation  data 

NASPSP.F 

Spheric^  harmonic  data 

NMC.DAT 

National  Meteorological  Center  grid  data 

Ml.DAT 

Meteorologicsd  data  for  month  of  January 

M2.DAT 

Meteorological  data  for  month  of  February 

M3.DAT 

Meteorological  data  for  month  of  March 

M4.DAT 

Meteorological  data  for  month  of  April 

M5.DAT 

Meteorological  data  for  month  of  May 

M6.DAT 

Moteorological  data  for  month  of  Jime 

M7.DAT 

Meteorological  data  for  month  of  July 

M8.DAT 

Meteorological  data  for  month  of  August 

M9.DAT 

Meteorological  data  for  month  of  September 

MIO.DAT 

Meteorological  data  for  month  of  October 

Mll.DAT 

Meteorological  data  for  month  of  November 

M12.DAT 

Meteorological  data  for  month  of  December 

20  2.3  Wind  Table  Files 

If  the  BDPS  user  wishes  to  produce  a  balloon  drift  pattern  as  a  function  of  a 
wind  model  other  than  the  GRAM  climate  model,  the  user  should  provide  two 
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data  files:  “EAST.DAT”  and  “NORTH.DAT.”  These  files  describe,  respectively,  the 
east  and  north  wind  velocity  components  as  functions  of  latitude,  longitude,  and 
altitude.  The  files  should  be  located  in  the  same  Macintosh  folder  as  the  BDPS 
application.  Figure  20.2.3-1  shows  the  format  for  each  of  the  two  files. 

'.no.  of  altitude  vaiue3>  <no .  of  longitude  vaiues>  <no  of  latitude 
values^ 

<blank  line> 

Altitude  1  Altitude_2  . ■ ■  Altitude_k 

oblank  line> 

Longitude_l  Longitude_2  . . .  Longitude_m 
<blank  line> 

Latitude  1  Latitude_2  . . .  Latitude_n 

<blank  line> 

<wind  maanitude  values:  three-dimensional  nested  loop  with  outermost 

index  for  latitude  dependency,  middle  index  for  longitude  values, 
then  the  innermost  index  for  altitude  values. > 

Figure  20.2.3.  Wind  Table  File  Format 
20.3  BDPS  OPERATION  PROCEDURE 

This  section  describes  the  steps  to  take  in  the  operation  of  BDPS  to  produce 
drift  patterns.  The  figures  in  this  section  are  screen  snapshots  from  actual 
operation  of  the  BDPS  program.  The  procedure  discussion  assumes  that  the 
BDPS  user  already  has  familiarity  with  Macintosh  procedures. 

After  double-clicking  the  BDPS  application,  the  user  must  choose  whether 
to  open  an  existing  “mission”  file  or  to  start  with  a  new  mission  file.  A  saved 
mission  file  contains  the  user’s  run  setup  parameters  and  the  data  for 
plots  onscreen.  For  the  sake  of  discussion,  the  user  has  selected  “New  Mission” 
from  the  File  menu  and  will  now  see  the  run  setup  dialog  as  shown  in  Figure 

20.3-1. 
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Edit 


^  lission 
Label: 


Uiallops  Island  flight  -  Z  configuration  Ithis  tent  may  be 
used  to  identify  the  mission  represented  by  this  data! 


Launch 

Position 


Latitude; 
Longitude: 

Initial  Altitude; 
Flight  Duration: 


37.9 


7^.5 


1.0 


24.0( 


deg 

(•)  deg  lilest  O  deg  East 
(•>  m  O  kht 

O  O  rnin  (•)  hr 


lliind  ModebP  January  Climate  | 


f 


Run 


Input  Ascent  Profile: |  Ascent  Profile 


Z1 


Saue 


Map 


c 


Close 


Figure  20.3-1.  Sample  BDPS  Run  Setup  Dialog 

At  this  point,  the  user  may  enter  a  set  of  numbers  in  the  various  boxes  and 
may  select  the  desired  units  for  the  numbers.  Table  20.3-1  lists  the  valid  values  for 
the  various  number  entry  boxes.  If  an  invalid  entry  is  made,  BDPS  will  beep  and 
highlight  the  invalid  entry  when  the  user  tries  to  run  or  save  with  the  invalid 
entry. 


Table  20.3-1.  Run  Setup  Ranges  of  Values 


EntxyFldd 

Ranife  of  Acceptable  Values 

Latitude 

-90.0  to  90.0  degrees 

Longitude 

-180.0  to  180.0  degrees 

Altitude 

0.0  to  1,000,000.0  meters 

Duration 

0.0  to  720.0  hours 

After  entering  the  desired  values,  the  user  should  use  the  four  buttons  in 
the  lower-right  dialog  corner  to  take  action  within  BDPS.  The  recommended 
sequence  is  top-to-bottom;  run,  save,  map,  close.  When  the  user  clicks  the  run 
button,  BDPS  will  then  generate  the  drift  pattern  data  for  the  specified  mission. 
During  this  stage,  BDPS  reports  its  progress  as  shown  in  Figure  20.3-2. 
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Occasionally,  the  status  will  not  be  updated  for  several  moments  while  the  climate 
model  engages  in  intensive  file  access  activity  to  establish  or  re-establish  grids  of 
data  from  which  to  interpolate. 


•  File  Edit  Map 


I?) 


^  Generating  balloon  drift  pattern  data... 

1 

Percent  complete:  26  % 

1  ..  .  ,  j  ^  — 

?g  East 

Initial  Altitude;.  1 1  -0 


Flight  Duration:  24.(]( 


]  (•)  ni  O  km 
O  5ec  O  min  hr 


liiind  Model:!  January  Climate  ▼ 


Run  ] 


input  Ascent  Profile:]  Ascent  Profile 


[  Saue  I 
(  Map  ) 


Figure  20.3-2.  Drift  Pattern  Data  Generation  Progress  Dialog 

Once  the  run  is  complete,  the  user  should  save  the  data  which  was 
produced.  This  is  initiated  by  clicking  the  Save  button.  The  user  will  then  have 
the  chance  to  specify  a  file  name  for  the  mission  file  to  be  saved.  This  operation 
uses  the  standard  Macintosh  interface  for  file  operations  as  shown  in  Figure  20.3- 
3. 
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Edit 


?l 


Launchr 

Positio 


Inri 


Mission 

Label; 


aiallops  Island  flight  -  Z  configuration  Ithis  tent  may  be 
used  to  identify  the  mission  represented  by  this  datal 


JLaliliuLei 


17^ 


Hon 


3  MacBDPS 


Sane  mission  data  file  as 


BOPS  Mission  Data 


—1  Mars 


I  Desktop 
f  Near  CD 


(  Cancel  1 


Run 


aue 


^lose 


Figure  20.3-3.  Saving  the  BDPS  Mission  Fiie 

Now  the  BDPS  user  may  display  the  generated  drift  pattern  onscreen  by 
clicking  the  Map  button.  BDPS  will  present  a  dialog  box  for  setting  up  the 
onscreen  plot.  This  configuration  dialog  is  shown  in  Figure  20.3-4. 
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Figure  20.3-4.  Setting  Up  the  Drift  Pattern  Dispiay 

Once  the  user  selects  the  Plot  button,  the  screen  will  be  cleared  and  the  drift 
pattern  will  be  displayed.  BDPS  produces  outlines  of  major  land  masses  first,  and 
then  uses  a  double-wide  line  to  depict  the  path  followed  by  the  balloon  in  its 
trajectory.  At  this  point,  the  Map  menu  is  now  active  and  may  be  used  to  save  the 
map,  to  refresh  the  map,  or  to  open  a  saved  mission  file  to  produce  plots  with 
previously  generated  data.  Figure  20.3-5  shows  a  global  map  with  a  balloon  drift 
originating  from  Wallops  Island,  Virginia.  In  that  figure,  the  cursor  is  pointing 
to  the  balloon’s  trajectory  path. 
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Figure  20.3-5.  Sample  Drift  Pattern 

The  drift  patten  in  the  Figure  20.3-5  is  a  good  example  of  a  case  in  which  the 
user  may  wish  to  narrow  the  scope  of  the  display  and  “zoom  in”  on  the  region  of 
interest.  By  selecting  New  Map  from  the  Map  menu,  the  user  may  change  the 
map  setup  parameters  as  shown  in  Figure  20.3-6  and  then  produce  a  display  as 
shown  in  Figure  20.3-7,  which  provides  a  clearer  picture  of  the  balloon’s  drift 
trajectory. 
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Figure  20.3*6.  Providing  New  Map  Parameters 
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Figure  20.3«7.  Sample  Regional  Drift  Pattern 

Any  drift  pattern  plot,  such  as  in  Figure  20.3-5  or  Figure  20.3-7,  may  be 
saved  as  a  Macintosh  PICT  file  by  using  the  Save  option  from  the  Map  menu.  The 
user  may  then  choose  the  Done  option  firom  the  Map  menu  and  the  Close  button 
from  the  2*un  setup  dialog.  At  this  point,  the  user  may  Quit  the  application  or 
begin  with  New  Mission  or  Open  Mission.  After  quitting  BDPS,  the  user  may 
start  a  graphics  program  (e.g.,  MacDraw  II)  and  then  open  the  saved  PICT  file 
which  contains  an  image  of  the  drift  pattern  display.  Depending  on  its 
capabilities,  the  graphics  program  may  be  used  to  annotate  and/or  print  the  drift 
pattern. 


356 


